Re: Command line argument

[krujos]

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>);
}

.... 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.

[tadman]

Say what? That's the same as this:

$argument = undef;
while (0)
{
}

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));