Re^2: Replacing, cutting, deleting lines in the file

Hi, Thank you for your replies. And thank you for the code :). Anyway I will use it later when mine will be bad ;P. I've prepared something like:

my $array_position;
my $file = "/home/user/file.txt";

open FILE, $file;

my @file = (<FILE>);

close FILE;
foreach ( @file )
{
    if ($_ =~ /line 3/)
    {
        $array_position=$i+1;
        print "Position in array = ". $array_position. "\n";
    }
    $i++;
}

for ($a=$array_position-1; $a<$array_position+3; $a++)
{
    print "Postion ".$a." in the array = " .$file[$a];
}

@array = @file;
splice @array, 0, 'something';
print @array;
[download]

The file.txt contains this:

line 1
line 2
fsefse line 3
line 4 ,...
line 5
line 6>
[download]

The problem is it doesn't want to replace first element from the array to string I specified. Any ideas why ? Regards, Jarek

Comment on Re^2: Replacing, cutting, deleting lines in the file Select or Download Code

Replies are listed 'Best First'.
Re^3: Replacing, cutting, deleting lines in the file by gulden (Monk) on Nov 24, 2009 at 18:42 UTC
Is this what you want? `use strict; use warnings; use Data::Dumper; my @file = (<DATA>); my @array = @file; splice @array, 0, 1,'something'; print Dumper \@array; __DATA__ line 1 line 2 fsefse line 3 line 4 ,... line 5 line 6>` [download]	[reply] [d/l]
Re^4: Replacing, cutting, deleting lines in the file by Jarek (Novice) on Nov 25, 2009 at 09:08 UTC
Yes, Thank you. Can you explain me why you had to put two parameters 0, 1 to replace only the first element ? OK... :) I know why... thank you :) Regards, Jarek	[reply]