Perl :: Remember, remember, the velvet November


node:	Perl
template:	3
parent:	Programming
owner:	uz.nebudem.tolko.fetovat
viewed by:
created:	25.05.2005 - 15:28:14
updated:	06.08.2011 - 13:31:39

cwbe coordinatez:
101
63540
2076399
1655002

ABSOLUT
KYBERIA

permissions
you:	r,
system:	public
net:	yes

maniac	0
tux	0
ziman	0
shady	0
chess	0
roro	0
toxygen	0
forcer	0
Prospero	0
aarin	0
[mechone]	0
kiwo	0
kkappabear	1
ste	1
soc	1
Fen	1
wq	1
dodo	1
e1m1	2
zeromind	2
borg	2
ksyz	2
dno	2
xrat	2
vlku	2
sandozz	2
slahackovy_b...	2
Ywettka	2
darmozrac	2
C[elkom]iny	3
stur	3
fefo	3
vygidor	3
1744	4
mimikk	4
roger	5
pyxel	5
wwwnick	5
janko_hrasko	6
vicdar3n	6
hlsman	7
r@sto	8
lesnimrak	8
bujak	8
daan	8
robo	8
nanda	8
cell	8
iso	8
paskudnyk	8
hexo	8
jinx	9
neutral	12
s7	12
skurva.	12
surikman	12
chinaski	12
sementex	12
miloo	13
uz.nebudem.t...	14
Harvie	14
coxwain	15
GeNKi	15
lts	18
mr gramma	21
rixard	22
baronprasil	22
kontra	24
~/	24
Ruza	25
zypp	27
ondrish	28
geek	28
jux	43
ing	46
janci	49
drakh	51
paiti	51
acidmilk	51

Perl

Practical Extraction And Report Language
Pathologically Eclectic Rubbish Lister

Perl -- Because life's too short to code without punctuation.

Verzie

Stable is 5.14.1

Kto ma nejake dobre napady do topicu, budem rad ked ho budem moct spravit mastrom. Treba to tu trosku zveladit :) Kto je uz master, tak pred editaciou topicu je dobre ho nechat pretiect cez html tidy -i a po editacii osekat konce riadkov napriklad takto: perl -e 'while (<>) {chomp; print; print " ";}'

0000010100063540020763990165500209257544

https://www.wired.com/story/programmers-arent-humble-anymore-nobody-codes-in-perl/

...

Still, I find myself returning to this strange language, and I think it’s because of the humility at its core. We need humility as we recognize that our world is more complicated than we might be able to comprehend, even or especially when it comes to the large technological systems of our own making (AI, cough cough). A single comprehensive theory or model won’t cut it in a world of exceptions and edge cases and raging complications. We need slow, stumbling approaches, and Perl’s evolved pluralism can show us the way.

Perl can even teach us about ourselves. If I had to choose a language that is furthest from Perl, it might be Lisp. Developed around 1960, Lisp is elegant, almost mathematical in its construction. The “Maxwell’s Equations of Software,” as its definition has been described—just to give you a sense of the esotericism. Perl is, of course, not that. It’s organic and sometimes maddening. For all its messiness, in other words, it’s a language of the people.

And that’s the thing about programming languages: They are actually for people; they can’t just be parsable by machines. In the classic textbook Structure and Interpretation of Computer Programs, the authors make this clear: “Thus, programs must be written for people to read, and only incidentally for machines to execute.” Yes, the joke is that Perl is “write-only”—but you can always tell it was written by human beings.

A Perl renaissance is, I admit, unlikely. But perhaps the lesson of Perl is timeless. It asks us to be less precious—and more human—when it comes to programming languages and their design. Only then might we be able to bridge the gap between us and the machines.

0000010100063540020763990165500208899708

The Perl Foundation is in a shambles due to disputes concerning its (nonexistent) Code of Conduct, its (inconsistent) enforcement of community standards, and an inability to agree on what constitutes toxicity or a proper response to it.

At least four prominent Perl community members have resigned from their positions at the Perl Foundation recently, and another has withdrawn from working on Perl entirely
https://arstechnica.com/gadgets/2021/08/the-perl-foundation-is-fragmenting-over-code-of-conduct-enforcement/

0000010100063540020763990165500208504827

Hello world,

kedze zo mna bude coskoro profesor, Fakulta Dizajnu na Berlin university of the Arts hlada mojho nastupcu vo veci IT-adminovania par Unixov a WLANov co tu mame.

A Seafile a PERL.

Polovicny uvazok, tabulkovy plat, ale relativne vysoky level (E13) takze sa s tym da v podstate aj mensia rodina uzivit.

