Zobrazit příspěvky
Tato sekce Vám umožňuje zobrazit všechny příspěvky tohoto uživatele. Prosím uvědomte si, že můžete vidět příspěvky pouze z oblastí Vám přístupných.
tento mail z gopay nebyl samozřejmě nijak zašifrovaný a obsahoval účet, na který se má platba poslat: 670100-2208238594/6210;
,<html>
<head>
<title>pokus obrazek base64</title>
</head>
<body>
<h1>pokus obrazek base64</h1>
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAUAAAAFCAYAAACNbyblAAAAHElEQVQI12P4//8/w38GIAXDIBKE0DHxgljNBAAO9TXL0Y4OHwAAAABJRU5ErkJggg==" alt="Red dot">
</body>
</html>
find .|sort|xargs touch
Ještě jsem chtěl zabrousit do oblasti zpracování textu. A to jsem si říkal že mi to tu někdo omlátí o hlavu. Partie ve které je Perl údajně nejlepší. Není to náhodou jedno že je v tom nejlepší? když dnes existují knihovny na cokoli a stejně jak bych to udělal v Perlu tak to udělám třeba v Javě? (uvažujme prosím princip otázky, nikoli např. výkon a podobná témata) protože pokud bych to dělal v nějakém dominantním jazyku tak se najde spousta lidí kteří moho nahradit stávající vývojáře, a existuje mnoho dalších výhod které Perl write-only ztrácí?No u mě se to, že Perl vyniká ve zpracování textu projevuje tak, že pak používám např. regulární výrazy a podobné věci, někdy i tam, kde by v jiných jazycích tě to ani nenapadlo, (což neříkám, že musí být dobře
), navíc kde bych mohl ve scriptech použít sed,awk,grep,... nebo i ve Vim-u pro nahrazení, tak většinou použiji "one-line" Perl. Perl umožňuje psát kód nesrozumitelně, ale stejně tak i velmi přehledně a srozumitelně záleží na tobě, co si vybereš (nepopírám, že občas když něco píši, tak to rychle napíši "na divoko" s tím že to posléze přepíši a nato už nikdy nedojde a pak chvíli "luštím", co to vlastně dělá. Mám do školy něco dělat v Perlu a vypadá to tak že si přiblížím monitor, zvětším písmo a obrním nervy. Mám kamaráda co si perl dává na vysoké úrovni a měl jsem nějakou dobu opravdu touhu a chuť do toho proniknout.... Ale to se fakt nedá. Neznám jazyk kde abych byl něčeho minimálně schopen tak toho musím vědět tolik jako v Perlu. Nevím, nechápu to... je to psycho. Programuju v tom céčkovým stylem... ale i tak mi z toho jde hlava kolemNo naopak Perl je velmi variabilní a začít psát kód lze i s velmi málo znalostmi. Jsou třeba příkazy v Perl-u, které nepoužívám. Perl velmi dobře umožňuje růst společně s programátorem. "Céčkovským" stylem klidně programuj Perl to umožňuje. Abych citoval:
You can sometimes write faster programs in C, but you can always write programs faster in Perl.
Takže když dostávám každý den tabulku dat ve formě:tak to je jedna možnost poměrně extrémní,
výrobní číslo - vlastník - firma - najetých kilometrů
tak stačí přidat ještě jeden sloupec den a vše ládovat do jediné tabulky?
A jak se to změní, když tam budou atributy jasně svázané jen s vlastníkem, popřípadě firmou? (například bydliště vlastníka, síldo firmy ... obojí se může občas změnit)
-color-matrix matrix apply color correction to the image
#!/usr/bin/perl
use 5.012;
use autodie;
use Data::Dumper;
my $log = <<EOF
SCR01 14:41
SCR02 14:42
SCR03 14:43
SCR02 14:44
SCR04 14:45
SCR02 14:46
EOF
;
my $map_table = <<EOF
SCR01 login
SCR02 main page
SCR03 left menu
SCR04 1. content
EOF
;
my %map;
open my ($map_tab), '<', \$map_table;
my %map_tableh = map { chomp; split /\s+/, $_, 2 } <$map_tab>;
close $map_tab;
open my ($logh), '<', \$log;
while (<$logh>) {
chomp;
my ($key) = split /\s+/, $_, 2;
say $_, q{ }, $map_tableh{$key};
}
close $logh;
PS. pro čtení ze souboru stačí změnit \$log a \$map_table za jména souborů
0 0 0 r 0
0 1 1 r 0
0 _ u * 1
1 1 1 l 1
1 0 0 l 1
1 u u l 2
1 x x l 1
2 x x l 2
2 0 x r 4
2 1 x r 3
2 _ _ r 5
3 1 1 r 3
3 0 0 r 3
3 x x r 3
3 u u r 3
3 _ 1 l 1
4 1 1 r 4
4 0 0 r 4
4 x x r 4
4 u u r 4
4 _ 0 l 1
5 x _ r 5
5 u _ r halt
say "není utf" unless utf8::is_utf8($ARGV[1]);
print exists $soubor->{'tag'}->{$ARGV[1]} ? "Existuje položka $ARGV[1]\n" : "Neexistuje položka $ARGV[1]\n";
utf8::decode($ARGV[1]);
say "je utf" if utf8::is_utf8($ARGV[1]);
print exists $soubor->{'tag'}->{$ARGV[1]} ? "Existuje položka $ARGV[1]\n" : "Neexistuje položka $ARGV[1]\n";
Root.cz (www.root.cz), informace nejen ze světa Linuxu. ISSN 1212-8309
Copyright © 1998 – 2025 Internet Info, s.r.o. Všechna práva vyhrazena. Powered by Linux.