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

    Google postupně zpřístupňuje českým uživatelům Režim AI (AI Mode), tj. nový režim vyhledávání založený na umělé inteligenci. Režim AI nabízí pokročilé uvažování, multimodalitu a možnost prozkoumat jakékoliv téma do hloubky pomocí dodatečných dotazů a užitečných odkazů na weby.

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

    Programovací jazyk Python byl vydán v nové major verzi 3.14.0. Podrobný přehled novinek v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 2
    včera 16:33 | IT novinky

    Bylo oznámeno, že Qualcomm kupuje Arduino. Současně byla představena nová deska Arduino UNO Q se dvěma čipy: MPU Qualcomm Dragonwing QRB2210, na kterém může běžet Linux, a MCU STM32U585 a vývojové prostředí Arduino App Lab.

    Ladislav Hagara | Komentářů: 1
    včera 15:55 | Nová verze

    Multiplatformní open source voxelový herní engine Luanti byl vydán ve verzi 5.14.0. Podrobný přehled novinek v changelogu. Původně se jedná o Minecraftem inspirovaný Minetest v říjnu loňského roku přejmenovaný na Luanti.

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

    Byla vydána nová stabilní verze 6.10 (YouTube) multiplatformního frameworku a GUI toolkitu Qt. Podrobný přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    6.10. 23:55 | Komunita

    Ubuntu 26.04 LTS bude (𝕏) Resolute Raccoon (rezolutní mýval).

    Ladislav Hagara | Komentářů: 3
    6.10. 21:00 | Nová verze

    Netwide Assembler (NASM) byl vydán v nové major verzi 3.00. Přehled novinek v poznámkách k vydání v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    6.10. 20:11 | Komunita

    Linuxová distribuce Frugalware (Wikipedie) ke konci roku 2025 oficiálně končí.

    Ladislav Hagara | Komentářů: 0
    6.10. 17:22 | Nová verze

    Byla vydána nová verze 3.0.6 svobodné aplikace pro úpravu a vytváření rastrové grafiky GIMP (GNU Image Manipulation Program). Přehled novinek v oznámení o vydání a v souboru NEWS na GitLabu. Nový GIMP bude brzy k dispozici také na Flathubu.

    Ladislav Hagara | Komentářů: 0
    6.10. 16:11 | IT novinky

    Americký výrobce čipů AMD uzavřel s americkou společností OpenAI smlouvu na několikaleté dodávky vyspělých mikročipů pro umělou inteligenci (AI). Součástí dohody je i předkupní právo OpenAI na přibližně desetiprocentní podíl v AMD.

    Ladislav Hagara | Komentářů: 1
    Jaké řešení používáte k vývoji / práci?
     (39%)
     (46%)
     (15%)
     (17%)
     (21%)
     (15%)
     (18%)
     (16%)
     (16%)
    Celkem 192 hlasů
     Komentářů: 13, poslední dnes 07:41
    Rozcestník

    Dotaz: mini script - error

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

    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.