Nasosam jednu skriptu na
http://www.osmagazin.co.yu (sta se desava sa OS Magazinom?)
i sad problem je kad je izvrsim dobijem sledecu poruku
zivan@torpedo:~/Desktop/svastara$ ./svastara_skripta
Global symbol "$buf" requires explicit package name at ./svastara_skripta line 10.
Global symbol "$buf" requires explicit package name at ./svastara_skripta line 13.
Execution of ./svastara_skripta aborted due to compilation errors.
zivan@torpedo:~/Desktop/svastara$
skripta izgleda vako
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
for (my $i = 1; $i < 14882; $i++)
{ # Prvo pokupimo html sa Svaštare my $buf = get "
http://www.svastara.com/muzika/?tekst=$i";
# Onda preuzmemo autora i naslov
$buf =~ /<title>Svaštara Muzika:\s(.+)<\/title>/;
my ($autor, $naslov) = split (/ - /, $1);
# A zatim i tekst
$buf =~ /main_content(.+)class="text">(.+)<\/p>/s;
my $tekst = $2;
$tekst =~ s/<br>/\n/g;
my $fajl = lc("$autor - $naslov.txt");
# Napravimo fajl sa tekstom
open (OUTF, ">$fajl");
print OUTF $tekst;
close (OUTF);
my $stari_fajl = $fajl;
for ($fajl)
{
s/š/s/g;
s/ć/c/g;
s/č/c/g;
s/đ/dj/g;
s/ž/z/g;
}
# A zatim i simbolički link bez naših slova
system ("ln -s \"$stari_fajl\" \"$fajl\"") if ($stari_fajl ne $fajl);
print "$i od 14882\n";
}
izgleda da trazi neko paket, ali koji?
ako moze neko da mi pomogne posto se nerazumem u programiranje.
