Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Command line argument

by krujos (Curate)
on Jun 03, 2002 at 13:10 UTC ( #171217=note: print w/replies, xml ) Need Help??

in reply to 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>); }

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

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.

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://171217]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2018-05-27 12:37 GMT
Find Nodes?
    Voting Booth?