Irgendeine zahl in array - #136544 (Allgemeines zu Perl)

bianca

2010-04-29 17:15

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Kleine Korrektur, damit der Integer auch mehr als eine Ziffer enthalten kann:

Code (perl): (dl )

#!/usr/bin/perl -W
use strict;
use warnings;
@ARGV = ('sonne','wolke5','45');
if (grep {$_ =~ /^\d+$/} @ARGV) { print "jaaaa" }

10 print "Hallo"
20 goto 10