Napravio sam mini skriptu koja treba da okrene textualni fajl unazad(slijeva udesno). Sve je u redu dok procesiram fajl koji je na lokalnoj masini, ali kada to pokusam na internetu - kaze: no such file or directory. Takodjer bih volio da pretrazujem internet na sljedeci nacin: ja fiksiram file npr: http://www.nekisajt.net , i unesem frazu npr: "ormar" . Postoji li skripta koja ce pretraziti taj sajt i reci mi postoji li ta fraza na toj web strani ili ne?
Evo skripte koju sam pravio a radi samo na lokalnoj masini:
#ako stavim 'proba.txt' (postojeci fajl u current direktoriju)onda radi
$file = "http://www.yahoo.com"; open (INFO, $file) or die "Can't open $file: $!";
while ( $line = <INFO> ) {
chomp $line;
$linecount +=1;
@ltrlist = split('', $line);
$ltrcount += @ltrlist;
@wordlist = split(' ', $line);
$wordcount += @wordlist;
push(@linelist, reverse @ltrlist);
push(@linelist,"\n");
}
foreach $line (@linelist) {
print "$line";
}
print "words: $wordcount lines : $linecount letters : $ltrcount";
-Grunf-