Re^3: file parsing

Could still do with some more info. :-)

Is there a pattern in what you want to keep? It would be easier that way round. Also in your "end marker" there is a closing div and a closing table. What do the opening tags look like? Are there any identifiable attributes?

Comment on Re^3: file parsing

Replies are listed 'Best First'.
Re^4: file parsing: Solution by catch22 (Initiate) on Jul 15, 2008 at 17:14 UTC
Thanks, Was able to solve this using a combination of code from here and the internet in general, and marked the code I wanted to keep. `opendir (DIR, "/your/directory/here/") or die "$!"; my @files = grep {/.extention to search/} readdir DIR; close DIR; foreach my $file (@files) { open(FH,"/your/directory/here/$file") or die "$!"; while (<FH>){ print $_ if m{text to keep, start} .. m{text to keep, end}; } close(FH); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: file parsing: Solution
by catch22 (Initiate) on Jul 15, 2008 at 17:14 UTC

opendir (DIR, "/your/directory/here/") or die "$!";
my @files = grep {/.extention to search/}  readdir DIR;
close DIR;
foreach my $file (@files) {
   open(FH,"/your/directory/here/$file") or die "$!";
   while (<FH>){ 
     print $_ if m{text to keep, start} .. m{text to keep, end};
   }
   close(FH);
}
[download]

[reply]
[d/l]