[Moscow.pm] туплю с регуляркой , если кто знает , помогите плиз: как заменить бэкслэш на слэш?

[Dmitry Arsentiev]

Алексей, спасибо за помощь.
Вы, конечно, правы.
Однако вы сделали пример настолько по-своему,
что мне он не очень годится.
К большому моему сожалению.

Мне надо, чтобы весь текст лежал в одной переменной.
Считываю я из файла по рабоче-крестьянски. вот так:
my @a = <F>;
my $a = "@a";

В итоге получаю весь текст из файла в интерполируемой строке.
Вопрос: умеете ли вы как-то считывать весь файл в переменную,
чтобы в этой переменной содержалась неинтерполируемая строка?

Я не умею.

Я понял вашу мысль так:
файл надо читать построчно,
обрабатывать каждую считанную строку надо сразу.
Хотя мне это очень неудобно, видимо, на этом и остановлюсь.


6 ноября 2008 г. 21:53 пользователь Alexey Beshenov <al на beshenov.ru> написал:
> On Thursday 06 November 2008 21:46:16 Dmitry Arsentiev wrote:
>> Я обрабатываю некий текст.
>> Считываю весь текст в переменную.
>> Текст большой, килобайт 50-100.
>> В этом тексте много чего встречается.
>> Не я пальцами задаю этот текст, я его считываю из файла.
>> В итоге этот текст оказывается в переменной, например, $str.
>
> Это каким образом считывание текста из файла приводит к
> интерполяции qq?!
>
>  $ cat -n test.txt
>    1  image\101
>    2  image\102
>    3  image\103
>
>  $ perl -e 'foreach (<>) { s#\\#/#g; print }' test.txt | cat -n
>    1  image/101
>    2  image/102
>    3  image/103
>
> --
> Setting Orange, Aftermath 18 YOLD 3174
> Alexey Beshenov  http://beshenov.ru/
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>