Passing <STDIN>

[AIXFinder]

I want to pass the integer with <STDIN> rather than hardcode it. The code below has all 1 (one), but it can be 2, 3 4, etc. On <STDIN>, I want to put regex so that it will only accept integer; otherwise, the prompt asks until the integer is entered.


bla...

@H=(' ',split//,$a);
@V=(' ',split//,$b);
for my $v(0..$#V){
for my $h(0..$#H){
$M[$v][$h] =
$v?$h?(sort$M[$v-1][$h]+1,$M[$v][$h-1]+1,$M[$v-1][$h-1]+($V[$v]ne$H[$h]))[0]:$v:$h;
}
}
bla ...

 

[MikeLacey]

Ok...

Well, the first one's easy.

You get the first command line parameter like this:

$param = $ARGV[1];

As for making sure that $param is an integer, try return value from the int() function. As long as you're checking for a non-zero integer that should be ok.

if(int($param)>0){
# some stuff
} else {
# some other stuff
}

Mike

The options are: fast, cheap and right - pick any two.. &

Want great answers to your Tek-Tips questions? Have a look at faq219-2884

 

[AIXFinder]

my $int = '';

## I am thinking something like this...

while($int !~ /^[d]+$/){
print "Enter integer: ";
$int = <STDIN>;
chomp $int;
}

Seems $int !~ /^[d]+$/ is not working ...

 

[KevinADC]

[d] is just a 'd'.

\d is the shortcut character class for digits, same as [0-9].

Also, you don't need a character class [] for a single character or single character class shortcut:

while($int !~ /^\d+$/){

------------------------------------------
- Kevin, perl coder unexceptional!