Raj at 18:48, 3 January 2010

2010-01-03T18:48:39Z

← Older revision		Revision as of 18:48, 3 January 2010
Line 1:		Line 1:
	* Cut a Text File into Pieces		* Cut a Text File into Pieces
	<~~pre~~>		<source lang=perl>
	#!/usr/bin/perl -w		#!/usr/bin/perl -w

Line 43:		Line 43:

	#END		#END
	</~~pre~~>		</source>
			[[Category:Bioinformatics]]

Raj: New page: * Cut a Text File into Pieces

 #!/usr/bin/perl -w  #---------------------------- # Description # Requirements: POSIX module. Comes handy with pearl installation # Usage: Type filename...

2008-10-21T19:34:45Z

New page: * Cut a Text File into Pieces <pre> #!/usr/bin/perl -w #---------------------------- # Description # Requirements: POSIX module. Comes handy with pearl installation # Usage: Type filename...

New page

* Cut a Text File into Pieces
<pre>
#!/usr/bin/perl -w

#----------------------------
# Description
# Requirements: POSIX module. Comes handy with pearl installation
# Usage: Type filename and number of pieces separated by a space
# Author: Rajkumar
#--------------------------------

# Use of functions
use strict;
use POSIX;

# Variables

my $argcount = @ARGV;
if ($argcount !=2 ) {die "Usage: Type filename and number of pieces!\n";}
my ($file,$cut) = @ARGV;
my $piece = $_;

# Function
chomp($file);
chomp($cut);

my $total = `cat $file|wc -c`;
my $math = $total/$cut;
$math = ceil($math);
my $read = `cat $file`;

my $start = 0;
for (my $i = 0; ++$i;) {
$piece = substr($read, $start, $math);

open(PIECE, ">".$file."_".$i."txt" );
print PIECE $piece;
close PIECE;

$start = $start+$math;
if ($i eq $cut) {last;}
}

#END
</pre>

Split file - Revision history

Raj at 18:48, 3 January 2010

Raj: New page: * Cut a Text File into Pieces
#!/usr/bin/perl -w #---------------------------- # Description # Requirements: POSIX module. Comes handy with pearl installation # Usage: Type filename...