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

Re: How's your Perl? (II)

by xmath (Hermit)
on Jul 26, 2004 at 13:26 UTC ( #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;


Comment on Re: How's your Perl? (II)
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (10)
As of 2014-12-21 11:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (104 votes), past polls