#!/usr/bin/perl -w
use strict;
&main();
sub main {
my $str = "1234";
if ($str =~ /^\d+$/) {
print "True";
}
else {
print "False";
}
}
Строки в Perl
Подскажите плиз, каким образом можно проверить все ли символы в строке являются цифрами?
my $str="1234";
if ($str=~/^\d+$/) { print "Все цифры"; }
if ($str=~/^\d+$/) { print "Все цифры"; }
perldoc perlre
perldoc perlretut
perldoc perlretut
Огромное спасибо. =)
Цитата:
Originally posted by Alone
my $str="1234";
if ($str=~/^\d+$/) { print "Все цифры"; }
my $str="1234";
if ($str=~/^\d+$/) { print "Все цифры"; }
Такая конструкция почему-то не работает. :(
Чего говорит, если не работает???
Код: