Help for this page

Select Code to Download


  1. or download this
    sub _get_anyStr {
    my $prompt = shift;
...
    chomp( $resp );
    return _suckSpaces( $resp );
}
  2. or download this
    "no" not allowed in expression at (eval 226)[/usr/share/perl/5.20/perl
+5db.pl:732] line 2, at end of line
syntax error at (eval 226)[/usr/share/perl/5.20/perl5db.pl:732] line 2
+, near "need no stinking "