Re: extracting lines

Try unless instead of if.

print OUT unless (/phn_a/ .. /1ord/);
[download]

UPDATE: more detailed:

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
  print unless (/phn/ .. /1ord/);
}

__DATA__
black
# input phn
blue
red
green
# 1ord
yellow
white
[download]

Comment on Re: extracting lines Select or Download Code

Replies are listed 'Best First'.
Re^2: extracting lines by Anonymous Monk on Jul 02, 2004 at 10:43 UTC
this appears to print everything in the file, no change	[reply]
Re^3: extracting lines by Anonymous Monk on Jul 02, 2004 at 10:46 UTC
sorry just seen the update	[reply]
Re^4: extracting lines by Anonymous Monk on Jul 02, 2004 at 10:51 UTC
only problem here, is that it omits everything e.g `# phn .. .. # xxxxx # phn .. .. # 1ord` [download] so here the code would onit both rather than just the second?	[reply] [d/l]
Re^5: extracting lines by neniro (Priest) on Jul 02, 2004 at 11:02 UTC