#!/usr/bin/env perl use strict; use warnings; my $filename = shift @ARGV; my $fh = *STDIN; open($fh, "<", $filename) or die if defined $fn; while (<$fh>) { print; } close($fh);
% cat a.txt 1.おはよう 2.行ってきます 3.ただいま 4.おやすみ % ./test1.pl a.txt 1.おはよう 2.行ってきます 3.ただいま 4.おやすみ % cat a.txt | ./test1.pl 1.おはよう 2.行ってきます 3.ただいま 4.おやすみ
#!/usr/bin/env perl use strict; use warnings; # while (<DATA>) { print } my $fh = *DATA; while (<$fh>) { print; } __DATA__ 1.おはよう 2.行ってきます 3.ただいま 4.おやすみ
% ./test2.pl 1.おはよう 2.行ってきます 3.ただいま 4.おやすみ