Я хочу заменить слово "синий" на "красный" во всех текстовых файлах с именем 1_classification.dat, 2_classification.dat и т.д. Я хочу отредактировать тот же файл, поэтому я пробовал этот код, но он не работает. Где я иду не так?
@files=glob("*_classification.dat");
foreach my $file (@files)
{
open(IN,$file) or die $!;
<IN>;
while(<IN>)
{
$_='~s/blue/red/g';
print IN $file;
}
close(IN)
}