URLから英単語を抽出するPerlスクリプト
$dbfile = "alllinks.txt"; open (I, "$dbfile") or die "Unable to open: $dbfile"; my @lines = <I>; close I; print "started"; foreach (@lines){ chomp; $url = $_; $match = "/"; $count = () = $url =~ /$match/g; #If slash is over 3 then proceeed with printing out word if ($count > 3) { $url =~ m|([^/]+)/?$|; $end_of_url = $1; $end_of_url =~ s/-/ /g; $end_of_url =~ s/_/ /g; open(OUT,">> lastword-url.txt"); print OUT "$end_of_url\n"; close(OUT); } }