作者Drayray (瑞瑞)
看板Perl
标题[问题] 关於手机号码查询及新增系统
时间Tue Jan 13 00:47:46 2009
我们老师要每组想出两种程式 当作期末的报告
但是我们只有想出这一个 希望有乡民可以提供另一种作法
要中午1点前交 很赶 实在是没办法了才会请教各位乡民
功能不用很齐全 只要能跑就好
会非常感谢你们的
题目:手机号码查询及新增系统
要求功能:
1.以号码查询
2.以姓名查询
3.以手机号码新增姓名
4.以同学姓名新增手机号码
要求条件:
<STDIN>
HASH (不一定要)
正规表示式
副常式
条件判断
范例:
INPUT:
$abc="/Perl/123.cgi";
if (-e $abc)
{
print "手机号码新增查询程式\n";
print "1.以手机号码查询\n";
print "2.以姓名查询手机\n";
print "3.以手机号码新增\n";
print "4.以姓名新增号码\n";
until ($choi eq '0') {
print "请选择项目, (0)结束: \n";
$choi = <STDIN>;
chomp $choi ;
if ($choi eq '0'){
print "谢谢,再见!";
}
elsif ($choi eq '1'){
print "\n请输入连续任4位以上手机号码:\n";
&aaaa
}
elsif ($choi eq '2'){
print "\n请输入连续任1位以上姓名:\n";
&aaaa
}
elsif ($choi eq '3'){
print "\n请输入10位数手机号码:\n";
&bbbb
}
elsif ($choi eq '4'){
print "\n请输入同学姓名:\n";
&cccc
}
else{
print "无此选选项!请从新输入(0-4)\n";
}
}
}
else
{
$abc="/Perl/123.cgi";
open(FHD, "+> $abc");
print FHD "my %hash = (
'0977395130' =>'王晓明',
'0914525721' =>'王大铭',
'0996512084' =>'王钟明',
'0989752192' =>'王铭',
'0938777999' =>'王大',
);";
close(FHD);
goto INPUT;
}
sub aaaa {
$abc="/Perl/123.cgi";
open(FHD, "<$abc") ;
%hash=<FHD>;
chomp(my $input = <>);
my $tmp=0;
my @hostkey;
my @hostvalue;
while (my ($key, $value) = each (%hash))
{
if ( $key =~ "$input" )
{
push @hostvalue," $key\n";
}
else {$tmp++;}
}
print " @hostvalue\n";
close(FHD);
}
sub bbbb{
$abc="/Perl/123.cgi";
open(FHD, "+<$abc") ;
%hash=<FHD>;
chomp(my $input = <>);
my $tmp=0;
my @hostkey;
my @hostvalue;
while (my ($key, $value) = each (%hash))
{
if ( $key =~ "$input" )
{
push @hostvalue," $key\n";
}
else {$tmp++;}
}
print " @hostvalue\n";
if($tmp>6)
{ print "\n请输入同学姓名:\n";
$qname = <STDIN>;
open(FHD, ">> $abc") ;
print FHD
" my %hash =(
$input =>$qname ,
);";
print " 已新增\n";
}
close(FHD);
}
sub cccc{
$abc="/Perl/123.cgi";
open(FHD, "+<$abc") ;
%hash=<FHD>;
chomp(my $input = <>);
my $tmp=0;
my @hostkey;
my @hostvalue;
while (my ($key, $value) = each (%hash))
{
if ( $key =~ "$input" )
{
push @hostvalue," $key\n";
}
else {$tmp++;}
}
print " @hostvalue\n";
if($tmp>6)
{ print "\n请输入10位数手机号码:\n";
$qtel = <STDIN>;
open(FHD, ">> $abc") ;
print FHD
" my %hash =(
$input =>$qtel ,
);";
print " 已新增\n";
}
close(FHD);
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.173.0.67