※ 引述《pcikilo (好)》之銘言：
: #!/usr/bin/perl
: print "Plz key your birthday\n";
: $a =< >;
: $b ="pcikilo";
: chomp $b;
: until ($a eq $b){
: print "You are not pcikilo~~~";
: $a=< >;
: }
: print "hello ~~pcikilo";
: ~
: 不好意思 小弟我在嘗試寫一個小小的程式
: 就是你輸入名子後 會出現正確訊息 如果不是的話 就會叫你TRY下去
: 以上就是小弟的寫法 似乎好像寫不出來 嗚~~~我想了好久都寫不出來
: 但是如果換成純數的話 就OK...換成字串就掛掉了
: 請問利害厲害的版友 可以幫我 debug嗎?
#!/usr/bin/perl
print "Plz key your birthday\n";
$a = <STDIN>;
$b = 'pcikilo';
chomp ($a) ;
until ($a eq $b){
print "You are not pcikilo~~~\n";
print "Plz key your birthday\n";
$a= <STDIN>;
chomp ($a) ;
}
print "hello ~~pcikilo";
稍微修改了ㄧ下 別介意 ^^"
我的程式還很差 不過 先求有再求好
請多指教
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.67.151.50