1
Perl / Не могу перезаписать файл
« : 28 Мая 2017, 18:09:29 »
Ребята, недавно начала учить Perl, сильно не ругайте.
Решила побаловаться с регулярными выражениями. Но возникла проблема результат не хочет сохраняться.
В идеале вообще хотела чтобы оригинальный файл перезаписывался. Но он почему-то не работает.
Подскажите где ошибка...
Заранее благодарю.
Решила побаловаться с регулярными выражениями. Но возникла проблема результат не хочет сохраняться.
В идеале вообще хотела чтобы оригинальный файл перезаписывался. Но он почему-то не работает.
Подскажите где ошибка...
Заранее благодарю.
Код: [Выделить]
#!/usr/bin/perl -w
use diagnostics;
use warnings;
use strict;
open (FILE, '>>apple.txt');
while (<FILE>){
s/is/at/; # Substitute 'is' for 'at' in $_
print FILE;
close (FILE);
}