Re: read multi lines of a file in perl

The logic of your code is wrong: your print will only happen when the line contains /process/. Try:

local $_;
while(<WORDLIST>)
{   last if /process/;
}
while(<WORDLIST>)
{   print;
    last if /end process/;
}
[download]

(many more compact notations for the same exist)

Comment on Re: read multi lines of a file in perl Download Code

Replies are listed 'Best First'.
Re^2: read multi lines of a file in perl by sharan (Acolyte) on Nov 05, 2008 at 14:31 UTC
Hi Markov, Thanks for ur reply.. But i still have a small problem.. as this is able to check for only one loop and not repeated loop.. eg `process lkhls ksjhfk end process process kfhls kfh end process` [download] i want output as `ksjhfk kfh` [download] Thanks....	[reply] [d/l] [select]
Re^3: read multi lines of a file in perl by binf-jw (Monk) on Nov 05, 2008 at 15:33 UTC
Do this if what only what you require is the bit between: `print grep { !/process/ } <>;` [download] `perl <script>.pl <input>.txt` [download] prints `ksjhfk kfh` [download] You could also put this in an array `my @process = grep { !/process/ } <>;` [download] However this would just be each element for each line. If you wanted them grouped you need something more complex using assertions ( if you do it the inefficent way like i have ) John, UPDATE: This would group them `{ local undef $/; print split /process \s \w+ (.+?) end \s process/xms, <>; }` [download] P.S. Don't actually use these methods of doing it, There just other ways to do it.	[reply] [d/l] [select]