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

[Dmitry Arsentiev]

> my $body;
> open F, 'file.txt';
> sysread F, $body, -s F;
> close F;
> print $body;

Спасибо, Максим.
У меня размер одного файла не более 200кб.
Другое дело, что этих файлов много.
Но они обрабатываются последовательно,
поэтому предложенная вами предосторожность
в моём случае, думаю, будет чрезмерной.


6 ноября 2008 г. 22:18 пользователь Maxim Vuets <maxim.vuets на gmail.com> написал:
> On 11/6/08, Dmitry Arsentiev <dmarsentev на gmail.com> wrote:
>
>> Мне надо, чтобы весь текст лежал в одной переменной.
>> Считываю я из файла по рабоче-крестьянски. вот так:
>> my @a = <F>;
>> my $a = "@a";
>
> Действительно неочень хорошо: долго и опасно для памяти
> на больших объемах.
>
> Я вот такой способ предпочитаю:
>
> my $body;
> open F, 'file.txt';
> sysread F, $body, -s F;
> close F;
> print $body;
>
> --
>  .  Hoc est simplicissimum!
> ..: maxim.vuets.name
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>