[ jandearc @ 04.07.2003. 15:47 ] @
Vozdra, 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"; |