[Vienna-pm] lesen und schreiben in Einem
Thomas Klausner
domm at cpan.org
Sun Oct 29 23:18:43 PST 2006
Hi!
On Mon, Oct 30, 2006 at 08:10:48AM +0100, Thomas Klausner wrote:
Ah, was ich noch vergessen hab:
> Statt $0 kann man auch das spezielle Filehandle 0 (Null) verwenden
> (spart ein paar '$'...):
>
> open 0;print for<0>;
So gehts auch, wenn's kein cat gibt (gibts das unter Win?)
> open ($o,'>','out') || die $!;
>
> open 0;print$o $_ for<0>;
Noch ein wenig mehr obfusciert:
open O,'>O';open 0;print O $_ for<0>;
man beachte O vs 0 :-)
--
#!/usr/bin/perl http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
More information about the Vienna-pm
mailing list