[MacPerl] &MacPerl'Pick --> Variable

[Dakota Duff <webmaster@sunflowermall.com>]

Why won't this work?  Can anyone help?

Dakota Duff



$| = 1;

$anim = &MacPerl'Pick("What kind?","Buffalo","Elk");
$spec = &MacPerl'Pick("What kind?","Bull","Cow","Bull Calf","Heifer
Calf","1 YR Old Bull","1 YR Old Heifer","2 YR Old Bull","2 YR Old Heifer");


if ($anim == "Buffalo")   {
  $aa = "BUF";
}
if ($anim == "Elk")   {
  $aa = "ELK";
}
if ($spec == "Bull")   {
  $bb = "BULL";
}
if ($spec == "Cow")   {
  $bb = "COWS";
}
if ($spec == "Bull Calf")   {
  $bb = "BCAV";
}
if ($spec == "Heifer Calf")   {
  $bb = "HCAV";
}
if ($spec == "1 YR Old Bull")   {
  $bb = "1YRB";
}
if ($spec == "1 YR Old Heifer")   {
  $bb = "1YRH";
}
if ($spec == "2 YR Old Bull")   {
  $bb = "2YRB";
}
if ($spec == "2 YR Old Heifer")   {
  $bb = "2YRH";
}

print "$aa$bb";




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch