Over a million developers have joined DZone.

Dice Roller

DZone's Guide to

Dice Roller

Free Resource
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';
/^(\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;

Opinions expressed by DZone contributors are their own.

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}