in reply to Perl as a Holy Weapon?

And if you prefer not to use the hash, etc... at least using character classes instead of binary OR's 
 print "Enter name: ";
 while (<STDIN>) {
     chomp;
     tr/a-zuU/A-ZVV/;
     for ( split// ) {
#Get more function calls,
#but the function handles invalid date fine.
#         if ( /[IVXLCDM]/)
#         {
             $sum += RtoD($_);
#         }
     }
     if ($sum == 666) {
         markOfTheBeast();
         last;
     } else {
         print "The number is $sum...blessed be!\n";
     }
     $sum = 0;
     print "Enter name: ";
 }

 sub RtoD {
     $X = shift;
     return 1 if $X eq 'I';
     return 5 if $X eq 'V';
     return 10 if $X eq 'X';
     return 50 if $X eq 'L';
     return 100 if $X eq 'C';
     return 500 if $X eq 'D';
     return 1000 if $X eq 'M';
     return 0;
 }

[download]

Replies are listed 'Best First'.
Re: Re: Perl as a Holy Weapon?
by belg4mit (Prior) on Dec 07, 2000 at 04:01 UTC
    Or even (sorry, missed that someone else mentioned character classes)

    NOTE:, the romans didn't have the letter 'J'. (Watch your Indiana Jones, man!) 
    while( 1 ){
   my $sum;
   print "Enter name: ";
   chomp($_ = <>);
   tr/cdlmvxjJuU/CDLMVXIIVV/;
   map { $sum += RtoD($_) }  split//;
   if($sum == 666) {
      markOfTheBeast();
      last;
   } else {
      print "The number is $sum...blessed be!\n";
   }
}

sub RtoD {
   $X = shift;
   return 1 if $X eq 'I';
   return 5 if $X eq 'V';
   return 10 if $X eq 'X';
   return 50 if $X eq 'L';
   return 100 if $X eq 'C';
   return 500 if $X eq 'D';
   return 1000 if $X eq 'M';
   return 0;
}

    [download]
[reply]
[d/l]

In Section Cool Uses for Perl