All pastes #405442 Raw Edit

Stuff

public text v1 · immutable
·published 2007-03-21 19:17 UTC
rendered paste body
#!/usr/bin/perl

open FFF, "ow_n.html";
my @f= <FFF>;
close FFF;
my $doc= join '', @f;

$doc =~ m|table[^\n]*\n|g;
while($doc =~ m|<b>(\w+)</b><br><i>(\w+).</i>([^\<]*)<|g ) {
    my ($word, $type, $def)= ($1, $2, $3);
    $def =~ s/,\s*$//;
    $def =~ s/\s*\-\s*//;
    print join '  ',($word, $type, $def), "\n";
}