RDW #3 - Rätsel der Woche Nr. 3 - #84878 (Allgemeines zu Perl)

sri

2004-07-29 23:52

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=sri,29.07.2004, 14:41]

Code: (dl )

1
2

<XXX>;
undef and print 'ok';

Was muss da anstelle von <XXX> stehen damit das print ok ausgibt?[/quote]
Naja, ich werds mal auflösen...

Code: (dl )

1
2

&Internals::SvREADONLY(\undef, 0); undef = 1;
undef and print "OK";

Das wäre die original Lösung.
Zur Erklärung, veränderbare Konstanten sind ein neues Feature von Perl 5.8\n\n