[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