in reply to Using grep to pick out lines in a text file

This could be a useful if you are wondering the solution with minimal number of lines. 
open( INPUTFILE, "<WordNet.txt" ) or die "$!";

open( OUTPUTFILE, ">>WordNetTest2.txt" ) or die "$!";

grep {  /adj:/ and print OUTPUTFILE $prev,$_;$prev=$_  } (<INPUTFILE>)
+;

[download]

Replies are listed 'Best First'.
Re^2: Using grep to pick out lines in a text file
by lostjimmy (Chaplain) on Dec 19, 2008 at 16:28 UTC

    I disagree that this is at all helpful for someone who is just picking up the language (and programming at that!).

    Also, isn't grep going to read in the entire contents of the file? That is completely unnecessary for this task.

[reply]
[d/l]

In Section Seekers of Perl Wisdom