abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 16:22 | Nová verze

    Open source softwarový stack ROCm (Wikipedie) pro vývoj AI a HPC na GPU od AMD byl vydán ve verzi 7.0.0. Přidána byla podpora AMD Instinct MI355X a MI350X.

    Ladislav Hagara | Komentářů: 0
    dnes 15:22 | Nová verze

    Byla vydána nová verze 258 správce systému a služeb systemd (GitHub).

    Ladislav Hagara | Komentářů: 0
    dnes 15:11 | Nová verze

    Byla vydána Java 25 / JDK 25. Nových vlastností (JEP - JDK Enhancement Proposal) je 18. Jedná se o LTS verzi.

    Ladislav Hagara | Komentářů: 0
    dnes 14:44 | Humor

    Věra Pohlová před 26 lety: „Tyhle aféry každého jenom otravují. Já bych všechny ty internety a počítače zakázala“. Jde o odpověď na anketní otázku deníku Metro vydaného 17. září 1999 na téma zneužití údajů o sporožirových účtech klientů České spořitelny.

    Ladislav Hagara | Komentářů: 0
    dnes 11:33 | Zajímavý článek Ladislav Hagara | Komentářů: 0
    včera 21:44 | Nová verze

    Byl vydán Mozilla Firefox 143.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Nově se Firefox při ukončování anonymního režimu zeptá, zda chcete smazat stažené soubory. Dialog pro povolení přístupu ke kameře zobrazuje náhled. Obzvláště užitečné při přepínání mezi více kamerami. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 143 bude brzy k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    včera 17:22 | Nová verze

    Byla vydána betaverze Fedora Linuxu 43 (ChangeSet), tj. poslední zastávka před vydáním finální verze, která je naplánována na úterý 21. října.

    Ladislav Hagara | Komentářů: 0
    včera 12:22 | Nová verze

    Multiplatformní emulátor terminálu Ghostty byl vydán ve verzi 1.2 (𝕏, Mastodon). Přehled novinek, vylepšení a nových efektů v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    včera 00:11 | Nová verze

    Byla vydána nová verze 4.5 (𝕏, Bluesky, Mastodon) multiplatformního open source herního enginu Godot (Wikipedie, GitHub). Přehled novinek i s náhledy v příspěvku na blogu.

    Ladislav Hagara | Komentářů: 0
    15.9. 21:33 | Nová verze

    Byla vydána verze 3.0 (Mastodon) nástroje pro záznam a sdílení terminálových sezení asciinema (GitHub). S novou verzí formátu záznamu asciicast v3, podporou live streamingu a především kompletním přepisem z Pythonu do Rustu.

    Ladislav Hagara | Komentářů: 0
    Jaké řešení používáte k vývoji / práci?
     (50%)
     (100%)
     (0%)
     (0%)
     (0%)
     (17%)
     (33%)
     (0%)
     (17%)
    Celkem 6 hlasů
     Komentářů: 1, poslední dnes 13:49
    Rozcestník

    Dotaz: mini script - error

    23.5.2009 15:26 beginer666 | skóre: 9
    mini script - error
    Přečteno: 190×

    Zdravim všechny.

    Potřeboval bych poradit/postrčit, kde mám chybičku v malém scriptíčku. ((: .... >.<

    Tady je:

    <PRE>

    #!/usr/bin/perl
    use strict;
    use warnings;
    use Net::CIDR::Lite;

    my $ipv4String='[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}';

    if(defined $ARGV[0] && $ARGV[0] eq '-h'){
    print "usage: $0

    This script summarizes your IP classes (if possible). Input IPs with mask one per line. End with CTRL+D. Optionally,

    redirect a file to stdin like so:
    $0 < cidr =" Net::CIDR::Lite-">new;

    while(<>){
    if(/($ipv4String\/[0-9]{1,2})/){
    my $item=$1;
    $cidr->add($item);
    }
    else{
    print "Ignoring previous line.\n";
    }
    }
    my @cidr_list = $cidr->list;
    print "======Aggregated IP list:======\n";
    foreach my $item(@cidr_list){
    print "$item\n";
    }
     

     

    Kdyz to spustim tak mi to píše tohle:

    Bareword found where operator expected at ./summarisation.pl line 12, near "$0 < cidr =" Net::CIDR::Lite"
      (Might be a runaway multi-line "" string starting on line 9)
            (Missing operator before Net::CIDR::Lite?)
    String found where operator expected at ./summarisation.pl line 24, near "print ""
      (Might be a runaway multi-line "" string starting on line 20)
            (Missing semicolon on previous line?)
    String found where operator expected at ./summarisation.pl line 26, near "print ""
      (Might be a runaway multi-line "" string starting on line 24)
            (Missing semicolon on previous line?)
    Backslash found where operator expected at ./summarisation.pl line 26, near "$item\"
            (Missing operator before \?)
    String found where operator expected at ./summarisation.pl line 26, at end of line
            (Missing semicolon on previous line?)
    syntax error at ./summarisation.pl line 12, near "$0 < cidr =" Net::CIDR::Lite"
    Global symbol "$item" requires explicit package name at ./summarisation.pl line 26.
    Can't find string terminator '"' anywhere before EOF at ./summarisation.pl line 26.
     

     </PRE>

    Předem děkuji

     

     

     

    Odpovědi

    23.5.2009 18:17 marbu | skóre: 31 | blog: hromada | Brno
    Rozbalit Rozbalit vše Re: mini script - error
    Nechápu, co má dělat tento rádek:
    $0 < cidr =" Net::CIDR::Lite-">new;
    Btw a taky nějak rozumě odsazovat není na škodu, pak se ti nemůže stát, že zapomeneš závorku.
    There is no point in being so cool in a cold world.
    23.5.2009 19:31 beginer666 | skóre: 9
    Rozbalit Rozbalit vše Re: mini script - error

    To má dělat to, že co vložíš z klávesnice po spustění scriptu přidá jako object new.

    Podrobnosti zde: http://search.cpan.org/dist/Net-CIDR-Lite/Lite.pm

    V perlu moc neumim, takže je možný že tam fakt někde chybí závorka či něco jinýho, akorát nejsem schopnej říct kde a co?

    Takže jestli víš, budu rád když mi to prozradíš...

     

    Díky

    23.5.2009 20:06 marbu | skóre: 31 | blog: hromada | Brno
    Rozbalit Rozbalit vše Re: mini script - error
    No, ono totiž tak jak to tam máš nedává moc smysl. Jednak první if není imho ukončen správně, a pak u výpisu nápovědy bys měl ten řetězec nějak normálně ukončit a pak ten zbytek (my $cidr = Net::CIDR::Lite->new;) hodit na samostatnou řádku, takhle nemáš vůbec proměnou $cidr definovanou. Tím zrušíš ten řádek, na který jses se tě ptal. Dobré taky bývá po zobrazení nápovědy skript ukončit.
    There is no point in being so cool in a cold world.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.