One Hat Cyber Team

Your IP: 216.73.216.62
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/usr/share/doc/perl-Regexp-Assemble/examples/

View File Name : roman

/usr/bin/perl -w
#
# roman - generate a regular expression that matches the roman numerals
# from 1 to 20.
#
# you can over-ride the upper bound (20) by specifying the value
# on the command line. You can also specify an indent value to
# pretty-print the resulting regexp.
#
# Copyright (C) David Landgren 2005

use strict;
use Regexp::Assemble;

my $max    = shift || 20;
my $indent = shift || 0;

eval "use Math::Roman 'roman'";
$@ and die "You must install Math::Roman to run this example\n";

my $r = Regexp::Assemble->new;
$r->add(roman($_)) for 1..$max;

print $r->as_string( indent => $indent ), "\n";