2014-09-21から1日間の記事一覧
$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 wi</i>…
$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 wi</i>…
