Perl: the Markov chain saw 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??

## 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;

Create A New User
Node Status?
node history
Node Type: note [id://377403]
help
Chatterbox?
 [Jeri]: oh hai

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2017-06-23 17:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How many monitors do you use while coding?

Results (552 votes). Check out past polls.