Provozovatel čínské sociální sítě TikTok dostal v Evropské unii pokutu 530 milionů eur (13,2 miliardy Kč) za nedostatky při ochraně osobních údajů. Ve svém oznámení to dnes uvedla irská Komise pro ochranu údajů (DPC), která jedná jménem EU. Zároveň TikToku nařídila, že pokud správu dat neuvede do šesti měsíců do souladu s požadavky, musí přestat posílat data o unijních uživatelích do Číny. TikTok uvedl, že se proti rozhodnutí odvolá.
Společnost JetBrains uvolnila Mellum, tj. svůj velký jazykový model (LLM) pro vývojáře, jako open source. Mellum podporuje programovací jazyky Java, Kotlin, Python, Go, PHP, C, C++, C#, JavaScript, TypeScript, CSS, HTML, Rust a Ruby.
Vývojáři Kali Linuxu upozorňují na nový klíč pro podepisování balíčků. K původnímu klíči ztratili přístup.
V březnu loňského roku přestal být Redis svobodný. Společnost Redis Labs jej přelicencovala z licence BSD na nesvobodné licence Redis Source Available License (RSALv2) a Server Side Public License (SSPLv1). Hned o pár dní později vznikly svobodné forky Redisu s názvy Valkey a Redict. Dnes bylo oznámeno, že Redis je opět svobodný. S nejnovější verzí 8 je k dispozici také pod licencí AGPLv3.
Oficiální ceny Raspberry Pi Compute Modulů 4 klesly o 5 dolarů (4 GB varianty), respektive o 10 dolarů (8 GB varianty).
Byla vydána beta verze openSUSE Leap 16. Ve výchozím nastavení s novým instalátorem Agama.
Devadesátková hra Brány Skeldalu prošla portací a je dostupná na platformě Steam. Vyšel i parádní blog autora o portaci na moderní systémy a platformy včetně Linuxu.
Lidi dělají divné věci. Například spouští Linux v Excelu. Využít je emulátor RISC-V mini-rv32ima sestavený jako knihovna DLL, která je volaná z makra VBA (Visual Basic for Applications).
Revolut nabídne neomezený mobilní tarif za 12,50 eur (312 Kč). Aktuálně startuje ve Velké Británii a Německu.
Společnost Amazon miliardáře Jeffa Bezose vypustila na oběžnou dráhu první várku družic svého projektu Kuiper, který má z vesmíru poskytovat vysokorychlostní internetové připojení po celém světě a snažit se konkurovat nyní dominantnímu Starlinku nejbohatšího muže planety Elona Muska.
Asi by se slušelo na začátek vysvětlit, co je PERL vlastně zač. Je to skriptovací programovací jazyk, jehož "otcem" je Larry Wall. Původně byl určen pro práci s textem. Evoluce, která na PERL nezapomněla, z něho vytvořila mocný programovací jazyk použitelný téměř na cokoli. Syntaxí je velice podobný Céčku, proto pro Céčkaře nebude problém si tento jazyk velice rychle osvojit. Perl se dá použít na psaní webových aplikací, práci s textem, automatizačních nástrojů pro Linux, psaní síťových nástrojů a podobně. Vzhledem k tomu, že se bavíme o skriptovém jazyku, nebude problém s kompatibilitou aplikací, pokud bude stroj osazen interpretem jazyka.
První program, který se píše ve všech jazycích, je program "hello world".
#!/usr/bin/perl
|
První řádek říká, jaký intepret se má pro spuštění skriptu použít. Samotný # se používá pro psaní komentářů, vše od tohoto znaku do konce řádky perl ignoruje. Pro výpis se dá použít několik příkazů, buď céčkovský printf nebo prostý print.
Syntaxe:
print [kam] "výpis" ;
|
Pokud vynecháte [kam]
, použije se STDOUT.
printf ("text a odkazy na proměnné",seznam proměnných);
|
Teď jsme schopni něco vypsat, ale vypisovat statické texty je málo, budeme potřebovat nějaké proměnné. Filozofie proměnných je v perlu zcela odlišná například od Céčka. Máme jen tři typy proměnných: skalár, pole a hash. Ani deklarace proměnných není potřeba, prvním použitím se proměnné deklarují samy.
Do skalární proměnné (označuje se $ před názvem) můžeme uložit "libovolně" dlouhý text nebo čísla. Pokud budeme chtít spočítat třeba nákup, tak napíšeme:
#!/usr/bin/perl
|
Perl se v tomto případě pokouší vše od začátku proměnné až k prvnímu písmenu brát jako číslici a jako s takovou s ní i zachází.
Dalším datovým typem je pole (více skalárních proměnných v jedné, na jednotlivé prvky se odkazujeme indexem), které se jako celek označuje @. Prvky pole se označují $název_pole[5]. Pokud zadáme jako index -1, bude to znamenat poslední prvek. První prvek se skrývá pod indexem 0. Pole lze plnit po jednom prvku nebo následujícím přiřazením:
@pole=(seznam hodnot);
|
Třetím typem jsou hashe (asociativní seznamy). Volně se dají přirovnat k polím, jen se na jejich prvky místo indexem odkazujeme pomocí jejich názvů. Označují se % před názvem, opět se k jednotlivým prvkům přistupuje přes $NAZEV{'jmeno_prvku'}. Plní se následujícím postupem:
#!/usr/bin/perl
|
Většinou je třeba přijímat data od uživatele. To můžeme pomocí parametrů při spuštění nebo ze souboru či klávesnice (ta je taky soubor - STDIN) za chodu programu. Uvedu nejprve třetí možnost a postupně se dopracuji k ostatním. Načtení řetězce z klávesnice (i souboru) se provádí prostým přiřazením:
$my_string=<ovladač_souboru>;
|
- u klávesnice se používá STDIN nebo se ovladač neuvede.
Ze souboru je to stejné, jen je třeba soubor nejprve otevřít. K tomu slouží následující kód:
#!/usr/bin/perl
|
Za příkaz open
se píše název ovladače souboru (slušňáci ho píší velkými písmeny), po kterém následuje v "" název souboru s právy, se kterými se má otevřít. Následně ho celý uloží do pole, kde každý prvek je jeden řádek souboru. Po použití je třeba soubor zavřít, k tomu slouží příkaz close
, jehož parametrem je ovladač souboru.
soubor
- otevře soubor pro čtení>soubor
- otevře soubor s právy pro zápis, pokud je to nutné, tak ho vytvoří>>soubor
- přidávání dat na konec existujícího souboru+<soubor
- otevře soubor s právy pro čtení a zápis+>soubor
- smaže obsah starého souboru, nebo vytvoří nový s právy pro čtení a zápisTřetím možným způsobem jak programu předat data, je pomocí jeho argumentů. Ty se uloží do pole s názvem @ARGV. Počet parametů (prvků pole) se získává pomocí příkazu scalar @ARGV.
Na závěr prvního dílu uvedu takový malý seznam funkcí pro práci s poli, hashi a skaláry. V příštím díle nás čekají příkazy cyklů, podmínky, práce se soubory a podobně.
chomp seznam;
- odstraňuje konce řádků ze všech prvků seznamu, vrací počet odstraněných znakůchop seznam;
- odebere poslední znak ze všech prvků, vrací jejich početlc výraz;
- vrací výraz s malými písmenylcfirst výraz;
- vrací výraz, s prvním malým písmenemlength výraz;
- vrací délku výrazu v bajtech.uc výraz;
- vrací výraz s velkými písmenyucfirst výraz;
- vrací výraz, s prvním velkým písmenemcrypt řetězec, základ;
- zakóduje řetězec pomocí základudelete $hash{'jméno_prvku'};
- smaže zadanou hodnotu z hasheexists výraz;
- kontroluje, jestli se prvek nachází v hashikeys %hash;
- v seznamovém kontextu vrací seznam prvků hashe, ve skalárním jejich početvalues %hash;
- vrací seznam všech hodnot hashescalar @pole;
- vrací počet prvků polesplit [vzorek[,výraz[,limit]]];
- rozdělí výraz podle zadaného vzorku, pokud je zadán limit, dělí ho na na tento maximální počet políNástroje: Tisk bez diskuse
Tiskni
Sdílej:
teprve tento článek mě zavedl na cestu k perlu
Tak to možná neměl vůbec vyjít... hlavní sílou Perlu je, že spoustu věcí nemusíš psát a on interpret odhadne, cos asi tak mohl chtít ... což je zároveň jeden z jeho největších problémů a důvod, proč by v něm neměl psát možná nikdo, ale zejména ne začátečníci. Svádí to k nesrozumitelnému a nevyzpytatelně se chovajícímu kódu (malinkou ukázkou je i uvedený výpočet ceny nákupu, kde se spoléhá na to, že se při aritmetické operaci provede konverze na číslo, čímž se zahodí jednotky -- Američanovi, který napíše $15, by to z ničeho nic nefungovalo...).