append file to file

gayathrib1

i want to append a file(say g1) and add info frm temp file (say g2) .... the info frm g2 must be added at a paticular line of the file g1 say frm third line .... can anyone help me in this....

gayathrib1

Expand|Select|Wrap|Line Numbers

 
my $filec="g32.pl";

my $temp="g31.pl";
 
open(INFO, ">>$filec");

open(TEMP, "<$temp");
 
while(<TEMP>)

{

    print INFO ("$_");

}
 
close(INFO);

close(TEMP);

this writes it to the end but my file g32 isa big file and i wanna add the content frm g1 at a specific location

KevinADC

use the Tie::File module

perldoc: Tie::File

gayathrib1

hey dint understand how to use that module exactly i am new to perl......

KevinADC

OK, but your original question is too vague for me to offer any suggestions. Explain your question better and maybe I can offer a better suggestion.

gayathrib1

see i have a file which has a set of lines say
agshdjkhkayd
ahskhduydaiskdha
hdlkhadkausyd
and there is another file which is very complex .....
nw i have to add these three lines of tht file to the tenth line (say) of the complex file.... i have to append file to file but i have to add the lines not at the end but a particular line of the file....hope u understand wat i mean...:)

eWish

Perhaps Data::Locations

However, it may not be the easiest to learn.

KevinADC

Quote:

Originally Posted by gayathrib1

see i have a file which has a set of lines say
agshdjkhkayd
ahskhduydaiskdha
hdlkhadkausyd
and there is another file which is very complex .....
nw i have to add these three lines of tht file to the tenth line (say) of the complex file.... i have to append file to file but i have to add the lines not at the end but a particular line of the file....hope u understand wat i mean...:)

Do you mean insert the lines? How do you know which line you have to add the data to? Is it always the same line? Does it overwrite the existing lines or insert the lines?

gayathrib1

ya i have to add the three lines to another file and these lines will be constant at least at present i will be working on constant lines and we have to add these three lines at a particular location of the another file (the big file tht i was talking abt)....

gayathrib1

the line wher i have to add i will know in advance and obviously it shouldnt overwrite the file to which it is written it should be just added ...

KevinADC

untested code but should work:

Expand|Select|Wrap|Line Numbers

 
use strict;

use warnings;

my $input_file = 'your_file';

my $big_file = 'your_big_file';

my $line_num = 10;

{

   open my $in, $input_file or die "Can't open $input_file: $!"; 

   local @ARGV = ($big_file);

   local $^I = '.bac';

   while (<>) {

      if ($. == $line_num) {

         while (defined (my $input = <$in>)) {

            print $input;

         }

      }

      else {

         print;

      }

   }

   close $in;

}

$line_num is the line number of the big fie you want to start the insertion of the lines from the other file.

gayathrib1

hey thanks a lott... sme qs ...wat is my $in ...and there s no need rite creating tht .bac file.... srry but i m new to programming ...

gayathrib1

and one more thing if u use argv and <> then .... the first line is lost rite ...so by that way we are losing a line ...the first line of the big file frm wher we start

KevinADC

Quote:

Originally Posted by gayathrib1

hey thanks a lott... sme qs ...wat is my $in ...and there s no need rite creating tht .bac file.... srry but i m new to programming ...

$in is a lexical filehandle, it is the same as:

open IN, 'filename';

but has advantages over using bareword filehandles like IN. You can use the old style filehandle if you prefer.

if you don't want a backup file created and you are using a non-windows operating system you can try:

$^I = '';

If you are using windows you have to create a backup file.

gayathrib1

hey one line is getting cut that is if we start the inserting frm 10th line the tenth line of the big file isnt there in the output ....

KevinADC

Quote:

Originally Posted by gayathrib1

hey one line is getting cut that is if we start the inserting frm 10th line the tenth line of the big file isnt there in the output ....

Yes, I see now that will happen. Change these lines:

Expand|Select|Wrap|Line Numbers

 
else {

   print;

}

to just:

Expand|Select|Wrap|Line Numbers

print;

and all should be well.

KevinADC

Quote:

Originally Posted by gayathrib1

and one more thing if u use argv and <> then .... the first line is lost rite ...so by that way we are losing a line ...the first line of the big file frm wher we start

No, it was lost because of the way I coded the script. See above post.

I am having a hard time reading your posts. Please use correct grammar and spelling from now on. Thanks.

gayathrib1

i am sorry for the grammatical errors .... will take care of it henceforth.... thanks i will change the script accordingly and tell you if i have a problem.... thanks again.....

append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

re: append file to file

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about