Any perl programmers here? have a question.

[RayVega]

Don't ask why...long story.

Need to insert a line into an array to be written to file (or more accurately a file containing a list)

So, example, I have a file containing:
a
b
c
d
e
f

I need to insert z on the 4th line ex:
a
b
c
d
z
e
f


Any ideas?

[Tempest]

ideas?? or do you want someone to write it for you.

[donborno]

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

my $INPUT = 'blabla.txt';
my $OUTPUT = 'blabla2.txt';
my $FOURTH_LINE = 'z';

open(my $fhi, $INPUT) or die "Cannot open $INPUT : $!";
open(my $fho, '>', $OUTPUT) or die "Cannot open $OUTPUT (writing): $!";

while (defined(my $line = <$fhi>)) {
    print $fho $line;
    print $fho $FOURTH_LINE, "\n" if ($. == 4);
}

close($fhi);
close($fho) or die "Cannot close $OUTPUT : $!";

But then again, it's 7 am.