Blizsi popis pracovnej naplne tu: https://www.udk-berlin.de/fileadmin/2_dezentral/FR_Stellenausschreibungen/Anz_2_491_18_Besch._Digital-Labor.pdf

Jedna sa o najlepsi job aky som v Zivote mal. Verejna funkcia v akademickom sektore na umeleckej univerzite najsilnejsej ekonomiky Europy najdemokratickejsieho kontinentu planety, prakticky ziadny sef, najsexy office v celom Schonebergu (nekecam - kto nezazil neuveri).

Vlastne ani neviem ci sa mi ten job chce opustit. Ale asi jo... Stufen

P.S. bezchybna nemcina nieje podmienkou v pripade ze viete dobre po anglicky

0000010100063540020763990165500208323077

A well-known saying in the programming racket is that a good Fortran pro-
grammer can write Fortran programs in any language. The sad truth, though,
is that Fortran programmers write Fortran programs in any language whether
they mean to or not. Similarly, we, as Perl programmers, have been writing C
programs in Perl whether we meant to or not. This is a shame, because Perl is
a much more expressive language than C. We could be doing a lot better, using
Perl in ways undreamt of by C programmers, but we’re not.

How did this happen? Perl was originally designed as a replacement for C
on the one hand and Unix scripting languages like Bourne Shell and awk on
the other. Perl’s first major proponents were Unix system administrators, people
familiar with C and with Unix scripting languages; they naturally tended to write
Perl programs that resembled C and awk programs. Perl’s inventor, Larry Wall,
came from this sysadmin community, as did Randal Schwartz, his coauthor on
Programming Perl, the first and still the most important Perl reference work.
Other important early contributors include Tom Christiansen, also a C-and-
Unix expert from way back. Even when Perl programmers didn’t come from the
Unix sysadmin community, they were trained by people who did, or by people
who were trained by people who did.

Around 1993 I started reading books about Lisp, and I discovered something
important: Perl is much more like Lisp than it is like C. If you pick up a good
book about Lisp, there will be a section that describes Lisp’s good features.
For example, the book Paradigms of Artificial Intelligence Programming, by Peter
Norvig, includes a section titled What Makes Lisp Different? that describes seven
features of Lisp. Perl shares six of these features; C shares none of them. These
are big, important features, features like first-class functions, dynamic access to the symbol table, and automatic storage management. Lisp programmers have
been using these features since 1957. They know a lot about how to use these
language features in powerful ways. If Perl programmers can find out the things
that Lisp programmers already know, they will learn a lot of things that will make their Perl programming jobs easier.

This is easier said than done. Hardly anyone wants to listen to Lisp pro-
grammers. Perl folks have a deep suspicion of Lisp, as demonstrated by Larry
Wall’s famous remark that Lisp has all the visual appeal of oatmeal with fingernail clippings mixed in. Lisp programmers go around making funny noises like ‘cons’ and ‘cooder,’ and they talk about things like the PC loser-ing problem, whatever that is. They believe that Lisp is better than other programming languages, and they say so, which is irritating. But now it is all okay, because now you do not have to listen to the Lisp folks. You can listen to me instead. I will make soothing noises about hashes and stashes and globs, and talk about the familiar and comforting soft reference and variable suicide problems. Instead of telling you how wonderful Lisp is, I will tell you how wonderful Perl is, and at the end you will not have to know any Lisp, but you will know a lot more about Perl.

Then you can stop writing C programs in Perl. I think that you will find it
to be a nice change. Perl is much better at being Perl than it is at being a slow
version of C. You will be surprised at what you can get done when you write Perl
programs instead of C.

0000010100063540020763990165500208281860

Troška sa v poslednom čase s mojimi študentami na GlasPERL&Spiel kurze zaoberáme I-Chingom a napodiv som nikde nenašiel mapping medzi jednotlivými líniami a hexagramami, na CPANe je len takáto haluz http://search.cpan.org/~strytoast/IChing-Hexagram-Illuminatus-0.01/Illuminatus.pm

Tak som tradičnú tabuľku mapujúcu vzťahy medzi líniami, trigramami a hexagramami prepísal do tohto hashu:

my %trigrams = (
"111","chien",
"100","chen",
"010","kan",
"001","ken",
"000","kun",
"011","sun",
"101","li",
"110","tui"
);

