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 18:33 | IT novinky

    Nové verze AI modelů. Společnost OpenAI představila GPT‑5.5. Společnost DeepSeek představila DeepSeek V4.

    Ladislav Hagara | Komentářů: 0
    dnes 15:33 | Zajímavý článek

    Nová čísla časopisů od nakladatelství Raspberry Pi zdarma ke čtení: Raspberry Pi Official Magazine 164 (pdf) a Hello World 29 (pdf).

    Ladislav Hagara | Komentářů: 0
    dnes 04:44 | Komunita

    Bylo oznámeno, že webový prohlížeč Opera GX zaměřený na hráče počítačových her je už také na Flathubu and Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    včera 23:11 | IT novinky

    Akcionáři americké mediální společnosti Warner Bros. Discovery dnes schválili převzetí firmy konkurentem Paramount Skydance za zhruba 110 miliard dolarů (téměř 2,3 bilionu Kč). Firmy se na spojení dohodly v únoru. O část společnosti Warner Bros. Discovery dříve usilovala rovněž streamovací platforma Netflix, se svou nabídkou však neuspěla. Transakci ještě budou schvalovat regulační orgány, a to nejen ve Spojených státech, ale také

    … více »
    Ladislav Hagara | Komentářů: 0
    včera 22:33 | Nová verze

    Canonical vydal (email, blog, YouTube) Ubuntu 26.04 LTS Resolute Raccoon. Přehled novinek v poznámkách k vydání. Vydány byly také oficiální deriváty Edubuntu, Kubuntu, Lubuntu, Ubuntu Budgie, Ubuntu Cinnamon, Ubuntu Kylin, Ubuntu Studio, Ubuntu Unity a Xubuntu. Jedná se o 11. vydání s dlouhodobou podporou (LTS).

    Ladislav Hagara | Komentářů: 2
    včera 11:55 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Gitea (Wikipedie) byla vydána v nové verzi 1.26.0. Přehled novinek v příspěvku na blogu.

    Ladislav Hagara | Komentářů: 0
    včera 04:44 | Pozvánky

    Ve středu 29. dubna 2026 se v pražské kanceláři SUSE v Karlíně uskuteční 7. Mobile Linux Hackday, komunitní setkání zaměřené na Linux na mobilních zařízeních, kernelový vývoj i uživatelský prostor. Akce proběhne od 10:00 do večerních hodin. Hackday je určen všem zájemcům o praktickou práci s Linuxem na telefonech. Zaměří se na vývoj aplikací v userspace, například bankovní aplikace, zpracování obrazu z kamery nebo práci s NFC, i na úpravy

    … více »
    lkocman | Komentářů: 1
    22.4. 21:55 | Nová verze

    LilyPond (Wikipedie) , tj. multiplatformní svobodný software určený pro sazbu notových zápisů, byl vydán ve verzi 2.26.0. Přehled novinek v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    22.4. 20:33 | Nová verze

    Byla vydána nová verze 11.0.0 otevřeného emulátoru procesorů a virtualizačního nástroje QEMU (Wikipedie). Přispělo 237 vývojářů. Provedeno bylo více než 2 500 commitů. Přehled úprav a nových vlastností v seznamu změn.

    Ladislav Hagara | Komentářů: 0
    22.4. 13:33 | IT novinky

    Společnost SpaceX amerického miliardáře Elona Muska oznámila, že si zajistila opci buď na akvizici startupu Cursor za 60 miliard dolarů (přes 1,2 bilionu Kč) do konce letošního roku, nebo na zaplacení deseti miliard dolarů za nové partnerství s touto firmou zabývající se generováním kódů. SpaceX se dále prosazuje na lukrativním trhu s vývojářskými nástroji pro umělou inteligenci (AI). Cursor, startup zabývající se prodejem modelů AI pro

    … více »
    Ladislav Hagara | Komentářů: 2
    Které desktopové prostředí na Linuxu používáte?
     (14%)
     (8%)
     (2%)
     (13%)
     (31%)
     (3%)
     (6%)
     (2%)
     (15%)
     (25%)
    Celkem 1408 hlasů
     Komentářů: 30, poslední 3.4. 20:20
    Rozcestník

    Dotaz: mini script - error

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

    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.