Debian dnes slaví 32 let. Ian Murdock oznámil vydání "Debian Linux Release" 16. srpna 1993.
Policisté zadrželi odsouzeného drogového dealera Tomáše Jiřikovského, který daroval ministerstvu spravedlnosti za tehdejšího ministra Pavla Blažka (ODS) bitcoiny v miliardové hodnotě, a zajistili i darovanou kryproměnu. Zadržení Jiřikovského může být podle ministerstva důležité k rozuzlení kauzy, která vypukla koncem května a vedla ke konci Blažka. Zajištění daru podle úřadu potvrzuje závěry dříve publikovaných právních
… více »Administrativa amerického prezidenta Donalda Trumpa jedná o možném převzetí podílu ve výrobci čipů Intel. Agentuře Bloomberg to řekly zdroje obeznámené se situací. Akcie Intelu v reakci na tuto zprávu výrazně posílily. Trump minulý týden označil Tana za konfliktní osobu, a to kvůli jeho vazbám na čínské společnosti, čímž vyvolal nejistotu ohledně dlouholetého úsilí Intelu o obrat v hospodaření. Po pondělní schůzce však prezident o šéfovi Intelu hovořil příznivě.
Společnost Purism stojící za linuxovými telefony a počítači Librem má nově v nabídce postkvantový šifrátor Librem PQC Encryptor.
VirtualBox, tj. multiplatformní virtualizační software, byl vydán v nové verzi 7.2. Přehled novinek v Changelogu. Vypíchnou lze vylepšené GUI.
Eric Migicovsky, zakladatel společnosti Pebble, v lednu oznámil, že má v plánu spustit výrobu nových hodinek Pebble s již open source PebbleOS. V březnu spustil předprodej hodinek Pebble Time 2 (tenkrát ještě pod názvem Core Time 2) za 225 dolarů s dodáním v prosinci. Včera představil jejich konečný vzhled (YouTube).
Byla oznámena nativní podpora protokolu ACME (Automated Certificate Management Environment) ve webovém serveru a reverzní proxy NGINX. Modul nginx-acme je zatím v preview verzi.
Vývojáři KDE oznámili vydání balíku aplikací KDE Gear 25.08. Přehled novinek i s náhledy a videi v oficiálním oznámení.
Společnost Perplexity AI působící v oblasti umělé inteligence (AI) podala nevyžádanou nabídku na převzetí webového prohlížeče Chrome internetové firmy Google za 34,5 miliardy dolarů (zhruba 723 miliard Kč). Informovala o tom včera agentura Reuters. Upozornila, že výše nabídky výrazně převyšuje hodnotu firmy Perplexity. Společnost Google se podle ní k nabídce zatím nevyjádřila.
Intel vydal 34 upozornění na bezpečnostní chyby ve svých produktech. Současně vydal verzi 20250812 mikrokódů pro své procesory řešící 6 bezpečnostních chyb.
my $html = HTML::Tree->new(); $html->parse($page); while ($html){ my ($id) = $html->look_down( 'id','o012' ); print encode_utf8($id->as_HTML ), "\n"; }Potřeboval bych pomoc s nahrazením
o012za něco jako
/o\d{3}/, aby mi při nalezení vzoru bylo toto id vypsáno.
Řešení dotazu:
/o(\d{3})/ && print $1;
look_down
podporuje notaci s reg. objektem tak, že něco jako
$html->look_down( 'id',qr{o\d{3}} )
, ale ten příklad je celý nějaký divný.
Co přesně má dělat?
ale ten příklad je celý nějaký divný.Školní zadání?
my ($id) = $tree->look_down( 'id',qr/o\d{3}/ );fungluje jak ma. Vypise prvni vyskyt podle reg.vyrazu. s Perlem zacinam uz tri mesice, chtel bych jeste v necem popostrcit jak mam toto vse zacyklovat tak aby mi to proslo pres celou stranku a vyhledalo vsechen vyskyt pomoci while mi to vypisuje jen prvni vyskyt hodnekrat zasebou
while($tree){ my ($id) = $tree->look_down( 'id',qr/o\d{3}/ ); print encode_utf8($id->as_HTML) , "\n"; }
my @id = $tree->look_down( 'id',qr{o\d{3}}xms ); foreach (@id) { say $_->as_HTML; }
m,qr,s
lze použít libovolný znak nebo závorky
tedy lze psát např. m#a.*#; s[ahoj][cau]g
atd. přičemž se doporučuje používat buď / /
nebo { }
@
na začátku je pole(array) ty si tam měl ($id)
což je list, s prvním prvkem $id
tedy si dostal sice pole, ale při porovnání se vzal jen první prvek,
což v tomto případě (a shodou okolností) je to stejné jako kdyby si tam napsal jen $id
Podobně by si mohl ($id1,$id2) dostat první dva prvky.
rozdíl mezi $id
a ($id)
lze vidět třeba tady
my @array=('a','b'); my $id = @array; my ($id)=@array;kdy v tom případě bude v
$id
počet prvků(2) a v tom druhém první prvek('a')
jenom upozorňuji, že při zápisu my $id =('a','b')
by byl v $id
poslední prvek list tedy 'b'. :)
navíc si tam měl while
přes $tree
, které se v té smyčce nemění
tak záleží čeho si chtěl dosáhnout
Tiskni
Sdílej: