Perl | Appending to a File
Last Updated :
05 Mar, 2019
When a file is opened in write mode using “>”, the content of the existing file is deleted and content added using the print statement is written to the file. In this mode, the writing point will be set to the end of the file. So old content of file remains intact and anything that is written to file using print statement is added to the end of the file. However, read operation cannot be performed unless the file is opened in +>> mode indicating append and read.
Example:
open (FH, "Hello.txt" ) or
die "Sorry!! couldn't open" ;
print "\nExisiting Content of the File:\n" ;
while (<FH>)
{
print $_ ;
}
open (FH, ">>" , "Hello.txt" ) or
die "File couldn't be opened" ;
print "\n\nEnter text to append\n" ;
$a = <>;
print FH $a ;
print "\nAppending to File is Successful!!!\n" ;
print "\nAfter appending, Updated File is\n" ;
open (FH, "Hello.txt" ) or
die "Sorry!! couldn't open" ;
while (<FH>)
{
print $_ ;
}
close FH or "couldn't close" ;
|
Original File:
Appending to File:
Updated File:
Here is how the program works:-
Step 1: Opening a file in read mode to see the existing content of the file.
Step 2: Printing the existing content of the file.
Step 3: Opening the File in Append mode to add content to the file.
Step 4: Getting text from the user to be appended to a file
Step 5: Appending text to file
Step 6: Reading the file again to see the updated content.
Step 7: Closing a file
Like Article
Suggest improvement
Share your thoughts in the comments
Please Login to comment...