Re: File Parsing

By exclude "new lines" I assume you mean "blank lines" ?

while (<>) {
  if (my $stat = /^group:/../^data:/) {
    print unless /^\s*$/ or $stat == 1 or $stat =~ /E/;
  }
}
[download]

Update:Fixed during pfaut's reply to this node :-)

Comment on Re: File Parsing Download Code

Replies are listed 'Best First'.
Re: Re: File Parsing by pfaut (Priest) on Dec 07, 2002 at 01:04 UTC
I think he only wanted the lines between the `group` and `data` lines. Your version prints out those lines.	[reply] [d/l] [select]
Re: Re: Re: File Parsing by Anonymous Monk on Dec 07, 2002 at 01:06 UTC
Yes I did, Thank You	[reply]