On [07-07-2005] 13:58 +0300, Mihai Maties wrote:
> perl -ne 'if (/\(\[(\d+\.\d+\.\d+)\.\d+\]:\d+\)/) { print "\"$1.0\"
> \"255.255.255.0\"\n"};' <fisier_in >fisier_out
Heck, what about IP checks ? O varianta (neobfuscata) ar fi:
perl -MSocket -nle'/^Rec.*\(\[((\d{2,3}\.){3})(\d{2,3})\]\:\d{4,5}\)/ ? \
inet_aton(qq{$1$3}) && print qq{"$1}.qq{0" "255.255.255.0"}:1' mail.log
Also, de luat in considerare aspectele negative ale procedurii,
amintite in thread. Aici am comentat doar solutia efectiva.
--
perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
get(q=http://cpan.org/misc/japh=)))]'
---
Detalii despre listele noastre de mail: http://www.lug.ro/
