Question

I want to extract the desired information from a file and append it into another. the first file consists of some lines as the header without a specific pattern and just ends with the “END OF HEADER” string. I wrote the following code for find the matching line for end of the header:

$find = "END OF HEADER";                     
open FILEHANDLE, $filename_path;      
while (<FILEHANDLE>) {

     my $line = $_;                                                
     if ($line =~ /$find/) {

         #??? what shall I do here???                                                                                      
     }
}

, but I don’t know how can I get the rest of the file and append it to the other file.

Thank you for any help

Answer 1

I guess if the content of the file isn’t enormous you can just load the whole file in a scalar and just split it with the “END OF HEADER” then print the output of the right side of the split in the new file (appending)

open READHANDLE, 'readfile.txt' or die $!;
my $content = do { local $/; <READHANDLE> };
close READHANDLE;

my (undef,$restcontent) = split(/END OF HEADER/,$content);

open WRITEHANDLE, '>>writefile.txt' or die $!;
print WRITEHANDLE $restcontent;
close WRITEHANDLE;