Odštampaj stranicu - Problem sa Perl skriptom

Linuxo Forumi

Linux => Programiranje => Temu započeo: pyropingvin 13 Децембар 2006, 18:11:05



Naslov: Problem sa Perl skriptom
Poruka od: pyropingvin 13 Децембар 2006, 18:11:05
Nasosam jednu skriptu na http://www.osmagazin.co.yu (http://www.osmagazin.co.yu) (sta se desava sa OS Magazinom?)
i sad problem je kad je izvrsim dobijem sledecu poruku

Citat
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

Citat
#!/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.


Naslov: Odg: Problem sa Perl skriptom
Poruka od: LimitMan 18 Децембар 2006, 00:55:31
pa nije ni cudo kad si komentarisao

my $buf = get "http://www.svastara.com/muzika/?tekst=$i";

udari samo jedan enter ispred!

Inace, nemam LWP instaliran (pre neki dan mi puko hdd pa sam morao da reinstaliram linux) ali ima tu jos sumnjivih stvari ... Probaj pa javi


Naslov: Odg: Problem sa Perl skriptom
Poruka od: pyropingvin 20 Децембар 2006, 16:36:48
Sada radi osim sto od vreme na vreme izadje sledeca poruka

Citat
648 od 14882
649 od 14882
650 od 14882
Use of uninitialized value in substitution (s///) at ./svastara_skripta line 16.Use of uninitialized value in concatenation (.) or string at ./svastara_skripta line 17.
Use of uninitialized value in print at ./svastara_skripta line 20.
651 od 14882
652 od 14882
653 od 14882

mada mislim da nije nesto mnogo vazno.

Hvala na odgovor


Powered by SMF 1.1.9 | SMF © 2005, Simple Machines LLC | Srpski prevod uredio: tomaja [linuxo.org]
Joomla Bridge by JoomlaHacks.com