Трабла такая мне нужно открыть фаил, и заменить опеределённую строку в нем, например 8ую строку в этом файле поменять на "TEST".
Помогите, плиз. заранее спасибо!

• Помогите написать скрипт на Perl,centurion, 19:07 , 10-Ноя-03
  • Помогите написать скрипт на Perl,vnp, 21:49 , 10-Ноя-03
• Помогите написать скрипт на Perl,SysAd, 02:28 , 11-Ноя-03

>Трабла такая мне нужно открыть фаил, и заменить опеределённую строку в нем,
>например 8ую строку в этом файле поменять на "TEST".
>Помогите, плиз. заранее спасибо!

#!/usr/bin/perl -w
use strict;

my $file = 'file.txt';

open FILE, $file or die "ERROR: $!";
my @lines = <FILE>;
close FILE;

$lines[7] = "TEST\n";

open FILE, ">$file" or die "ERROR: $!";
print FILE @lines;
close FILE;

exit 0;

sed -e '8s/.*/TEST/' < infile > outfile

Всем огромное спасибо за помощь