[問題] 關於手機號碼查詢及新增系統
我們老師要每組想出兩種程式 當作期末的報告
但是我們只有想出這一個 希望有鄉民可以提供另一種作法
要中午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
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
