OT: Perlovský problém

[Matej Cepl <matej zavinac ceplovi bod cz>]

Dobrý den,

pokouším se udělat skriptík na výpis aktuálních verzí balíčků na
debianu (nechce se mi stahovat testing and unstable pomocí
apt-get po modemu, když potřebuji jenom několik balíčků)
a strašlivě bojuji s vytvořením správné konstrukce. Konkrétně se
mi jedná o toto

        $progname = "lynx";
        $progargs = "-dump -nolist -force_html ";
        $prog = "$progname $progargs";
        # Následující řádka ve skutečnosti není zlomená
        $consturl  = 'http://packages.debian.org/cgi-bin/search_packages.pl\
        ?keywords=';
        $resturl   = '&searchon=names&subword=0&version=all&release=all';

        sub checkpackage {
                my $name = shift(@_);
                print STDERR "$name\n";
                chomp $name; $name =~ s/^\s*(.*?)\s*$/$1/;
                my $outstr = "$name: ";
                my $cmd = ¨$prog $consturl $name $resturl";
                open(SEARCH,"$cmd|");
                while (<SEARCH>) {
                        chomp;
                        s/\s+/ /g;
                        if (m/^\s*(stable|testing|unstable) (.*) 
(.*)\s+(.*?)$/) {
                                $outstr .= "$1=$3, ";
                                }
                        }
                close(SEARCH);
                $outstr = substr($outstr,0,-2);
                return($outstr);
        }

Mořím se s perlovskou expanzí jak šílenec a nějak to furt nemohu
vyladit. Poradíte někdo?

Omlouvám se za OT, ale připadlo mi škoda se kvůli tomuhle
přihlašovat do nějaké nové konference.

Díky,

        Matěj



-- 
Matej Cepl, matej zavinac ceplovi bod cz, PGP ID# D96484AC
138 Highland Ave. #10, Somerville, Ma 02143, (617) 623-1488
 
To err is human, to purr feline.