linux-l: perl return

Alexander Lehmann ballaballla at gmx.at
Di Feb 20 16:00:04 CET 2001


also, kommen wir zum ende: ich habe es jetzt
so geloest:

#!/usr/bin/perl

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


also ein mischmasch, aus allem was ihr mir so an den
Kopf geworfen habt. Danke fuer eure Hilfe :) 

nur so als anmerkung, das galt wirklich nicht einem
speziellem Programm, sondern nur fuer studienzwecke
denn ich hatte es satt, fuer solch kurze Ausgaben 
eine Emige if-then-else abfrage zu basteln.


bis denne

Alex



Mehr Informationen über die Mailingliste linux-l