Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Learning Perl Vars

by cristian (Hermit)
on Mar 29, 2005 at 22:44 UTC ( #443288=obfuscated: print w/replies, xml ) Need Help??

perl -e 'for($",{},[],\_,**,\&_,\\$_,$^,$~,jk,$^X) {$__= $_;if($_=~/\//){($__)=$_=~/\/([^\/]+)$/}else {$__=~s/\(.*\)|:|\*|_//g}push@_,split//,$__;}print lc"$_[42]$_[31]$_[27]$_[33]$_[0]$_[2]$_[19]$_[34]" ."$_[33]$_[4]$_[23]$_[24]$_[0]$_[35]$_[23]$_[24]". "$_[13]$_[0]$_[1]$_[14]$_[20]$_[43]$_[25]$_[15],";'

Replies are listed 'Best First'.
Re: Learning Perl Vars
by Tanktalus (Canon) on Mar 30, 2005 at 00:14 UTC

    Relying on $^X can be dangerous ... ;-)

    $ perl -e 'print $^X,$/' /home/share/perl5/bin/perl

    The output from the above is then "nuet another perl hacper," or "tu5t another perl hacder," depending on which perl I use to run it with ;-) Only if I actually run it via "/usr/bin/perl" do I get the desired result...

      Yes , you have reason. I update this code . thanks. Now the code run in all path

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://443288]
Approved by Tanktalus
help
Chatterbox?
and the voices are still...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2018-07-19 10:07 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 (406 votes). Check out past polls.

    Notices?