box-o-sand/perl-practice/cli/ex02/input_fromfile.pl

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

use IO::File;
use File::Basename;


my $script = basename($0);
my $USAGE = <<USAGE
Usage: $script <infile>
USAGE
;

if (!defined $ARGV[0]) {
    die $USAGE;
}

my $infile = $ARGV[0];
open(DAT, $infile) or die "$infile: $!";
my @cleaned = ();
foreach my $line (<DAT>) {
    $line =~ s/\s*$//;
    $cleaned[++$#cleaned] = $line;
}

print join("|", @cleaned) . "\n";

close(DAT);


1;
__END__