Pass command line arguments as well as input from STDIN for Perl script?

Question

I have a Perl script which takes both command line arguments and STDIN

#!/usr/bin/perl -w
use strict;
use warnings;

my $logpath = $ARGV[0];
print "logpath : $logpath\n";

print "Name : ";
my $name = <>;
chomp($name);
print "my name is $name\n";

It does not stop at stdin input. Works fine for any one of command line or standard input but not for both.

Any Reason?

I'm sorry sir, but what do you want?

orlp
– orlp

2011-03-25 10:11:37 +00:00
Commented Mar 25, 2011 at 10:11 — orlp
– orlp, Commented Mar 25, 2011 at 10:11

codaddict · Accepted Answer · 2011-03-25 10:16:47Z

19

Change

my $name = <>;

to

my $name = <STDIN>;

If @ARGV has no elements, then the diamond operator will read from STDIN but in your case since you are passing arguments though command line, @ARGV will not be empty. So when you use the diamond operator <> to read the name, the first line from the file whose name is specified on the command line will be read.

answered Mar 25, 2011 at 10:16

codaddict

457k83 gold badges501 silver badges537 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

tadmc Over a year ago

It is a problem because <> reads from files in @ARGV. If you want it to read from stdin instead, then you need to ensure that @ARGV is empty. An alternative way to fix your program is to continue to use <>, but change to: my $logpath = shift; so that @ARGV will be empty.

Colin Over a year ago

Using shift worked for me, whereas changing <> to <STDIN> did not

Collectives™ on Stack Overflow

Pass command line arguments as well as input from STDIN for Perl script?

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related