Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 20
+37 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
perl -wE '/^\s*(\d+)\s*$/ and say "num: $1" for @ARGV' test 2 3 4 foo bar 7
+6 replies
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
my $exists = scalar gerp { my $x = int $_; "$x" eq $_ } @ARGV;
+5 replies
1 2 3 4 5 6
#!/usr/bin/perl -W use strict; use warnings; @ARGV = ('sonne','wolke5','4'); my $exists = scalar grep { my $x = int $_; "$x" eq $_ } @ARGV; print $exists;
QuoteArgument "sonne" isn't numeric in int at test14.pl line 5.
Argument "wolke5" isn't numeric in int at test14.pl line 5.
1
+3 replies![[Homepage]](/battie/theme/default/homepage.gif)
2010-04-29T15:06:38 biancaLeg Dich am besten nochmal hin :)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
Quoteich zähle die zahlen von 0 bis unendlich dazu :D
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+26 replies
1 2 3 4 5
#!/usr/bin/perl -W use strict; use warnings; @ARGV = ('sonne','wolke5','4'); if (grep {$_ =~ /^\d$/} @ARGV) { print "jaaaa" }
+24 replies
1 2 3 4
my $exists = scalar grep { my $x = int $_; "$x" eq $_ } @ARGV; if (defined $exists) { $input = $exists; }
+2 replies
2010-04-29T15:15:21 conrayAbschnitt -pwgen aber als standalone script ohne getopt-long
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+20 replies
2010-04-29T15:15:21 conrayals standalone script ohne getopt-long
1 2 3 4 5 6 7
#!/usr/bin/perl -W use strict; use warnings; @ARGV = ('sonne','wolke5','45'); my $inhalt = ''; foreach (@ARGV){if ($_ =~ /^(\d+)$/){$inhalt = $1; last}} print $inhalt;
+19 replies
+12 replies
+8 replies
2010-04-29T15:32:55 esskareinzeiler
Code (perl): (dl )my $inhalt = grep { /^(\d+)$/ } @ARGV;
+7 replies
+6 replies
2010-04-29T15:36:32 esskarfixed.
+5 replies
+4 replies
2010-04-29T15:38:59 esskarmusst genauer schauen.
nicht immer unqualifiziert nörgeln.
+3 replies
+2 replies
my ($inhalt) = grep { /^(\d+)$/ } @ARGV;
+3 replies
+2 replies
2010-04-29T15:36:17 biancazur vollständigkeit eben.Ja, er will auch kein Array sondern die Value :))
+6 replies
2010-04-29T15:29:50 conrayDas ist genau das was ich gesucht habe :)
+5 replies
+4 replies
2010-04-29T15:38:21 conrayWer mehr angibt ist selbst schuld :D
+3 replies
1 2
if (defined $ARGV[2]) { print "Idiot es gibt nur 2 (in Worten 'zwei') Parameter :-D\n" }
+2 replies
1 2 3 4 5
#!/usr/bin/perl -W use strict; use warnings; @ARGV = ('sonne','wolke5','45'); if (grep {$_ =~ /^\d+$/} @ARGV) { print "jaaaa" }
+3 replies
1 2
if($number=~m#^[+-]?[\d_]*\.?[\d_]+(?:e[+-]?[\d_]+)?$#) { print "ist Zahl"; }
+2 replies
Scalar::Util::looks_like_number zu verwenden.
![[Powered by Battie]](/battie/img/powered.png)
