read a file in perl

Zealous Zebra answered on January 27, 2022 Popularity 8/10 Helpfulness 6/10

answer read a file in perl

read a file in perl

Comment

#!/usr/bin/perl
use warnings;
use strict;

my $filename = 'c:\temp\test.txt';

open(FH, '<', $filename) or die $!;

while(<FH>){
   print $_;
}

close(FH);
Code language: Perl (perl)

Popularity 8/10 Helpfulness 6/10 Language perl

Source: www.perltutorial.org

Tags: file perl

Link to this answer
Share Copy Link

Contributed on Jan 27 2022

Zealous Zebra

0 Answers Avg Quality 2/10

Closely Related Answers

perl read file

Comment

# Basic syntax:
# For reading:
open(my $in, "<", "infile.txt") or die "Can't open infile.txt: $!";
# For writing (overwrites file if it exists):
open(my $out, ">", "output.txt") or die "Can't open output.txt: $!";
# For writing (appends to end of file if it exists):
open(my $log, ">>", "my.log") or die "Can't open my.log: $!";
# Where:
# 	The first argument to open creates a named filehandle that can be
#		referred to later
#	The second argument determines how the file will be opened
#	The third argument is the file name (use $ARGV[#] if reading from the CLI)
#	The or die "" portion is what to print if there is an error opening the file
# Note, be sure to close the filehandle after you're done operating on the file:
close $in;

# You can read from an open filehandle using the "<>" operator.  In
# scalar context it reads a single line from the filehandle, and in list
# context it reads the whole file in, assigning each line to an element
# of the list:
my $line = <$in>;
my @lines = <$in>;

# You can iterate through the lines in a file one at a time with a while loop:
while (my $line = <$in>) {
  print "Found apples\n" if $line =~ m/apples/;
}

# You can write to an open filehandle using the standard "print" function:
print $out @lines;
print $log $msg, "\n";

Popularity 8/10 Helpfulness 5/10 Language perl

Source: learnxinyminutes.com

Tags: file import im

Link to this answer
Share Copy Link

Contributed on Mar 11 2022

Charles-Alexandre Roy

0 Answers Avg Quality 2/10

perl read file

Comment

#!/usr/bin/perl
use warnings;
use strict;

my $filename = 'c:\temp\test.txt';

open(my $FH, '<', $filename) or die "ERROR: Could not open '$filename': $!";

while(<$FH>){
   print $_; # or other action per record
}

close($FH);

Popularity 1/10 Helpfulness 1/10 Language perl

Source: Grepper

Tags: file perl

Link to this answer
Share Copy Link

Contributed on Aug 16 2022

Vijay Anand

0 Answers Avg Quality 2/10

read a file in perl

Contents

More Related Answers