my %hexagrams =(
"chienchien",1,
"chienchen",34,
"chienkan",5,
"chienken",26,
"chienkun",11,
"chiensun",9,
"chienli",14,
"chientui",43,
"chenchien",25,
"chenchen",51,
"chenkan",3,
"chenken",27,
"chenkun",24,
"chensun",42,
"chenli",21,
"chentui",17,
"kanchien",6,
"kanchen",40,
"kankan",29,
"kanken",4,
"kankun",7,
"kansun",59,
"kanli",64,
"kantui",47,
"kenchien",33,
"kenchen",62,
"kenkan",39,
"kenken",52,
"kenkun",15,
"kensun",53,
"kenli",56,
"kentui",31,
"kunchien",12,
"kunchen",16,
"kunkan",8,
"kunken",23,
"kunkun",2,
"kunsun",20,
"kunli",35,
"kuntui",45,
"sunchien",44,
"sunchen",32,
"sunkan",48,
"sunken",18,
"sunkun",46,
"sunsun",57,
"sunli",50,
"suntui",28,
"lichien",13,
"lichen",55,
"likan",63,
"liken",22,
"likun",36,
"lisun",37,
"lili",30,
"litui",49,
"tuichien",10,
"tuichen",54,
"tuikan",60,
"tuiken",41,
"tuikun",19,
"tuisun",61,
"tuili",38,
"tuitui",58
);

Potom samozrejme niečo takéto:

$ARGV[0] =~ /(ddd)(ddd)/;
print "first trigram is $1n";
print "second trigram is $2n";
$lower_trigram=$trigrams{$1};
$upper_trigram=$trigrams{$2};
$hex_id=$hexagrams{$lower_trigram.$upper_trigram};
print "LOWER TRIGRAM IS $lower_trigram n";
print "UPPER TRIGRAM IS $upper_trigram n";
print "HEXAGRAM IS ".$hex_id."n";

z command line volať napr.
$ perl ./iching.pl 111000
(jednotka reprezentuje yangovu solid line, 0 je yinova broken line)

njoy

0000010100063540020763990165500207830183

https://www.facebook.com/events/1408317646130256/

datum sa niekolkokrat menil, tak uz sa snad nebude

0000010100063540020763990165500207772241

pobavi, ked v jazyku starom 25 rokov pribudne takato novinka :)
https://metacpan.org/pod/perlsub#Signatures

use feature 'signatures';
no warnings "experimental::signatures";

sub foo($bar, $baz) {
print $bar, "t", $baz, "n";
}

0000010100063540020763990165500207630241

To quote http://act.useperl.at/apw2014/news

We are excited to announce the Austrian Perl Workshop 2014. Join us in the beautiful city of Salzburg on Friday 10th and Saturday 11th this October for talks and discussions on topics related to Perl. From Sunday 12th to Monday 13th there will also be a hackathon.

Amongst other prominent attendees we are very proud to have the creator of Perl itself, Larry Wall, as a star guest.

0000010100063540020763990165500207505297

11:02 <ksyz> pocuj
11:03 <ksyz> return (); mi potom scalar f() > 1 da, ze undefined
11:03 <ksyz> @a = ()
11:03 <ksyz> return @a; je scalar f() je 0.
11:05 <inner_ugliness> podla mna to parser pochopi tak, ze return (); je to iste ako return;
11:06 <inner_ugliness> proste bez argumentu, fallbackne na undef
11:06 * inner_ugliness hada
11:11 <ksyz> hm.
11:12 <ksyz> return @{[]} funguje podla ocakavania
11:13 <inner_ugliness> awww
11:13 * inner_ugliness skusalo (()), neuspesne :)
11:13 <inner_ugliness> ((()))
11:13 <inner_ugliness> (((())))
11:13 <inner_ugliness> (((((lisp)))))
11:13 <inner_ugliness> aaaAaAA>aa
11:15 <ksyz> (()) som skusal :)
11:16 <ksyz> zvlastne, ze som si tohoto nikdy nevsimol ...
11:20 * inner_ugliness tiez nie

000001010006354002076399016550020750529707505322

scalar(()) vs. scalar(@{[]}), perl si tam zrejme pocas vyhodnocovania prirobi ze to co vlastne je za struktura a vrati potom uz len pocet prvkov kym v kratsej verzii to nestihne lebo uz ju vyhodnocuje skalarne.
http://perldoc.perl.org/functions/scalar.html

00000101000635400207639901655002075052970750532207505331

bez ohladu na scalar, je return () to iste ako return undef, alebo return;, a parser to zahodi. cize ak chces vratit prazdne pole a nie undef, tak treba hentak. predpokladam, ze toto je nezavisle od kontextu

0000010100063540020763990165500207505297075053220750533107505341

