Opened by Crian at 2004-08-20 11:38
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
substr($text, -1, 1, "");
$text = reverse $text;$text =~ s/.//s; $text = reverse $text;
local $" = ''; $text = "@{[@_ = split//, $text and pop @_ and @_]}";
edit: regex-lösung nach ptks hinweis mit /s\n\n
<!--EDIT|pq|1092996176-->
$text = reverse $text;$text =~ s/.//s; $text = reverse $text;
local $" = ''; $text = "@{[@_ = split//, $text and pop @_ and @_]}";
edit: regex-lösung nach ptks hinweis mit /s\n\n
<!--EDIT|pq|1092996176-->
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