Debugging Practice

[Bill Jones]

On the Jax.PM jacksonville-pm-list;
"Bill Jones" <bill at fccj.org> wrote -


Hi all  :]

Sorry I didn't post a Script of the Week this past
weekend, but I've been extremely busy at work...

At any rate, here is a practice script for you
'less-than-expert' perl'ers to debug:

#Reducing the problem to smallest test code:
$vFlag = "a|0|0|y|0|0|x|x|z";

print
      " Well? ",
{
    ((split(/\|/, $vFlag))[7] eq 'x') ? 'do this' : 'do that'
},
      "\n";


Please post your answers, etc, to -

    jacksonville-pm-list at hfb.pm.org

Also, please elaborate upon which paths and resources
you followed to determine the correct answer...


Enjoy!
-Sneex- :]
_________________________________________________________________________
$_ = "Jacksonville Perl Monger"; while(/([Jacksonville Perl Monger])/g){
print join(" ", map { defined $_ ? $_ : "" } $`, $&, $', $+), "\n"; }


The Jacksonville Perl Monger's Group is operated by -
Bill -Sneex- Jones ( sneex at usa.net ),
to whom send all praises, complaints, or comments...