Re: Command line argument

you could just check for it before.

#!/usr/bin/perl
$argument = $ARVG[0] || warn "No argument";
print "argv = |$ARVG[0]|\n"; 
if ($argument !=~/\w/ ) {
    print "enter an argument \n";
    chomp ($argument = <STDIN>);
}
[download]

.... or something like that. in the reg ex you could even check for the right type of input.

update
thanks to tadman for pointing out this, but I was missing an equals sign in the above.. also, got a cup of coffee in me and fixed other silly stuff.. sorry for the first poor response.

Comment on Re: Command line argument Download Code

Replies are listed 'Best First'.
Re^2: Command line argument by tadman (Prior) on Jun 03, 2002 at 13:13 UTC
Say what? That's the same as this: `$argument = undef; while (0) { }` [download] This is the noise you'll be making when you try and run that program: "ARVG! ARVG!" Remember, when pushing buttons on the keyboard, it is important to hit them in the right order. Must be one of those late nights/early mornings? I think what you meant was: `$\|++; my $argument = $ARGV[0] \|\| warn "No argument given\n"; do { print "Enter an argument: "; chomp ($argument = <STDIN>); } while (!length($argument));` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Command line argument
by tadman (Prior) on Jun 03, 2002 at 13:13 UTC

$argument = undef;
while (0)
{
}
[download]

$|++;

my $argument = $ARGV[0] || warn "No argument given\n";

do
{
    print "Enter an argument: ";
    chomp ($argument = <STDIN>);
} while (!length($argument));
[download]

[reply]
[d/l]
[select]