Gast+2007-09-14 15:34:46--

Code (perl): (dl )

1
2
3

$_ = @elem[0];
s/\D//g;
$erg = $_;

1
2

my $erg = $elem[0];
$erg =~ tr/0-9//cd;

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