RetroZilla/parser/htmlparser/tests/html/UrlGen.pl
2015-10-20 23:03:22 -04:00

21 lines
283 B
Perl

#!/usr/bin/perl
use Cwd;
$curr_dir=`cd`;
open(OUTFILE,">url_list.txt") || die "Can't open url.txt $!";
opendir(D,".");
@files=readdir(D);
$curr_dir=~s/\\/\//g;
chomp($curr_dir);
foreach $file(@files) {
if($file=~m/\.htm/) {
print OUTFILE "file:///$curr_dir/$file\n";
}
}