Am Freitag, 6. September 2002 09:42 schrieb Heiko Schlittermann:
#! /usr/bin/perl $_ = join("", <STDIN>);
was macht dieses Zeile???
while (/^\s*host\s+(\w+)+\s+{\s+ hardware\ ethernet\ ([[:xdigit:]:]+);\s+ fixed-address\ ([\d.]+);.*?}/ixgsm) { print "$1,$2,$3\n"; }
Jungs, ihr seit Klasse! Hat schon mal jemand über das Best-Of nachgedacht?
Mit freundlichen Grüßen
Jens Puruckherr