perl新手的问题

chb307155

我是个perl 新手。刚写了个小程序，请大家来看看程序里面有没有错误。<问题已经解决了>

还有个问题：
我装上ActivePerl后，.pl;%PATHEXT% 环境变量我已经设置了。
该把perl脚本放到什么位置存放？还是随便找个位置存放？

“ActivePerl-5.8.8.817-MSWin32-x86_64-257965.msi”不能正常安装。
错误提示：



### 经过自己多遍的查找，问题解决了。程序可以正常运行。实践出真知。真理也。###  
====================================================
小程序：
############            程序开始        #############
#!/usr/bin/perl
#$SR =“收入”;  
############    “ATTEMPT”块开始   #############

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

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

if($SR >= 1) {print "业精于勤，荒于戏。\n";}
else             {print "您目前真的没有任何收入吗？(y/n):";
   chomp($_=<STDIN>);   ##使用chomp($SR=<STDIN>); 。如果使用$SR=<STDIN>;就不会执行下面的
                           ## if和elsif 语句，而是直接执行else语句。
                     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";
###########          程序结束        ################

[ 本帖最后由 chb307155 于 2006-8-13 12:57 编辑 ]

aaronvox

对 随便放个你能找到的位置

chb307155

在WINDOWS XP 下，写好脚本后，我以.pl后缀命名脚本文件。但是在CMD下不能执行。
我以为是ActivePerl的问题，卸载后重装，结果ActivePerl不能安装。提示就如上面图的信息。

poize

人品问题吧，不过不知道楼主的机子是不是64位的，哈哈
ActivePerl-5.8.8.817-MSWin32-x86-257965.msi
ActivePerl-5.8.8.817-MSWin32-x86_64-257965.msi

chb307155

系统是32的XP。
应该选  ActivePerl-5.8.8.817-MSWin32-x86-257965.msi   

是我错了。   -_-||

[ 本帖最后由 chb307155 于 2006-8-13 09:39 编辑 ]

chb307155

问题都解决了。

很有成就感，虽然是很基础的东西。

[ 本帖最后由 chb307155 于 2006-8-13 12:03 编辑 ]