Read from a file : file read « File « Perl






Read from a file

     

#!usr/bin/perl

use strict;
use warnings;

print "Opening file for output:\n";
open OUTFILE, ">file.txt" or die "Can't find file.txt : $!";
print "Outputting to file.\n";
print OUTFILE "There was an old lady\n";
close OUTFILE or die "Can not close file.txt : $!";

print "It now reads:\n";
open INFILE, "file.txt" or die "Can not open file.txt : $!";
print while (<INFILE>);
close INFILE or die "Can not close file.txt : $!";

   
    
    
    
    
  








Related examples in the same category

1.The read Function (fread)
2.Read file content to a scalar variable
3.Read hash value from a file
4.Read line splitted by space
5.Read only the last file line from a text file
6.Read the first line of a local file
7.Read till the end of the file
8.Reading More than One Line
9.Reading a directory all at once with an array: Use an array with the readdir command, instead of a scalar variable
10.Reading from a Pipe
11.Reading from a file
12.Reading from the Filehandle
13.Reading one line from the file handle STDIN.
14.Reading the contents of a directory: change to that directory and then use the glob command
15.Reads an entire input file into an array.
16.Reads lines from a file and prints them.
17.Using read function in while loop
18.Using read function to read a file
19.The read Function reads a number of bytes into a variable from a filehandle.
20.Contents of the entire file are printed
21.Numbering Lines
22.To read a number of bytes from a file: $bytes_read = read(filehandle, $var, $length, $offset);
23.To read from a file: