Example 8-3. examples/arrays/file_slurp.pl #!/usr/bin/perl
use strict;
use warnings;
use File::Slurp qw(slurp);
my $filename = shift or die "Usage: $0 FILENAME\n";
my $text = slurp($filename);
If you are interested in on-site trainings by the author, please
contact me directly.
|
