1, 3;
> next if '[' eq substr $_, 0, 1;
> {
> local $" = "|";
> no strict 'refs';
>(ucfirst lc $1) -> () if $vFlag =~ /^.(@tags)/;
> }
since the original sub was called as
&$vSub;
wouldn't this be more equivalent (just in case
@_ was to be passed to the sub intentionally)?
&{ ucfirst lc $1 } if $vFlag =~ /^.(@tags)/;
--
Steve Lane <[EMAIL PROTECTED]>
I will take the dollar sign..."
>
> One true problem with that, though, is that variable names can
> be anything.
just require that if a variable name contains
a letter, then that letter must be 'z' (or whatever).
$z, $zz, $, @z, etc.
--
Steve Lane <[EMAIL PROTECTED]>
@ARGV = @ARGV;
my $term;
{
$term .= '(' if int rand 2;
$term .= shift;
$term .= ')' if int rand 2;
last if !@ARGV;
$term .= $OP[rand @OP];
redo;
}
"$term == 24"
};
eval $expr and do { print "solution: $exp
acker
> "
if external programs -that come with Perl-
are allowed, you can:
print`perldoc -qj`=~/"(.+)"/
--
Steve Lane <[EMAIL PROTECTED]>