Thread perl einzeiler
(12 answers)
Opened by micneu at 2011-11-02 13:57
als danke erstmal, ich habe deinen code in meinen integriert:
Code: (dl
)
ldapsearch -x "(mail=*)" mail | grep "mail.*@" | perl -n -l -F. -e 's/mail:\s//g; {my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/; if (@arr) { print $arr[-3] } if $_ =~ /.*\..*@/}' | less nur bekomme ich jetzt eine fehler meldung: syntax error at -e line 1, near "if $_ " Execution of -e aborted due to compilation errors. an welcher position muss dein code schnippsel eingefügt werden? |