自己备忘，欢迎灌水

elec_zxm · 发表于 2013-5-10 10:36:01

您需要登录才可以下载或查看，没有账号？注册

x

use Roman;
$roman = roman($arabic); # convert to roman numerals
$arabic = arabic($roman) if isroman($roman); # convert from roman numerals

elec_zxm · 发表于 2013-5-10 10:37:16

use Time::localtime;
use Roman;
printf "The year is now %s\n", Roman(1900 + localtime->year);

The year is now MMIII

elec_zxm · 发表于 2013-5-10 10:42:57

@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
$password = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);

liucongwoshi · 发表于 2013-5-10 14:47:07

@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
$password = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);

[原创] 自己备忘，欢迎灌水