linux-l: perl return

[Florian Cramer]

Am Mon, 19.Feb.2001 um 15:58:00 +0100 schrieb Alexander Lehmann:

> es geht mir nicht um die ausgabe, sondern darum, wie ich den
> Quelltext verkuerzen kann ( am liebsten waere mir das programm
> ohne if abfrage). 

Ganz simpel in fünf Zeilen:

#!/usr/bin/perl
open(COM,"</proc/net/tcp");
while(<COM>) {if (/.+/) {die "1\n"}}
close(COM);
print "0\n";


Florian

-- 
http://userpage.fu-berlin.de/~cantsin/
http://www.complit.fu-berlin.de/institut/lehrpersonal/cramer.html
PGP public key ID 6440BA05