Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^3: Adding 2 + 2 (digit-less 1)

by w-ber (Hermit)
on Mar 04, 2007 at 15:26 UTC ( #603117=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Adding 2 + 2 (digit-less 1)
in thread Adding 2 + 2

More (although not as neat):

my $one = !$|; my $one = cos; # Given that $_ == 0. my $one = cos $|; my $one = cos atan2 $|, cos; my $one = sin atan2 sin, $|; my $one = length $/; # Note: possibly 2 under Windows or DOS. my $one = length $"; my $one = length $;; my $one = length $^L; my $one = $^T/$^T; my $one = @ARGV >= 0; my $one = grep //, ($_); my $one = !undef; # Note: the following may be Unix-only. Will not work if run as root, # as root's UID and GID are (always?) zero. my $one = $</$<; # User ID. my $one = $>/$>; # Effective user ID. my $one = $(/$(; # (Space-separated list of) group ID(s). my $one = $)/$); # (Space-separated list of) effective group ID(s +).

Ways to get 2:

my $two = length $:; my $two = $^F; # Note: system-dependent.

--
print "Just Another Perl Adept\n";


Comment on Re^3: Adding 2 + 2 (digit-less 1)
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://603117]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (18)
As of 2014-08-27 20:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (252 votes), past polls