Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

    return $retval;
}

Select or download this

C:\Steve\Dev\PerlMonks\P-2015-03-30@1459-Ad-Hoc-Conditionals>adhoc1.pl
Enter ad hoc values list in the following format:  query->value|query-
+>value|query->value
...
       Resposne: Kevin

    Enter query: