Solved

Separating rows in a list according to value of first column

Posted on 2013-11-30
5
176 Views
Last Modified: 2013-12-04
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
0
Comment
Question by:MichaelGlancy
  • 3
  • 2
5 Comments
 
LVL 84

Expert Comment

by:ozo
ID: 39687411
perl -ape 'open STDOUT,">>$F[0]"'  file
0
 

Author Comment

by:MichaelGlancy
ID: 39687448
sorry, should have asked for it in a .pl file format
0
 
LVL 84

Expert Comment

by:ozo
ID: 39687740
#!/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;
}
0
 

Author Comment

by:MichaelGlancy
ID: 39696366
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
0
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
ID: 39696527
It is waiting for input.  Either pipe in the input, or give it a filename on the command line.
If you always want to read from master.vim, you can set it in the program:
#!/usr/bin/perl
use strict;
use warnings;
@ARGV=('master.vim') unless @ARGV; # read from master.vim if no file specified on command line
my $f='';
while( <> ){
    /(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f or warn "$f $!");
    print;
}
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
perl split by | 2 103
crawling gofundme 4 132
perl script to search for files containing text 3 84
Using Perl DBI to query oracle 3 46
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

789 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question