История изменений
Исправление Deleted, (текущая версия) :
Начал изучать regexp`ы
но ведь это самое начало!
ткните в хороший ман по регэкспам в перле
кэмелбук, соответствующая глава. Или perldoc perlre и дальше по SEE ALSO.
P.S.
my $text = qq(Bla bla number=32 bla string="hello world");
my ($num, $str) = $text =~ /(?=.*number=(\d+))(?=.*string="(.*)")/;
print "$num, $str";
Исходная версия Deleted, :
Начал изучать regexp`ы
но ведь это самое начало!
ткните в хороший ман по регэкспам в перле
кэмелбук, соответствующая глава.
P.S.
my $text = qq(Bla bla number=32 bla string="hello world");
my ($num, $str) = $text =~ /(?=.*number=(\d+))(?=.*string="(.*)")/;
print "$num, $str";