Any perl programmers here? have a question. - GoFuckYourself.com

RayVega · 09-13-2007, 08:56 PM

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 · 09-13-2007, 09:54 PM

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

donborno · 09-13-2007, 10:14 PM

Code:

#!/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.

09-13-2007, 08:56 PM	#1
RayVega Confirmed User Industry Role: Join Date: Jul 2004 Location: New York ICQ#348007554 Posts: 4,212	Any perl programmers here? have a question. 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? __________________ Ray "The Don" Vega Managing Director Private Equity Fund [email protected]

09-13-2007, 09:54 PM	#2
Tempest Too lazy to set a custom title Industry Role: Join Date: May 2004 Location: West Coast, Canada. Posts: 10,217	ideas?? or do you want someone to write it for you.