作者onizi1224 (Onizi)
看板Perl
标题Re: [问题] 请问一下各位
时间Thu Jan 31 11:05:31 2008
※ 引述《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