linux-l: perl return

[Oliver Hillmann]

On Mon, 19 Feb 2001, Alexander Lehmann wrote:

> es geht mir nicht um die ausgabe, sondern darum, wie ich den
> Quelltext verkuerzen kann ( am liebsten waere mir das programm
> ohne if abfrage). Ich will ueberpruefen ob 
> "grep(/^(.+?\:){3}0019 01.+?/,<COM>)" definiert ist, aber in den

open(COM, "</proc/net/tcp") or die("$!");
print grep(/^(.+?\:){3}0019 01?/,<COM>)."\n";
close(COM);

Oder hatten wir das schon? :)

Gruß

Oli