Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Is it possible to insert a record after line 5 that appears on line 10?

by bichonfrise74 (Vicar)
on Jun 23, 2010 at 20:41 UTC ( #846170=note: print w/replies, xml ) Need Help??


in reply to Is it possible to insert a record after line 5 that appears on line 10?

Here's something to help you get started. Notice in the first pass, I grabbed the 3rd record. And in the second pass, I printed the 2nd record.
#!/usr/bin/perl use strict; my $data_pos = tell DATA; my $record; while (my $line = <DATA>) { chomp( $line ); $record = $line if ( $line =~ /^:16R:USECU/ ); } seek DATA, $data_pos, 0; while (my $line = <DATA>) { chomp( $line ); print "$line\n" if ( $record && $line =~/^:16S:GENL/ ); } __DATA__ :16S:LINK :16S:GENL :16R:USECU
  • Comment on Re: Is it possible to insert a record after line 5 that appears on line 10?
  • Download Code

Replies are listed 'Best First'.
Re^2: Is it possible to insert a record after line 5 that appears on line 10?
by dirtdog (Scribe) on Jun 23, 2010 at 23:00 UTC

    Thanks for all the advice and input! it looks like i will definitely have to loop thru the file twice.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://846170]
help
Chatterbox?
[Lady_Aleena]: marioroy, my @music_times = qx(find ~/Music/Albums/ -type f -iname '*.mp3' -exec mp3info -p "%S\n" {} \;); #unfixed
shmem doesn't have mp3info, but mp3info2 - which is a perl script ;-)
[marioroy]: my @music_times = qx(find \$HOME/Music/ Albums/ -type f -iname '*.mp3' -exec mp3info -p "%S\\\n" {} \\;);
[marioroy]: might need 2 or 3 backslash for \n. Also \\;
[Lady_Aleena]: shmem, there is MP3::Info/
[Discipulus]: too much complex qx when you know perl are better to avoid
[marioroy]: might need to backslash \'*.mp3\'
[marioroy]: It's a quoting issue inside qx. It's File::Find or qx. LA chooses qx. Almost there.

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2017-04-23 21:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (432 votes). Check out past polls.