Wow! that cleanup is fast! I can't script *that* fast :)
Here's a short script that will easily find the links (message thread start) for a subject (given as PCRE)
a5:/u/usr/merijn/tmp/itrc 121 > subject perl
106 Perl socket-daemon example
http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x6c271440f1ddae4d83b5eaf2c79d6c9a,00.html 58 HP OC SS7 Platform Config can't find perl
http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0xffcf039c342d9c45b3a0fcae787d5f40,00.html 106 How to capture telnet output using shell/perl scri
http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x0ae187ea4cc3654096a531ef8fb3ba7a,00.html 133 perl 5.8 and DBI 1.37 and DBD-Oracle 1.14
http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x31dd07449c204140bdc7c16d81e0ae0e,00.html 82 newest perl version
http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x3640ae0ef233c545aeee5d626870a9e6,00.html 88 GCC & perl plans
http://forums.itrc.hp.com/cm/QuestionAnswer/1,,0x629aafe90f1cd71190050090279cd0f9,00.htmla5:/u/usr/merijn/tmp/itrc 122 >
a5:/u/usr/merijn/tmp/itrc 122 > cat subject
#!/pro/bin/perl
# ITRC-subject pattern
use strict;
use warnings;
my $pat = qr{$ARGV[0]}i;
@ARGV = map {
"lynx -dump '
http://forums.itrc.hp.com/cm/FamilyHome/1,,117!1!$_,00.html |"
} 1 .. 10;
my %l;
while (<>) {
if (my @x = split m/\[(\d+)]/) {
@x % 2 and shift @x;
while (my @y = splice @x, 0, 2) {
$y[1] =~ $pat or next;
$l{$y[0]} = $y[1];
}
}
m/^\s*(\d+)\.\s+(\S+)/ or next;
exists $l{$1} or next;
printf "%4d %-50.50s %s\n", $1, $l{$1}, $2;
delete $l{$1};
}
a5:/u/usr/merijn/tmp/itrc 123 >
And yes, I know I should use HTML modules, but I don't have them installed, and lynx is soooooo darn handy :)
Enjoy, have FUN! H.Merijn
Enjoy, Have FUN! H.Merijn
