File: blocksplit.pl

package info (click to toggle)
clonalorigin 1.0-8
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,800 kB
  • sloc: cpp: 10,488; perl: 349; xml: 130; makefile: 48; sh: 33
file content (24 lines) | stat: -rwxr-xr-x 430 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!/usr/bin/perl -w 
use strict;

my $fname = $ARGV[0];

open(INFILE, "$fname") || die "Unable to open input XMFA file $fname\n";
my $i = 1;
my $curoutfile = $fname.".1";
open(OUTFILE, ">$curoutfile");
while( my $line = <INFILE> )
{
	print OUTFILE $line;
	if($line =~ /=/)
	{
		close OUTFILE;
		$i++;
		$curoutfile = $fname.".$i";
		open(OUTFILE, ">$curoutfile");
	}
}
close OUTFILE;
# last output file is extra
`rm $curoutfile`;