linux-l: perl return (RESENT)

[Steffen Dettmer]

* Alexander Lehmann wrote on Tue, Feb 20, 2001 at 16:00 +0100:
> #!/usr/bin/perl
> 
> open(COM,"</proc/net/tcp");
> print (grep(/^(.+?\:){3}0019 01.+?/,<COM>) == 0 ?"0":"1")."\n";
> close(COM);

#!/usr/bin/perl /proc/net/tcp
print (grep(/^(.+?\:){3}0019 01.+?/,<>) == 0 ?"0":"1")."\n";

Müßte auch gehen, oder? Kannst ja mal probieren, das open würde
mich viel mehr nerven :)

oki,

Steffen

-- 
Dieses Schreiben wurde maschinell erstellt,
es trägt daher weder Unterschrift noch Siegel.