|
Тема |
Re: string pattern matching [re: nickita_] |
|
Автор |
linman (непознат
) |
|
Публикувано | 06.02.03 23:11 |
|
|
Ako $mystring sadarja nyakakwa cifra to imame sawpadenie
$mystring = "hi1kak si 3 dobre sum 2 extra e 1";
if ($mystring =~ /\d/)
{
#good
}
else
last;
################################
#dokato ima sawpadenie sas cislo waw zadadeniya string
#proweryawa dali cisloto e rawno na 1 i ako e taka se uwel
#$counter s edenica i t.n.
$mystring = "hi1kak si 3 dobre sum 2 extra e 1";
while (/\d/g) {
if ($_ eq 1) {
$counter++;
}
else {
print "1 not found\n";
}
if (mod ($counter/2) eq 0) {
print "1 se sadarja ceten broj pati\n";
}
}
|
| |
|
|
|