This will give you a start (from memory and untested)

> 1. How do I make my script to accept these three (3) name/value pairs via STDIN?

 
while (my $line = <STDIN> ) {
   chomp $line;
   ...
}
[download]

> 2. How do I access these values from within my script?

 %args = split /\s*=\s*/, $line;

> 3. How do I test such a call on Windows?

 C:>echo a = 1 |perl -e " print split /=/, <STDIN>"
a  1
[download]

or

 C:>echo a = 1 |perl myScript.pl

or (update)

you can put the lines after __DATA__ at the of your code and replace <STDIN> with <DATA> while testing.

while (my $line = <DATA> ) {

...

__DATA__
a=1 b=2 
c=3
[download]

You've been a unclear about the exact format of your arguments ^* , depending on this it might be a bit more complicated.

But we expect you to try and are happy to help if you give decent feedback ...

HTH! :)

*) like

• All in one line?
• Whitespace separated?
• Vaules quoted?
• Do you control the format?
• ...

You could always abuse a module which already parses STDIN for key=value pairs:

$ cat sin.pl 
#!/usr/bin/env perl 
use strict;
use warnings;
use CGI::Lite 3.00;

my $cgi = CGI::Lite->new;
my $params = $cgi->parse_form_data;
$cgi->print_data;
$ cat myin.txt 
txtpatid=foo
txtpatpw=bar
txtpatserver=guest
$ ./sin.pl < myin.txt 
[ Reading query from standard input. Press ^D to stop! ]
txtpatid = foo
txtpatpw = bar
txtpatserver = guest
$
[download]

This isn't necessarily recommended - just showing that it's possible. YMMV.

Welcome to the Monastery, mbravismore!

Normally, I'd skip such a question due to no effort shown whatsoever (please do so in the future), but I thought I'd at least show a basic skeleton that you can at least get started with. See the documentation of Getopt::Long to get an understanding of what is happening. You'll want/need to add in some parameter checking to ensure all required arguments are passed in.

use strict;
use warnings;

use Getopt::Long;

my %args;

GetOptions (
    'i|txtpatid=s' => \$args{txtpatid},
    'p|txtpatpw=s' => \$args{txtpatpw},
    's|txtpatserver=s' => \$args{txtpatserver},
);

for (keys %args){
    print "$_: $args{$_}\n";
}
[download]

Run it:

perl script.pl -i stevieb -p secret -s user
[download]

Output:

txtpatid: stevieb
txtpatpw: secret
txtpatserver: user
[download]

I checked Getopt::Long before posting, but couldn't find a mention of parsing STDIN, like the OP wanted.

How do you fix that?

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

Hi LanX,

Getopt::Long has the functions GetOptionsFromArray and GetOptionsFromString - I only know this because a while back I hacked together a solution to use Getopt::Std on arbitrary strings...

Regards,
-- Hauke D

I think I may have misinterpreted the question ;)