Parse multiple files...

[drjay]

I feel like a goon. I had a script that would do this but I deleted it long ago without even thinking. Please if someone could help I would REALLY appreciate it.

I'm looking for a script that will read all of the files in a directory and pull the data between two sets of tags and put it in a tab delimited file. Such as, find:

<span class."inv">(.+?)<\/span>
-AND-
<td class."lister">(.+?)<\/td>

Then write to a new file: $1 \t $2 \n (not sure if that's right)

If you're sitting on a script that does something similar I can probably edit it for my use, I just can't flat-out write it yet. Please and thank you!

[eWish]

Please try and code it yourself and if you get stuck the we will be glad to assist you. Look into using the HTML::Parser.

--Kevin

[drjay]

$dir = "c:\\script";
$outdir = "c:\\newfiles";
 
### DO NOT EDIT BELOW ###
$i=1;
print "Opening $dir\n";
opendir(DH,$dir);
while (defined ( my $filename = readdir(DH))) {
    $outfilename=">\\$outdir\\$filename";
    print "Opening $filename\n";
    open(FHI,$filename);
    while (<FHI>) {
        $html .= $_;
    }
    close(FHI);
 
    while ($html =~ s/<span2>(.+?)<\/span2>/$1/) {
    $i++;
    }
    print "$i matches found in $filename\n";
    print "Saving to $outfilename\n";
    open(FHO, $outfilename);
    print FHO ($html);
    close(FHO);
}
print "Done\n";

Problem is it tries to open everything (even the . and .., lol), claims to have found the tags in everything, claims to save it to another file, but has succeeded in none of it.