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 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 0
dnes 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 1
dnes 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
dnes 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
dnes 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

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

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
dnes 00:08 | Pozvánky

V sobotu 18. 2. se v Praze v prostorách VŠE uskuteční od 9:30 již 4. ročník největší české konference o open source redakčním systému WordPress (WP) - WordCamp Praha 2017.

… více »
smíťa | Komentářů: 0
včera 23:58 | Komunita

Kryptoměnová komunita zahájila nový rok spuštěním projektu Blockchain.cz, jehož cílem je kolektivně nalézt ideální překlad pro čím dál frekventovanější slovo „blockchain“. Přispět návrhem může kdokoli. Sběr bude trvat až do konce září 2017. Následně bude probíhat dvoutýdenní veřejné hlasování, které bude zakončeno výběrem toho nejlepšího návrhu.

xHire | Komentářů: 8
včera 15:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno je celkově 270 bezpečnostních chyb. V Oracle Java SE je například opraveno 17 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 16 z nich. V Oracle MySQL je opraveno 27 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 5 z nich.

Ladislav Hagara | Komentářů: 0
včera 02:48 | Nová verze

Po půl roce od vydání verze 9.0 (zprávička) byla vydána verze 10.0 zvukového serveru PulseAudio. Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 31
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (10%)
Celkem 339 hlasů
 Komentářů: 24, poslední 17.1. 10:14
    Rozcestník
    Reklama

    Dotaz: mini script - error

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

    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: 28 | 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.
    I think warning here is a bug. The biggest cloud service provider. 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: 28 | 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.
    I think warning here is a bug. The biggest cloud service provider. 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.