求用perl编写一个图形程序

这是题目的要求:
创建一个图形程序:
　　1)循环6次
　　这个计划将内循环。
　　二)要求用户输入一个家庭的名字(使用标准输入)。
　　三)检查的名字为有效使用正则表达式(正确)
　　有效的(正确的)名称必须:
　　开始以一个大写字母(大写)
　　仅包含字母数字或特殊字符(没有)。
　　你可以使用多个比赛的声明
　　四)如果名称无效(错误的)、环回要求一个有效名称(直到这个名字是有效的)。
　　三)如果名称是有效的(正确的),存储在一个数组名(为了)。
　　一旦回路完成。
　　四)要求用户的文件名
　　五)写阵列的文件(附加”.txt“结束”)的使用
　　例如:$文件名=文件名。”.txt美元”。


语法提示:
Loops:
for (my $variable = 0; $variable < $maximum; $variable++) { }
foreach $element (@list) { }
while($condition) { }
Match Statements:
$trueorfalse = $stringToMatch =~ m/$textToMatch/;
File Operations:
open $file, “<”, $filename; #open for reading
print $file $stringtoprint #file writing

没有弄过 Perl/Tk。帮顶

没搞过图形编程

我也没弄过图形界面的 惭愧

学习中