标题: perl写了一个生成字典的小程序 [打印本页]

---

作者: cnangel    时间: 2002-10-27 02:49     标题: perl写了一个生成字典的小程序

BLOCK:
{
print "请输入需要生成字典的起始范围  ";
$first=<STDIN>; chomp $first;
print "请输入需要生成字典的结束范围  ";
$second=<STDIN>; chomp $second;
if($first>$second) {die "起始数字必须比结束数字小"}
print "你选择了从$first到$second之间产生随机数 确定吗(y/n) ";
$char = getc STDIN;
getc STDIN;
};
if (lc($char) eq "y")
{
print "请在输入字典的位数 ";
$Length=<STDIN>;
}
elsif (lc($char) eq "n")
{
goto BLOCK;
}
else
{
print "请输入正确的字符\n";
       exit;
}
if(length $second < $Length)
{
do
{$second=join("",0,$second);}
until
(length $second == $Length);
}
if(length $first < $Length)
{
do
{$first=join("",0,$first);}
until
(length $first == $Length);
}

{
print "请输入生成字典的路径及名称,如 c:\\dic.txt ";
$name=<STDIN>; chomp $name;
$,="\n";
        #print $name;
open(OUTFILE, ">c:\\u.txt");
print OUTFILE ("$first".."$second");
}
注意：可以生成字母的字典　如aaa-yyy 之间的所有三位排列，不过有个小毛病，就是生成字母的时候　请在输入字典的位数　必须要你填写的起始位数小，要不就生成不了，数字的可以，自动补零,有兴趣完善一下咯

---

欢迎光临 星星博客 (http://bbs.huhoo.net/)

Powered by Discuz! 7.0.0