Opened by esskar at 2005-02-17 01:02
User since
2003-08-04
12209 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12209 Artikel
Admin1
[quote=coax,17.02.2005, 00:35]Koennte mir in etwa so etwas vorstellen:
[/quote]
dabei hast du doch glatt die REGEX vergessen.
UNIVERSAL ist der richtige Weg.
Code: (dl
)
1
2
3
4
5
6
sub is_blessed {
return (ref $_[0]
&& ! grep { ref $_[0] eq $_ }
qw[ SCALAR ARRAY HASH CODE GLOB LVALUE ]
) ? 1 : 0;
}dabei hast du doch glatt die REGEX vergessen.
UNIVERSAL ist der richtige Weg.
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