Dice roller
Given a di(c)e roll in standard d20 format on the command line, this script will roll the dice & output the result.
1 2 #!/usr/bin/perl -wl 3 use strict; 4 $_ = shift or die 'Invalid argument passed'; 5 s/\s+//g; 6 /^(\d+)[dD](\d+)([+-]\d+)?$/ or die 'Invalid argument passed'; 7 my $sum = 0; 8 $sum += 1 + int rand $2 for 1..$1; 9 $sum += $3 if defined $3; 10 print $sum;
