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