Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: How's your Perl? (II)

by xmath (Hermit)
on Jul 26, 2004 at 13:26 UTC ( [id://377403]=note: print w/replies, xml ) Need Help??


in reply to How's your Perl? (II)

Solutions:

Note that for a few exercises multiple solutions are given.

[1] $foo = *x;
[2] *foo = \substr $x, 0;
*foo = \vec $x, 0, 8;
[3] BEGIN { $^H |= 0x30000; $^H{qr} = sub{""} }
[4] *foo = qr/IO::Handle/;
[5] *foo = find PerlIO::Layer "raw";
[6] *foo = sub{\@_}->($x, $x);
[7] *foo = \42;
[8] *foo = sub{\@_}->(${*STDIN{IO}});
sub DB::DB { die if ++$x==2 } BEGIN { $^P |= 0x22 }
[9] $foo = "\n0"; $* = 1;
[10] //; *foo = \$+[0];
[11] *@ = *|; eval { die "2" };
[12] 2 =~ /(2)/; *| = \local $1;
2 =~ /(2)/; *| = *^N;
$[ = 2; *| = *[;
[13] &Internals::SvREADONLY(\undef, 0); undef = 42;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2024-03-28 22:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found