printing input from argv
This commit is contained in:
parent
611c9f4355
commit
1a904efe69
11
cli/exercise_02/input_argv.pl
Normal file
11
cli/exercise_02/input_argv.pl
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
foreach my $inline (@ARGV) {
|
||||||
|
print $inline . "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
1;
|
||||||
|
__END__
|
Loading…
Reference in New Issue
Block a user