#!/usr/bin/perl -w $dir = "$ENV{HOME}/.web"; $file = "$dir/title.txt"; @title = (); open IN, $file or die; while () { @_ = split /\s+|<>/, $_, 2; push @title, $_[0]; } close IN; chdir $dir or die; @dat = `find *.2ch.net *.bbspink.com -name \\*.dat`; print "\n"; foreach $d (@dat) { chop $d; $d =~ s|^\./||; $d = "http://$d"; print "$d
\n" unless (grep $d eq $_, @title); } print "\n";