praveze s ohladom na scalar, pretoze perl sa vzdy rozhoduje podla toho do akeho kontextu vracia (preto mame wantarray a podobne zvrhlosti). ak to vratis do pola, oba pripady sa budu spravat rovnako (a return undef sa bude spravat inak).

0000010100063540020763990165500207438553

http://perl6advent.wordpress.com/

pekne perlicky perlu pat plusjedna

000001010006354002076399016550020743855307442521

Coraz viac mam pocit ze Perl6 bude (je) vskutku prelomova vec.

Toto je fajn uvod do problematiky pre vsetkych co sa ako-tak vyznaju do Perl5: http://perlgeek.de/en/article/5-to-6

0000010100063540020763990165500206265055

4.-5.11.2011 metalab/baronka
http://conferences.yapceurope.org/tcpw2011/
register now, uz aj nejaky program sa rysuje.

000001010006354002076399016550020626505506656977

sorry ale nikde tam nevidim ziadny registracny form, len form pre uz zaregistrovanych userov

asi sa uvidime, rad by som odprezentoval moj CPANovsky Reflected Radnom Indexing modul

00000101000635400207639901655002062650550665697706666954

2011, dude ;)

0000010100063540020763990165500206252699

regular shit again
ako napisat (posix) regularny vyraz ktory robi exkluziu na retazci znakov konkrektne:
^[^(ABC)]
odfiltruje slova zacinajuce na "A" "B" alebo "C" akurat potrebujem odfiltrovat cely prefix "ABC" (a spravit exkluziu jednoducho cez "not match" nie je mozne a rozpisovat to na kombinacie znakov z neuplneho prefixu "ABC" sa mi vazne nechce)

000001010006354002076399016550020625269906252719

^[^A]|^[A][^B]|^[A][B][^C]
mjch

0000010100063540020763990165500206199306

Bratislava Perl Mongers
progressbar - ~~Sep 8, 2011 4:00 PM~~ Sep 8, 2011 6:00 PM
https://www.progressbar.sk/events/99

e: novy cas

0000010100063540020763990165500206157557

249315_132180230205370_116293778460682_203983_6243207_n.jpg

000001010006354002076399016550020615755706211330

kvoli tomuto obrazku sa tie perly asi konecne naucim!

000001010006354002076399016550020615755706158108

vy ste zvrhliiiiiii

00000101000635400207639901655002061575570615810806158695

13:37 uz aj nejake stretnutie bolo?
13:44 <a> kazde dva tyzdne je
13:45 nejako absurdne v strede tyzdna, ze
13:50 <a> stvrtky
13:54 stvrtka tyzdna? poprosim zabalit, zjem si doma
13:55 <a> ked si zoberiete tri stvrtky, mate to za polovicu
13:59 dobre, snad sa mi do stvrtku nepokazia

0000010100063540020763990165500206157557061581080615869506158771

cas!

0000010100063540020763990165500205922012

14:20 < a> tyto linuxaci :)
14:21 pocuj ty hipster s applom
14:21 co mal rad ruby nez bolo popularne
14:21 * a hides
14:21 my sme viac hip nez ty
14:21 ked mame radi perl ked uz neni popularny

0000010100063540020763990165500205609235

na hranie s websocketmi odporucam mojolicious - tu je pekny jednoduchy priklad

0000010100063540020763990165500205585773

http://www.noulakaz.net/weblog/2007/03/18/a-regular-expression-to-check-for-prime-numbers/

000001010006354002076399016550020558577305585859

to musi byt uzasne pomale pri vacsich cislach :)

0000010100063540020763990165500205310010

Harvie 24.04.2010 - 17:49:42 (modif: 24.04.2010 - 17:50:15), level: 1, UP NEW !!CONTENT CHANGED!!

Check module availability

jde nejak osetrit nedostupnost modulu? rad bych pouzil modul pokud je dostupny, ale vim jak ho nahradit vlastnim kodem, pokud je to nezbytne nudna.

zkousel sem tohle a nejede to:





255 ;( harvie@harvie-ntb ~ $ perl -e 'use Net::DNS || print "fookn";'

syntax error at -e line 1, near "use Net::DNS ||"

Execution of -e aborted due to compilation errors.

000001010006354002076399016550020531001005310029

takto - BEGIN clause:
http://cpansearch.perl.org/src/NKUITSE/Time-AutoRes-0.02/lib/Time/AutoRes.pm
http://perldoc.perl.org/functions/use.html

00000101000635400207639901655002053100100531002905312733

dik ;)
to je ale osklivy :( tak jak sem to psal ja by to bylo prehlednejsi ;)

axone main
axone forumz
axone Kenny BoỸlla ;) - FunClub

Perl

Links

Verzie