please # japh

Discussion in 'Perl Misc' started by igor.lobanov@gmail.com, Jan 13, 2005.

  1. Guest

    #!/usr/bin/perl
    eval qq;
    sub qq{qr/[^a-z]+/i}
    # line 134\150\141\143\153\145\162\012\144\151\145\073;,
    $,=' ',print((split(&qq,qq,$@
    # just another comment
    # line 116\040\160\145\162\154\075\067\075\067\075\062;,
    ))[4,5,8,2])
     
    , Jan 13, 2005
    #1
    1. Advertising

  2. lio Guest

    The same but simpyfied

    #!/usr/bin/perl
    eval qq{
    #line $$ "just another perl hacker"
    die;};$@=~/j.+r/;print$&;

    Regards, lio
    http://www.template-toolkit.ru/
     
    lio, Jan 13, 2005
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Lawrence D'Oliveiro

    JAPH

    Lawrence D'Oliveiro, Nov 12, 2005, in forum: Python
    Replies:
    2
    Views:
    463
    Michael
    Nov 13, 2005
  2. Bryan Castillo

    my first japh

    Bryan Castillo, Jul 7, 2003, in forum: Perl Misc
    Replies:
    1
    Views:
    129
    Bryan Castillo
    Jul 8, 2003
  3. Pedro Graca

    newbie 4th JaPH

    Pedro Graca, Nov 7, 2003, in forum: Perl Misc
    Replies:
    8
    Views:
    98
    Pedro Graca
    Nov 11, 2003
  4. Thomas Kratz

    comments on JAPH?

    Thomas Kratz, Nov 17, 2003, in forum: Perl Misc
    Replies:
    12
    Views:
    181
    Thomas Kratz
    Nov 24, 2003
  5. robin

    matrix japh

    robin, May 24, 2005, in forum: Perl Misc
    Replies:
    0
    Views:
    90
    robin
    May 24, 2005
Loading...

Share This Page