asked on Separating rows in a list according to value of first column
I have a list of data, I have sorted it into numerical ascending order according to the first column.
I have to now read the master file and separate out into new files all of the rows that start with the same number.
Could you help me please with code to do this ?
thanks
I have to now read the master file and separate out into new files all of the rows that start with the same number.
Could you help me please with code to do this ?
thanks
Perl
Last Comment
ozo
perl -ape 'open STDOUT,">>$F[0]"' file
ASKER
sorry, should have asked for it in a .pl file format
#!/usr/bin/perl
use strict;
use warnings;
my $f='';
while( <> ){
/(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f or warn "$f $!");
print;
}
use strict;
use warnings;
my $f='';
while( <> ){
/(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f or warn "$f $!");
print;
}
ASKER
I tried
#!/usr/bin/perl
use strict;
use warnings;
my $f='master.vim';
while( <> ){
/(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f or warn "$f $!");
print;
}
thankyou
but it just hangs for a long time
#!/usr/bin/perl
use strict;
use warnings;
my $f='master.vim';
while( <> ){
/(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f or warn "$f $!");
print;
}
thankyou
but it just hangs for a long time
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.