Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

('Japh'^'Chars'^'Concept')

by cristian (Hermit)
on May 16, 2005 at 13:53 UTC ( #457457=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl split "", (('P'^'U'^'O').('I'^'D'^'x').('X'^'r'^'Y') .('R'^'R'^'t').('w'^'y'^'.').('k'^'F'^'L').('Y'^ 'G' ^'p').('l'^'I'^'J').('R'^'R'^'t').('l'^'T'^'P').('l' ^'F'^'O').('m'^'N'^'Q').('w'^'y'^'.').('e'^'r'^'G'). ('l'^'F'^'O').('m'^'N'^'Q').('j'^'['^']').('w'^'y' ^ '.').('l'^'T'^'P').('k'^'F'^'L').('R'^'B'^'s').('s'^ 'H'^'P').('l'^'F'^'O').('m'^'N'^'Q').('z'^'='^'k')); _:{print"\ec";unshift@_,pop@_;print" "x31 ."^";print "\n"." "x(30-$_).$_[$_]." "." "x($_+$_).$_[$_] for 0 .. @_-1;usleep(250000);redo _}use Time::HiRes usleep

Replies are listed 'Best First'.
Re: ('Japh'^'Chars'^'Concept')
by pboin (Deacon) on May 16, 2005 at 14:08 UTC

    I think I'm with you, (well done by the way), but I'm a little lost by the _: just after the split. Is the underscore functioning as a label at that point? I think so, but I've not seen that before.

    Anyone care to enlighten me on what advantage there is to this kind of eternal loop versus others? (Maybe it just has higher ob-fu karma?)

      I think I'm with you, (well done by the way), but I'm a little lost by the _: just after the split. Is the underscore functioning as a label at that point? I think so, but I've not seen that before.
      Yes, it is a label. (If you don't figure it out when you see it, the redo should tip you off.) The underscore is considered to be a word character by most of Perl, so it can be used in places where most other punctuation cannot. For instance, a single underscore is also a valid subroutine name.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://457457]
Approved by ktross
help
Chatterbox?
[Discipulus]: good morning monks and nuns!
[Corion]: Hi Discipulus, Happy-the-monk!
[Corion]: There is demand for an emergency Frankfurt.pm social meeting, as two people from Strasbourg.pm are in Frankfurt on Wednesday - I'll forward the mail in the evening

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2018-07-23 08:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (459 votes). Check out past polls.

    Notices?