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í
×

    včera 17:11 | Bezpečnostní upozornění

    Zero Day Initiative zveřejnila informace o 6 bezpečnostních chybách (1, 2, 3, 4, 5, 6) v MTA Exim. Nejvážnější z nich CVE-2023-42115 má CVSS 9.8. Na opravě chyb se pracuje.

    Ladislav Hagara | Komentářů: 6
    včera 16:33 | Bezpečnostní upozornění

    Knihovna libvpx byla vydána ve verzi 1.13.1. Řešena je kritická bezpečnostní chyba CVE-2023-5217 (heap buffer overflow in vp8 encoding). Chyba je již opravena také v Chrome / Chromium 117.0.5938.132 a Firefoxu 118.0.1.

    Ladislav Hagara | Komentářů: 0
    29.9. 23:55 | Nová verze

    Balíček kmod s nástroji pro práci s linuxovými moduly byl vydán ve verzi 31. Nově umí modprobe zavést modul nacházející se v libovolném adresáři (# modprobe ./drivers/gpu/drm/i915/i915.ko).

    Ladislav Hagara | Komentářů: 0
    29.9. 23:11 | IT novinky

    Adventura Trüberbrook je na portále GOG.com zdarma, akce trvá do 2. října.

    Fluttershy, yay! | Komentářů: 0
    29.9. 12:44 | Nová verze

    Sound Open Firmware, projekt Linux Foundation, open source audio DSP firmware a SDK, byl vydán ve verzi 2.7.0. Z novinek lze vypíchnout podporu platformy AMD Van Gogh.

    Ladislav Hagara | Komentářů: 0
    29.9. 12:22 | Komunita

    Richard Stallman v den oslav 40. výročí GNU oznámil, že má rakovinu (YouTube).

    Ladislav Hagara | Komentářů: 55
    29.9. 08:00 | Zajímavý projekt

    DIY trackball Ploopy novou variantu Adept, na rozdíl od předchozích používá 44mm kouli, má symetrický tvar a šest tlačítek, snímač zůstává PMW-3360, novinkou je použití Raspberry Pi Pico, na kterém běží firmware QMK s podporou grafické konfigurační aplikace VIA. Předobjednávky jsou otevřeny za ceny 80-105 CAD.

    Fluttershy, yay! | Komentářů: 0
    28.9. 15:22 | IT novinky

    Probíhá Meta Connect 2023. Společnost Meta představuje své novinky v oblasti AI a virtuální, smíšené a rozšířené reality. Představeny byly nové chytré brýle Ray-Ban | Meta a headset Meta Quest 3.

    Ladislav Hagara | Komentářů: 0
    28.9. 12:00 | IT novinky

    Eben Upton oficiálně představil (YouTube) nové Raspberry Pi 5 (YouTube). Je více než 2x výkonnější než jeho předchůdce, model 4B.

    Ladislav Hagara | Komentářů: 12
    28.9. 08:00 | Nová verze

    Byl vydán (YouTube) Counter-Strike 2. Nativně také pro Linux. Jedná se o největší technologický skok v historii této populární herní série.

    Ladislav Hagara | Komentářů: 13
    Raději
     (60%)
     (40%)
    Celkem 10 hlasů
     Komentářů: 1, poslední dnes 07:28
    Rozcestník

    Dotaz: Perl a regularni vyraz

    8.11.2005 14:25 kafi | skóre: 25 | blog: muj_prvni_blog
    Perl a regularni vyraz
    Přečteno: 162×
    Zdravim vsechny, mam problem s regularnim vyrazem v perlu. Potrebuju kontrolovat spravnost zadani IP adresy. A mam tedy zadano:
    if (! $ip_adresa~=/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
         {
          print "SPatne zadana IP!";
          exit 2;
         }
    else {
          /neco
         }
    

    Tento zapis bohuzel nefunguje. Vyhovi i spatne zadane IP adrese.

    Odpovědi

    8.11.2005 14:39 mmm
    Rozbalit Rozbalit vše Re: Perl a regularni vyraz
    if ($ip_adresa =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ ) {
            # OK
    } else {
            # BAD
    }
    
    8.11.2005 14:41 mmm
    Rozbalit Rozbalit vše Re: Perl a regularni vyraz
    alebo:
    if (! ($ip_adresa =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) ) {
            # BAD
    } else {
            # OK
    }
    
    8.11.2005 14:48 kafi | skóre: 25 | blog: muj_prvni_blog
    Rozbalit Rozbalit vše Re: Perl a regularni vyraz
    Moc dekuji, takova prkotina. Jedna zavorka a co udela.
    8.11.2005 14:45 alex
    Rozbalit Rozbalit vše Re: Perl a regularni vyraz
    Operator m/regexp/ vyzaduje =~, ne ~=.
    $ip_adresa =~ /regexp/ or die "Spatne zadana IP!";
    #pokracovani
    
    Navic, vas regulerni vyraz propousti i takove adresy: 999.888.777.666. Jednoduche \d{1,3} pro tyto ucely nestaci.
    8.11.2005 15:21 kafi | skóre: 25 | blog: muj_prvni_blog
    Rozbalit Rozbalit vše Re: Perl a regularni vyraz
    Ona cela ta podminka na kontrolovani vypada nasledovne
    if (! ($ip_adresa =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) )
        {    
         print "Chybna IP adresa!";
         print LOG_FILE "Spatne zadana IP=$ipadresa!\n";
         $stav=1;&konec;
        }
       else
        {
         @kont_ip=split (/\./,$ip_adresa);
          foreach $ip (@kont_ip)
          	{
    	   if ($ip >= 255)
    	     {
    	       print LOG_FILE "Satne zadana IP=$ip_adresa!\n";
    	       $stav=1;&konec;
    	     }
    	}

    Nic extra ale funguje. Jeste by se dalo vylepsit. Ale neni cas.

    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.