Hi

I need to add extra line after end of each line in perl.
I have file with data like below.
12345
67890
abcde

I need the data to be:
12345

67890

abcde

I am using the below code to achieve this.Here i am opening the file, looping through all the records and adding "\n" at the end of each record. But I am not getting what i wanted. Any suggestions??

***********************
my $thisFILE="$Filepath";

open (my $FILE,"<", $thisFILE) or die "Argh!";
while (my $rec=<$FILE>){
print "Entered into while loop\n";
$rec=$rec."\n";
}
**********************

Thanks
K.

my $thisFILE="$Filepath";

open (my $FILE,"<", $thisFILE) or die "Argh!";
my $newrec;
while (my $rec=<$FILE>){
print "Entered into while loop\n";
$newrec .= $rec."\n";
}

print $newrec;

Thanks adam999. This just worked fine.
Thanks for your help !!

K

This seems like a lot of hard work for something trivial ... are you just looking to improve your Perl skills? Or maybe this is a small part of something bigger?

That's what I first thought, too. However my initial reaction to use either sed or tr both failed me. My best was this:What is the real solution?
--- rod.

Assuming you have file.ext including a few text lines to insert empty line after each line is enough to run the following command:

sed -i 's/$/\n/' file.ext

Or

Or even

1 members found this post helpful.

Now that is sweet

I knew you guys were good...
--- rod.