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 19:00 | IT novinky

    Framework [ Next Gen ] Event 2026, dnes v 19:30 společnost Framework na YouTube něco představí.

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

    Byl vydán Mozilla Firefox 150.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 150 bude brzy k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    dnes 17:22 | Zajímavý software

    Byl představen (reddit, 𝕏) webový prohlížeč Brave Origin. Jedná se webový prohlížeč Brave bez VPN, krypto peněženky a odměn, tj. bez funkcí, ze kterých je vývoj Brave financován. Stojí jednorázově 59,99 dolarů. Verze pro Linux je zdarma.

    Ladislav Hagara | Komentářů: 1
    dnes 12:44 | IT novinky

    Tim Cook po 15 letech opustí post generálního ředitele americké technologické společnosti Apple. Od 1. září ho vystřídá John Ternus, který byl dosud odpovědný za hardware. Cook se stane předsedou představenstva. Cook vedl Apple od roku 2011, kdy funkci převzal od zesnulého spoluzakladatele společnosti Stevea Jobse.

    Ladislav Hagara | Komentářů: 1
    dnes 12:33 | Humor

    Evropská aplikace na ověřování věku uživatelů lze hacknout během dvou minut, navzdory tvrzením předsedkyně Evropské komise Uršuly von der Leyenové, že je tato aplikace 'technicky připravená pro ostré nasazení' a 'splňuje nejvyšší standardy ochrany osobních údajů na světě'. Zdrojové kódy aplikace byly Bruselem zveřejněny v repozitářích na GitHubu.

    MakeIranBombedAgain❗ | Komentářů: 4
    včera 15:33 | IT novinky

    Po 26 letech od protiprávního policejního zásahu, který byl spuštěn na základě podnětu společnosti Microsoft, Obvodní soud pro Prahu 2 rozsudkem potvrdil, že Mironet prokázal významnou část svého nároku na náhradu škody vůči Ministerstvu spravedlnosti ČR. Soudem nyní přiznaná část nároku znamená rekordní odškodné, jaké kdy české soudy přiznaly za nesprávný postup státu. Spor byl rozdělen na několik škod, u pravomocně uzavřených částí

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

    Lehké desktopové prostředí LXQt bylo vydáno ve verzi 2.4.0. Jde o převážně opravné vydání s drobnými vylepšeními podpory Waylandu.

    |🇵🇸 | Komentářů: 0
    včera 12:44 | IT novinky

    Počítačová hra Kingdom Come: Deliverance 2 českého studia Warhorse získala cenu BAFTA v kategorii nejlepší příběh. V konkurenci pěti dalších nominovaných děl porazila i úspěšnou francouzskou hru Clair Obscur: Expedition 33, která v letošním ročníku získala cenu za nejlepší hru roku.

    Ladislav Hagara | Komentářů: 1
    včera 12:22 | Komunita

    Projekt KDE oslaví v říjnu 30 let. Matthias Ettrich poslal 14. října 1996 do diskusní skupiny comp.os.linux.misc zprávu, která započala historii projektu. Důležité milníky jsou zobrazeny na časové ose KDE.

    Ladislav Hagara | Komentářů: 2
    včera 02:55 | Komunita

    Byly vyhlášeny výsledky letošní volby vedoucí/ho projektu Debian (DPL, Wikipedie). Poprvé povede Debian žena. Novou vedoucí je Sruthi Chandran. Letos byla jedinou kandidátkou. Kandidovala již v letech 2020, 2021, 2024 a 2025. Na konferenci DebConf19 měla přednášku Is Debian (and Free Software) gender diverse enough?

    Ladislav Hagara | Komentářů: 16
    Které desktopové prostředí na Linuxu používáte?
     (14%)
     (8%)
     (1%)
     (12%)
     (30%)
     (3%)
     (6%)
     (2%)
     (15%)
     (25%)
    Celkem 1373 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.