Вопрос по perl
1205
1
Обьясните мне дураку, что случилось.
вроде простой код
$text =4333;
if ($text = ~ /(\d)/)
{
print $1;
}
else
{
print "dasdasdaddd";
}
print $text;
Иф проходит, но $1 не печатаеться.
Когда делаю
print $text;
получаю 4294967295
Что я делаю не так.
Понять не могу, при поиске $text изменяеться я так понимаю?
Фигня какаято...
вроде простой код
$text =4333;
if ($text = ~ /(\d)/)
{
print $1;
}
else
{
print "dasdasdaddd";
}
print $text;
Иф проходит, но $1 не печатаеться.
Когда делаю
print $text;
получаю 4294967295
Что я делаю не так.
Понять не могу, при поиске $text изменяеться я так понимаю?
Фигня какаято...