Opened by micneu at 2011-11-02 13:57
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
man kann im perl-code auch einfach so umbrechen. ich mach das mal am beispielcode:
und schon sieht man, wo der hund begraben liegt.
Code: (dl
)
1
2
3
4
5
6
7
8
9
ldapsearch -x "(mail=*)" mail | grep "mail.*@" | perl -n -l -F. -e '
s/mail:\s//g;
{
my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/;
if (@arr) {
print $arr[-3]
} if $_ =~ /.*\..*@/
}
' | less
und schon sieht man, wo der hund begraben liegt.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem