linux-l: perl return

[Alexander Lehmann]

* Oliver Hillmann (oh at novaville.de) [010220 13:30]:
> 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);

das Problem bei dem ding ist aber, das ich als Ausgabe nicht 0 
oder 1 erhalte, sondern den kompetten zutreffenden String.

> 
> Oder hatten wir das schon? :)
> 

(nee in der Liste noch nicht, aber hier hatte ich das schon ;)


bis denne

Alex