Автор Тема: Не могу перезаписать файл  (Прочитано 142 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Darentina

  • Новичок
  • *
  • Сообщений: 1
  • +0/-0
    • Просмотр профиля
Не могу перезаписать файл
« : 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);
}



 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28