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

Spoilers:

1: 

$foo = *bar; \$foo =~ /^[A-G]/ and print "Ok!\n";

[download]

7: 

*foo = *1; !eval { ($foo) = $foo } and print "Ok\n";

[download]

6: I don't know weather this is cheating or not, but it does make the (updated) expression true: 

*foo = *_; sub { \$foo[0] == \$foo[1] && !$[ and print "Ok\n"; } -> ($
+x, $x);

[download]

Update: a clean solution for 6: 

sub{*foo=\@_}->($x,$x); \$foo[0] == \$foo[1] && !$[ and print "Ok!\n";

[download]

Update again: 2: 

*foo = \substr(1,0,1); \$foo =~ /^[H-N]/ and print "Ok!\n";

[download]

Update: a wildcard solution for 3: 

BEGIN{$^H{"qr"}=sub{""};$^H|=3<<16}; \$foo =~ /^\0/ and print "Ok!\n";

[download]

Update: I finally realized that I should have known 12 from the start: it was in last year's quiz. 

$[ = 2; *| = *[;  ($| = 1) == 2 and print "Ok!\n"; warn 0+$|;

[download]

Update: and here's an answer for 8, although you might take it as cheating as it requires an adittional option on the command line to be set.

<Reveal this spoiler or all spoilers in this node or all in this thread>

Update: you can give the switch in the shebang line too. If you write this to a file and execute it with perl, it works.

<Reveal this spoiler>

Replies are listed 'Best First'.
Re^2: How's your Perl? (II)
by wog (Curate) on Jul 22, 2004 at 19:37 UTC
    You don't need any switches! 

    BEGIN{$^P=0x22;sub DB::DB{++$foo==2 and die}}

    [download]

    (I am pretty sure that is not the official solution, by the way, and it means that 8 does not need to exploit actual bugs.)

    updated: Oops, copied a wrong version initially. One character difference.

[reply]
[d/l]

In Section Meditations