18 lines
315 B
Perl
18 lines
315 B
Perl
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $file = "yourFile.txt";
|
|
open( FILE, $file ) or die( "Error opening $file: $!" );
|
|
my $filehandle = *FILE;
|
|
readhandle( $filehandle );
|
|
close( FILE ) or die( "Error closing $file: $!" );
|
|
|
|
|
|
sub readhandle
|
|
{
|
|
my $fh = shift();
|
|
print while ( <$fh> );
|
|
}
|