第一次使用perl的经历

时间：2006-08-13 来源：chb307155

    安装ActivePerl     第一次在XP上安装ActivePerl，“.pl;%PATHEXT% ”环境变量我已经设置了，结果出错，提示如下：
    “ActivePerl-5.8.8.817-MSWin32-x86_64-257965.msi”不能正常安装。后经过CU论坛的朋友们帮助，知道了不能正常安装原因是：      我的XP系统是32位的OS，而我下的ActivePerl-5.8.8.817-MSWin32-x86_64-257965.msi是对应64位的OS。重新下载ActivePerl-.8.8.817.91-MSWin32-x86-265828.msi，就可以正常安装了。 ===========================================================    perl代码问题    第一次写小程序，结果出现了很多错误。代码无法实行。    经过反复调试，修改后，终于可以执行了。    虽然是很基础的东西，对像我这样的新手来说却是很大的进步了。有一点成就感。   ^0^   自己鼓励下自己。 ==========================================================    第一次写小程序： ############          程序开始       #############
### #!/usr/bin/perl   ##在windows下无须该行也能运行
#$SR =“收入”;
############ “ATTEMPT”块开始 #############

ATTEMPT:  {
print  "**无收入者直接按Enter.RMB单位**\n请输入您每年的收入:";

chomp($SR=<STDIN>);
#$SR=<STDIN>;

if($SR >= 1) {print "业精于勤，荒于戏。\n";}
else {print "您目前真的没有任何收入吗？(y/n):";
      chomp($_=<STDIN>); #### 如果使用$SR=<STDIN>; if和elsif语句不会执行
   if("$_" eq 'y') {print "没有就没有吧! \n\n";}
     elsif("$_" eq 'n'){print "请填入正确的收入...\n\n";}
       else {print "在乱按就......你!!\n\n";}       }

foreach $a (10,9,8,7,6,5,4,3,2,1){print "$a\t";}
print "\n", "##" x 15;     ## 一个小测试，无意义

print "\n\n还要继续测试吗？(y/n)";
chomp($_=<STDIN>); ##使用chomp($_=<STDIN>);否则if("$_" eq 'n'){last;}失效。
if("$_" eq 'n'){last;} ##如果键入n,则退出“ATTEMPT”块的循环。
redo ATTEMPT; }        ## “ATTEMPT”块结束

print "ABCDEFG!!!\n";
###########       程序结束       ################ ========================================================

相关阅读更多 +