mix arguments with normal input

bofinken has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am more or less new to Perl, so my question is propably really bad, but I couldn't find a solution when I google, so: I want to get two arguments from the command line to my program and get that to two strings. Seems doable. But when I also want to get input within the program it doesn't work. What have I missed?
*************

($input1, $input2) = @ARGV;
  print "Save '$input1' and '$input2'\n";
 
print "and another string within the program!: ";
chomp ($inputinside = <>);
[download]

********* This seemed like a good idea, but it not... apperently. Thanks in advance you wonderful person out there!

Comment on mix arguments with normal input Download Code

Replies are listed 'Best First'.
Re: mix arguments with normal input by choroba (Cardinal) on Sep 27, 2018 at 21:43 UTC
The diamond operator reads from STDIN only when there are no parameters to the script, otherwise it reads line by line the files specified as parameters one by one. That's the behaviour of the default magic ARGV filehandle. You have to options: Remove the two filenames from the array `my ($input1, $input2) = splice @ARGV, 0, 2; # Make sure no arguments +are left.` [download] Specify that you don't want to read from the magic ARGV handle but standard input: `$inputinside = <STDIN>;` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^2: mix arguments with normal input by Lotus1 (Vicar) on Sep 28, 2018 at 14:56 UTC
Another way to remove from `@ARGV` is `my ($input1, $input2) = (shift,shift);` I realize you know this but since this is a new to Perl type question I'll throw in this option.	[reply] [d/l] [select]
Re^3: mix arguments with normal input by Your Mother (Archbishop) on Sep 28, 2018 at 17:43 UTC
What?! No splice!? :P `my ( $one, $two ) = splice @ARGV, 0, 2;` [download]	[reply] [d/l]
Re^2: mix arguments with normal input by bofinken (Initiate) on Sep 28, 2018 at 17:42 UTC
Cheers! Pat yourself on your head. Wonderful. So easy, yet so very helpful. Enjoy life and thanks again!	[reply]
Re: mix arguments with normal input by hippo (Archbishop) on Sep 27, 2018 at 21:01 UTC
Read explicitly from STDIN and you'll be fine: `use strict; use warnings; my ($input1, $input2) = @ARGV; print "Save '$input1' and '$input2'\n"; print "and another string within the program!: "; my $inputinside = <STDIN>; print $inputinside;` [download]	[reply] [d/l]