Forum Webscript.Ru

Программирование => Perl => Тема начата: от 09 Декабря 2001, 01:30:12

Название: как выделять из строковых выражений цифры?
Отправлено: от 09 Декабря 2001, 01:30:12

как мне из строкового выражения  $text в котором записано - "text4.txt"  выделить 4-ку т.е как выделять из строковых выражений цифры?

Название: можно так:
Отправлено: Green Kakadu от 09 Декабря 2001, 02:51:49

$text=\'text4.txt\';
if ($text=~/(\\d+)/){$num=$1;}
else{$num=0;}
print $num;

Название: спасибо тебе еще раз
Отправлено: от 09 Декабря 2001, 15:48:09

огромное тебе спасибо... я в перле только начал разбираться .. раньше на паскале маньячил и вообщем то приуспел в нем, потом delphi ну а щас вот perl -ом решил побаловаться ....

Название: есть еще вариант
Отправлено: Green Kakadu от 09 Декабря 2001, 16:11:35

можно еще и так:

$text=\'text4.txt\';
$num=$text;
$num=~s/\\D//g;#Удаляется все кроме цифр
print $num;

Название: как выделять из строковых выражений цифры?
Отправлено: от 10 Декабря 2001, 07:52:31

@nums = m/(\\d+\\.?\\d*|\\.\\d+)/g;
Получишь все цифры.