Re: Head comments parsing

Hey ;))

Something like this ?:

while (<INPUTFILE>)
{
 last if $HeaderLines==$.;
 ProcessHeader($_);
};
[download]

If you know how many lines there are in the header
you can just set $HeaderLines to that...($. will be set to the current
line number during each read (I`m assuming you`re using \n as a delimiter))

Since you didn`t mention any other header-delimeter or tags, and said `top of the file`...
that would be my guess

GreetZ!,

ChOas
print "profeth still\n" if /bird|devil/;

Comment on Re: Head comments parsing Download Code

Replies are listed 'Best First'.
Re: Re: Head comments parsing by toadi (Chaplain) on May 18, 2001 at 15:11 UTC
Ok... See i know how to parse te header... But i only want the top of the file being parsed!!! eg for perl: `#!/usr/bin/perl -w # # Comment's about the file ... # ########################################### # Need this ... use strict;` [download] IMHO opninion it can't be safely done because there is now way every comment structure is the same... -- My opinions may have changed, but not the fact that I am right	[reply] [d/l]
Re: Re: Re: Head comments parsing by davorg (Chancellor) on May 18, 2001 at 15:23 UTC
`# Assume that the header is all the first block of commented # lines and that the first non-comment line ends the # header block while (<OLDFILE>) { last unless is_comment($filetype, $_); } # Print new header to new file print NEWFILE new_header($filetype); # Print the rest of the file while (<OLDFILE>) { print NEWFILE $_; }` [download] -- <http://www.dave.org.uk> "Perl makes the fun jobs fun and the boring jobs bearable" - me	[reply] [d/l]


Perl: the Markov chain saw
	PerlMonks