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