linux-l: perl return

[Alexander Lehmann]

Hallo Alle

also, es geht mir um folgendes: ich habe ein kurzes programm
geschrieben das mir einfach nur ausgibt, ob ein zeichen in
einer datei vorhanden ist. Es sieht etwa so aus:

#!/usr/bin/perl

open(COM,"</proc/net/tcp");
if(grep(/^(.+?\:){3}0019 01.+?/,<COM>))
{
    print "1";
}
else
{
    print "0";
}
close(COM);

also, nur um zusehen, ob port 25 noch offen ist. Was mich
aber auf ein Problem gestossen hat, was ich schon laenger
habe. Die ausgabe ist zu lang. Ich weiss es gibt eine
Moeglichkeit ( es muss eine geben ) wie ich die Ausgabe
verkuerzen kann. 

Danke 

Alex