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

GoFuckYourself.com - Adult Webmaster Forum (https://gfy.com/index.php)

- Fucking Around & Business Discussion (https://gfy.com/forumdisplay.php?f=26)

- - Any perl programmers here? have a question. (https://gfy.com/showthread.php?t=768531)

RayVega

09-13-2007 08:56 PM

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?

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.

All times are GMT -7. The time now is 06:19 AM.