LINUX.ORG.RU

Perl: преобразовать скаляр в re//


0

1

Доброго времени суток.

Есть

my $a='/regexp/';

нужно получить

my $b=qr/regexp/;

Подскажите, что почитать по этому поводу. Раньше использовал обе формы и вообще не задумывался, что это настолько разные вещи :-\

★★★★★
Ответ на: комментарий от arsi

У нас по-прежнему разные Perl :D 5.10.1-17, Debian squeeze

#!/usr/bin/perl

use strict;
use Data::Dumper;

my $a='/$#/';
my $b=eval "qr$a";

print Dumper($a), "\n";
print Dumper($b), "\n";
print Dumper( qr/#$/ ), "\n";
router@ftps:~$ ./test2.pl
$VAR1 = '/$#/';

$VAR1 = undef;

$VAR1 = qr/(?-xism:#$)/;
router ★★★★★
() автор топика
Ответ на: комментарий от router

> my $a='/$#/';
> /$#/
> print Dumper( qr/#$/ ), «\n»;
> /#$/

определись уже, /$#/ или /#$/) когда определишься — поймёшь, почему у тебя получился undef ;)

arsi ★★★★★
()
Ответ на: комментарий от arsi

Блиин, из-за опечатки убить час - это даже для меня рекорд

Спасибо !

router ★★★★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.