Perl Mongers Camel at London Zoo
Does the London.pm-sponsored Bactrian camel have a name? What is its age and sex? /-\ndrew
Buffy riding a Pony
Visualizing Buffy riding a Pony seems a common and completely normal thing to do here at London.pm, hence the following program. The low-rez graphics strain the eyes a little, but I hope they are good enough to elicit a few chuckles or groans. Cheers, /-\ndrew #!/usr/bin/perl '' =~("\(". '?'."\{".( '['^('+')).( '[' ^(( ( ( ( ( ')' )) ).( "\`"| ')') .('`' | '.') .('[' ^'/' )."\"".('`' ^'"') .((( ( ( (( (( ( (( (( (( ('['))) ) ^'.').('`'| ( '&') ).+( ( '`')|'&').('['^ ( ( '"')))."\,".( (( ( '{')))^('[')).( ( ( '['))^'+') . ('`'|',').('`' | '%').(('`')| (( ('!'.('['^ (( '('))).( '`'| (( ('%'.('{'^ ( "\[")).( ( ( (( ('`')|'"').+( (( '`') )|+ (( ( '%'.(('{')^ '[' ). +( ( (( '`' ) ))|'#').('`'|('!')).( (( (( '[')) )) ^ ')').('`'|'%').(('`')| (('&'))).( (( '[' ))^'.').('`'|',')."\!".( '!' ^"\+").( (( '{'))^')').('`'|'%').(('`')| (( '-') )).(('`')| '%').( '`'|'-').('`'|"\"").( '`' |+ "\%").( ('[')^ ')' ).','.('{'^'[').('[' ^'/').(('`')| (( ( '(' )) )).(('`')| ((')') )).('['^ '(') .''. (('{')^ "\[").((( '`'))|')') .('[' ^'(').( '{' ^'[' ).( (( '`' ))| '(' ).((((( '`' )) ))|'/').( (((((( '[')) ))))^',' ).('{' ^'[') .( '`' ^+ (((( '#'))))) .( (( (((( '`'))|'!' ).+( '[' ^+(('/') )).''. +( '`'| '(' ).+('`'| '%').( ('[')^ ')' ). +( (( (('`'|')') .( (( '`' )) |+ (( ('.'.( (( '`' ) )| (( '%'))) .('{'^ (( '[' ))). ( (( (( (( (( (( '[') ) )) )) ) )) )^'/' ) . +(('`')| (( (( (( '(') )) )) )).+((( (("\`"| (( '%')) ).+( (( (( '{'^'[').(('`')^ "'"). ('[' ^(( (( ')').('`'| '%') .('`'| '!').( '['^'/').('{'^'[').('`'|'$'). ("\`"| ')').('`'|'%').('`' |'$').'.'.( '!'^'+').'"'."\}". ')');$:= '.'^'~';$~ ='@'|'(' ;$^=')'^ '[';$/= '`'|'.';$_ ='('^'}' ;$,='`'|'!'; $\="\)"^ '}';$:= ('.')^"\~"; $~='@'| '(';$^ =')' ^"\["; $/='`'| "\."; ($_)= ('(')^ '}';$,='`' |'!' ;$\=(')')^ '}';$:="\."^ '~'; $~='@'|'('; $^=')'^"\["; ($/) ='`'|'.';$_ ='(' ^'}' ;($,)='`'|'!';$\ =')' ^+ '}';$: ='.'^'~';$~= '@'|'('; $^=')'^ '[';$/='`' |'.';$_= ('(')^ '}';$,= '`'|'!' ;$\=')' ^'}';$:='.'^ '~';$~ ="\@"| '('; ($^)= ')' ^(( '[' )); ($/)='`'|'.'; ($_) ='('^'}';($,) ='`' |'!' ;($\) ="\)"^ "\}"; $:="\."^ '~';$~= ('@')| "\("; ($^) =')'^ '['; ($/) ='`' |'.' ;$_= ( '(')^'}';($,) ='`' |'!' ;$\= ')'^( '}') ;($:) ='.' ^'~' ;$~= '@'| '('; ( $^)= "\)"^ '['; ($/) ='`' |'.';$_= ( '(')^'}';($,) ='`' |'!' ;$\= ')'^ '}'; $:='.'^'~' ;$~= '@'| '('; $^= ')'^ "\["; $/='`'|'.'; ($_) ='(' ^+ '}';$,="\`"| '!'; ($\)= (')')^ '}';$: = (( ( '.' ) ))^ (( '~')) ;( $~)= '@'|'('; $^ =')' ^+ '['; ($/)= (( '`')) |'.' ;$_= "\("^ "\}"; ($,)= '`'|'!';$\ =')' ^'}' ;$:= '.' ^'~';($~) ='@'| '('; $^= ')' ^'['; ($/) =(( '`'))|(( '.') );$_ =(('(' ))^+'}'; $,= '`'|'!'; ($\) =')' ^(('}' ));($:)= '.' ^'~';$~= '@'| '('; $
Re: Buffy riding a Pony
#!/usr/bin/perl ''=~('('.'?' .'{'.('['^"\+").( '['^')').('`'|')').( '`' | '.' ).(( '[' )^+ ( '/' )). ( '"' ).( ( '!' )^+ '+').( '`' ^(( ')') ) ).( '{' ^'[' ) .+( '[' ^+( '/' )).( ('`' )|+ ( '!')).( '`'| ( ( ( ( '+') .( ('`')| ( ( ( ( ((( ( ( ( ( (( ( ( (( ( ( ( ( ( '%') ) ) ) ))))) )))) ) ) )) ) ) .( (( '{' )) ^'[' ).(('[')^ ('/')).( '`'|'(').('`'|')') .(('[')^ '(').('{'^ '['). ( '{'^'+') .('`'|'%').(( ('['))^ ')').('`'|',' ) .("\{"^ '[').('`'^'!' ) . (('[')^ '(').('`'|'#' ).('`'| ( ')')).("\`"| "\)").( ( '{')^"\[").( '`'^'!' ) .('['^')'). ('['^'/' ).('{'^ '[').("\["^ "\(").( ( ('`'))| '%'). ('['^')').( ('`')| ( ( ( "\)".( (( '`'))| ( ( ('/'.( ( ( '[')) ^ ( ( '.'))).('[' ^ '(') . ( ('`')|',').((( ( ( '['^ (( ( ( ( '"') ) ) ) ) ) . ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( ( '.').('{'^'[').(( ( ('`')))^'.').('`'|'/').','.('{'^'[').('['^')'). ('`'|'%').('`'|'!').('`'|',').('`'|',').(('[')^ ( ( '"'))).('{'^'[').('`'^')').('{'^'[').('`'|'$').( ( ( '`'))|'/').'.'.('!'^'+').('`'^'!').('`'|'.').('`' | '$').("\{"^ '[').( ('[')^ ',') .('`' |(( ')' ))) .+( '`'|'.').('`' |'.' ).+("\`"|')') .''. ('`' |'.') .('`'| "'"). ('{'^'[' ).('`'| '!').( "\{"^ '[') .('[' ^'(' ).+( '['^ '+') .''. ( '`'|'%').('`' |'#' ).+( '`'| ')'). ('`' |'!') .''. ('`' |',' ).+( '{'^ ( '[') ).''. ('`' |'!' ).+( '['^',') . ('`'|'!').''. ('[' ^')' ).+( '`'| '$') .('{'^'[') .''. ('`' |'&' ).( '`'| '/'). ('['^')').( '{'^ '[') .( '['^"\/").( '`'| '('). ("\`"| '%').( ( (( ( '{' ) ))) ^ (( '[') )).( "\["^ ','). ('`'|'%' ).('`' |')' ).( '['^')') .''. ('`' |'$' ). ((('`' ))|+ '%') .''. ('['^ '(').''. ('[' ^'/' ).+( '{'^( '[')).+( '['^ '+') .''. ('`' | '/').''. ('[' ^'(' ).+("\["^ '/').( '{'^ '[') .''.('`'| '/' ).('`'| '&') .''. ( '!' ^'+' ).('[' ^'/'). ('`' | (( (( '(')) ))).( ('`')| "\%").('{'^'[') .('[' ^"\,").( '`'|'%').( '`'|'%').('`' |'+').('{'^'[').("\`"| "\-").( ('`')|'!').(('`')| '$').('`'|'%' ).('{'^'[').("\`"| '-').('`'|'%').('{'^"\[").( '`'|'&').('`'|'%'). ('`'|'%').('`'|',').('{'^'[' ).('`'|'!').("\`"| ',').('`'|',').('{'^'[').("\["^ ',').('`'|'!' ).('['^')').('`'|'-').('{'^'[').( '`'|'!').
Erm, there is a golf game in progress on fwp
If you want to whack some balls over the weekend, see the thread "FORE! Get Even Golf Game Tees Off" at: http:[EMAIL PROTECTED]/ Not as if I would try to stop any London.pm-ers from getting any work done. :) /-\ndrew
Re: Casey West
En op 22 september 2002 sprak Piers Cawley: > http://use.perl.org/~cwest/journal/7895 > > What did you do to him? I noticed in Casey's journal that he played a card game called "hearts" which Greg won and Fowler lost. Just curious: do you call this game "hearts" at london.pm and is this the most popular london.pm card game? I love playing this card game, but here in strayer we call it Rickety Kate or Black Bitch. /-\ndrew
Ponie in haiku
Gallop Ponie bold! Beer to gulp, Buffy astride Orange sky surrounds BTW, has anyone got a nice graphic of a Ponie? /-\ http://mobile.yahoo.com.au - Yahoo! Mobile - Check & compose your email via SMS on your Telstra or Vodafone mobile.
Bra
Just wondering if Leon has yet received delivery of the goods he successfully bid for at the YAPC::Europe auction. I'm eager to see any photos of said goods (just for my ascii art collection, you see). /-\ http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: Bra
dha wrote: > On Thu, Aug 14, 2003 at 10:26:18AM +0100, Leon Brocard wrote: >> The goods have indeed arrived. I will not take any photos of it. I may >> bring[1] it to the next social. It is a black Victoria's Secret bra. > > And will you be bringing it on tour for those of us not in the london > area? I'm sure MoMA would be happy to put in a temporary exhibit. :-) dha, if you can organise a secluded orange-walled room at the museum, Leon can simply walk in, toss the bra in the air and leave in his wake a wonderful contemporary site-specific art exhibit, for which I have prepared the following description. Victoria Bra, Secret Tango (2003) = L.A.B. Brocard 1976- This, the third work in Brocard's acclaimed "Orange" sequence, explodes the theme of semantic [a]chromatic aspects of visual perception first explored in his highly successful "Buffy" series, and fully explores the concept of supporting relationships, which were touched on in his earlier works. The site's central artifact is a stark reminder of the lack of support in contemporary relationships, with the jumbled juxtaposition of its two cups, indicative of being discarded in a hurry, symbolizing the excessive rapidity and tautness of modern life. As always with Brocard, it is vital to consider the intertextuality of the title of the work, in order to deconstruct the surface meaning of the work itself and penetrate, as it were, to the kernel of the work's "meaning", if such a concept is still relevant in the present context. Consider, for example, the word "Victoria": does it express the moniker of the bra's former occupant or merely the state or district in which she was born? And what of "Secret Tango"? Is it, in the context of the universe that is the present work, merely indicative of the site's location and visual perception, or does it suggest the bra's former resident once furtively enjoyed a rhythmic dance of long gliding steps and sudden pauses with the artist? The viewer will no doubt at this point recall that the word "tango" rhymes with "mango" and thereby grasp the semantic thrust of the work's title. However, the installation itself has even more to reveal when the particularly observant viewer speculates on the site's central device being strapped to the bra's current owner. This work is extremely fragile. Please do not touch. /-\ http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: [RFC] arbitary maths evaluation
Simon Wistow wrote: > For various reasons I needed to write something that would evaluate an > arbitary math's expression safely (i.e not just run it through eval ""). > > Now, is this worth packaing into a module? I didn't see anything on CPAN > like it and it's possibly quite useful for other people - there seems to > be precedence with Math::BooleanEval and, sort of orthogonally, > Math::Expr You might like to check these two out: http://search.cpan.org/dist/Math-Expression http://search.cpan.org/dist/Safe I haven't used either but remember them being mentioned in a recent Perl Monks thread. /-\ http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: Exporting Symbols
Nigel Rantor wrote: > I would export symbols anyway since I go for deisng first and then > speed/size/ other optimisations. > > Can anyone provide me with any info as to whether or not he is correct? The official advice for CPAN modules is to export nothing because "exports pollute the namespace of the module user". See: http://www.cpan.org/modules/00modlist.long.html#ID2_Guidelinesf (section 2.4 "Select what to export") for more details. /-\ http://mobile.yahoo.com.au - Yahoo! Mobile - Check & compose your email via SMS on your Telstra or Vodafone mobile.
Re: golf and reversed emails
Simon Wistow wrote: > It's mildly golfish so I thought I'd post it and see if people would > come up with something better (ignoring the easy wins like shoter > variable names). > > use strict; > my $max = 0; > > print join "\n", reverse > map {tr/\<\>\/\\\[\]\{\}\(\)\`\'/\>\<\\\/\]\[\}\{\)\(\'\`/;$_} > map {(" " x ($max - length)).reverse} > map {s/\s*$//g; $max = length if length>$max; $_} <>; > print "\n"; This reminds me of the recent "Buffy Looking in the Mirror" sequence at MoMA. Ignoring the obvious shortenings: tr -> y length -> y///c(aka "Abigail's length horror") we can eliminate the grotty join and unsightly double print with: use strict; my $max = 0; print reverse map {" " x ($max - length).reverse."\n" } map {s/\s+$//; tr!<>/[-]{}()`'!><\\]/[}{)('`!; $max = length if length>$max; $_} <>; This is more hard-core: #!perl -wlp use strict; s;\s+$;;;y;<>/[-]{}()`';><\\]/[}{)('`;;($==y===c)>$-&&($-=$=); @}=($_,@})}for(map$"x-(y---c-$-).reverse,@}){ /-\ -- You want it in one line? Does it have to fit in 80 columns? :-) -- Larry Wall in <[EMAIL PROTECTED]> http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: golf and reversed emails
Nick Cleaton wrote: > On Sun, Aug 24, 2003 at 05:29:02PM +0100, Scott McWhirter wrote: > > > > > > > perl -e 'print `rev`' > > > > > > Can anyone beat 11 characters? > > > > yeah... remove the space... > > Or even perl -e 'exec rev' Or even perl -eexec\ rev To reverse file f.tmp, I've tried: perl -e'`rev>&2`'http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: golf and reversed emails
> To reverse file f.tmp, I've tried: > > perl -e'`rev>&2`' perl -e'exec rev' perl -eexec\ rev rev f.tmp|perl -pe# To reverse the order of the lines (rather than their content), can anyone shorten this? perl -e'print reverse<>' f.tmp /-\ http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: golf and reversed emails
Roger Burton West wrote: > On Wed, Aug 27, 2003 at 01:25:41PM +1000, Andrew Savige wrote: > >> To reverse the order of the lines (rather than their content), >> can anyone shorten this? >> >> perl -e'print reverse<>' f.tmp > > perl -e 'exec tac' http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: golf and reversed emails
Jasper McCrea wrote: > Improving that: > > #!perl -wlp > use strict; > s/\s+$//;y#<>/[-]{}()`'#><\\]/[}{)('`#;$_[y///c]++; > @}=($_,@})}for(map$"x-(y///c-$#_).reverse,@}){ Of course, using Thelen's Device, we can sh?ave one more stroke: #!perl -lp s;\s+$;;;y;<>/[-]{}()`';><\\]/[}{)('`;;\$_[y]]]c]; @}=($_,@})}for(map$"x-(y---c-$#_).reverse,@}){ Nearly a one-liner now. /-\ http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
Re: Exim and HELO
Nicholas Clark schreef: > Anyway, something's just gone horribly wrong because we[1]'ve just > won a cricket match. That's not supposed to happen. > > 1: For some value of we that feels some sort of support for the >England team, not that they really earn it that often. >(Strict pedants will note that it's technically the England & > Wales team. I'm still surprised that the Dutch don't even > notice when their cricket team is in the world cup) No, no, no. That's the Canadians. Cricket was probably the most popular sport in the Netherlands ... ok, so that was in the 1870s. I have ferreted through my old email archives from the last Cricket World Cup; the quotes from the Dutchman are marked D: and from the Canuck C: Wearing fluro "Leon-Orange" uniforms ripped straight from the set of Charlie's Angels, the Dutch performed admirably against Australia this morning, losing by only 75 runs: http://www.smh.com.au/articles/2003/02/20/1045638426218.html http://www.cricketworldcup.com/wallpapers/icc/img70.htm D: I have to say I like their uniforms! Exactly the right colour. D: Too bad I didn't understand a word of that article... C: Isn't using uniform colors to incinerate the retinas of the opposing C: team against the rules? D: According to the Volkskrant (a national newspaper) the match against D: Australia was almost a draw! Unfortunately, the rain stopped a bit D: too early and the match could still be played... D: Volkskrant: "Australia needs only one more victory to qualify for the D: champion's round of the WC. For the Netherlands the next defeat is on D: February the 25th against Pakistan." Led by a brilliant bowling performance from a 28-year-old dread-locked plumber, Canada won its first match ever in the Cricket's World Cup. C: Aye. One of my co-worker, a charming Indian fellow going by the name C: of Ram, informed me of the accomplishment. My spontaneous reaction was, C: and I quote verbatim: "We have a cricket team?". Cricket, alas, is not C: really popular in Canada. We are more obsessed over hockey and curling C: and moose-wrestling... C: In related news, after the Canada first victory ever (was it against C: Zimbabwe?), not only we got creamed by Sri Lanka, but we actually C: acheived the lowest score possible in such a match. D: I've read that! But I don't think it's the lowest _possible_ score, D: just the lowest actually achieved. It wouldn't surprise me if the D: Dutch eleven(?) can beat your score. Another record for Canada! The fastest century in World Cup history! http://www.cricketworldcup.com/lion/lion2302200302.htm C: Ooh! C: Er. It is something good, or bad? As noted in a prominent article ("Lawyer sets precedent as dashing Dutch end campaign in style") in this morning's SMH newspaper, Holland finished on a high note, with their first ever World Cup century. Actually two Dutch batsmen scored centuries against Namibia; the first by lawyer Jan Feiko Kloppenburg (who works in The Hague), the second by Financier Klaas-Jan van Noortwijk (who was so stiff after his heroic 134 not out he was unable to field). D: Oranje boven! There were pictures of the last match against Namibia D: in the paper, so our first victory ever in the world cup didn't pass D: unnoticed. Of course, it helped that it there was no other sports D: news today (or was it yesterday). D: And there was much rejoicing, I presume, about the results of the D: English team... /-\ http://search.yahoo.com.au - Yahoo! Search - Looking for more? Try the new Yahoo! Search
New article on the history of Acme::Bleach and related modules
Shameless plug for a new node on an important bit of Perl history "The History of Acme::Bleach and Acme::EyeDrops" at perlmonks: http://www.perlmonks.org/?node_id=967004 This history includes Acme::Buffy and Acme::Pony and I just posted a follow-up using references from the London.pm mailing list circa 2001. If I made any errors re the London.pm history or you have further interesting anecdotes from 2001, please let me know. Thanks, /-\
Re: Can I get some advice on best way to start Perl Programming
Rick Deller wrote: > I have brought a couple of books on the subject which I'm reading through > I'm very keen to learn more and how to do it > Can anyone suggest more books or another way of doing it ? In addition to the already mentioned learn.perl.org you might take a look at the Perl Tutorial Hub at http://perl-tutorial.org/ /-\
Re: 25 Years of Perl
On Mon, Nov 19, 2012 at 05:29:29PM +, Dave Cross wrote: > At the LPW on Saturday I'm giving a talk entitled "25 Years of Perl" Great idea. An amusing anecdote from the very early days that illustrates how Perl attracted some of its early users is that merlyn relentlessly answered requests for Unix sed, awk, and shell help with snippets of *Perl* code. Indeed, he did this so often that posters began inserting "No Perl please" in their posts! As you might expect, that served only to increase the volume of Perl snippet responses. Because merlyn knew shell, sed and awk so well, he could answer questions in the requested language ... and then compare and contrast with a more elegant Perl solution. BTW, I believe this at least partly explains why merlyn formed part of the 2.7% who voted _against_ the formation of a separate comp.lang.perl newsgroup in 1989. The old use.perl.org links to verify this are broken unfortunately. Though I found a wayback machine link: http://web.archive.org/web/20041225063326/http://use.perl.org/comments.pl?sid=10975&cid=16619 Oh, and here is a (hopefully not broken) link to the original 1989 vote for comp.lang.perl, carried by 205 votes to 7: https://groups.google.com/forum/?fromgroups=#!msg/news.groups/bjii5Z9iJgY/RgAl62J00OUJ /-\
Re: 25 Years of Perl
On Mon, Nov 19, 2012 at 05:29:29PM +, Dave Cross wrote: > At the LPW on Saturday I'm giving a talk entitled "25 Years of Perl" Twenty five years is a long time, so inevitably some Perl hackers have passed away during that period: Iain Truskett (aka "Spoon"/"Koschei") Nick Ing-Simmons Dr Randy Kobes Tad McClellan Ivor Williams (perl monk: rinceWind) perl monk almut perl monk blazar perl monk VSarkiss Not sure if it is appropriate for your talk, but you might like to acknowledge their contributions. /-\
Re: 25 Years of Perl
Though there doubtless isn't time for a deatiled history of the lighter side of Perl culture, for completeness, in addition to Acme modules, we have: JAPH, Obfu, Golf, Poetry, April Fools. Some highlights: JAPH: First JAPH by merlyn 1988, followed later by trickier ones. Abigail's later popularisation of the JAPH. Obfu: TPJ Obfuscated Perl comps 1996-2000 run by Jon Orwant. Paris Perl Mongueurs $A++ page. Erudil's famous Camel Code on a T-shirt 2000. Larry's winning entry in the C obfucated comp 1986. Damian's SelfGOL; BooK and Jerome Quelin's multi-lingual obfus. Golf: Greg Bacon coins "Perl Golf" on CLPM 1999. Early informal golf battles Larry v Randal on CLPM 1990. RSA encryption/decrpytion in Perl as a signature file 1995. Live Perl Golf Apocalypse 2000 at TPC 4, aka uri's triumph. TPR Golf comps 2002. Perl golf transmogrifying into code golf in 50+ languages 2005. BTW, code golf is way more popular in Python than Perl nowadays, which may refute some of the arguments in this thread: http://www.dagolden.com/index.php/163/stop-with-the-perl-golf-already/ Poetry: Larry's April Fools "Black Perl" comp.lang.perl.poems newsgroup prank 1990. Sharon Hopkins seminal "Camels and Needles" paper 1991. Sharon's first poetry comp 1991. Later poetry comps run by Kevin Meltzer, TPC, and ActiveState 1990s. Damian's Coy module 1999 and subsequent explosion of interest in haiku. TPC 4 2000 haiku contest won by chipmunk. April Fools: Larry's Black Perl comp.lang.perl.poems 1990, Partain's Haskerl 1993, merlyn's sh2perl 1998, the lovely David Adler Esq.'s Semi::Semicolons 1999, foy's Java Mongers 1999, Damian's Acme::Bleach/acme's Acme::Buffy/DrHyde's Acme::Pony 2001, Cozens' elaborate Parrot prank 2001. April Fools patches to P5P. Full details can be found at: http://perlmonks.org/?node_id=412464 (JAPH) http://perlmonks.org/?node_id=424355 (Obfu) http://perlmonks.org/?node_id=437032 (Golf) http://perlmonks.org/?node_id=451207 (Poetry) http://perlmonks.org/?node_id=540609 (April Fools) Enjoy, /-\
Re: Project management
Greg McCarroll wrote: > Oh i'd also recommend DeMarco's book 'The Deadline', it's a sort of > novel about project management And 'The Mythical Man-Month' by Fred Brooks. Well-written, entertaining books about project management are rare. /-\