Question

UltraEdit编辑器下面运下面的PERL脚本，如何修改可以得到运行结果

1#!/usr/bin/perl
2 #
3 # Using Array references
4 #
5 $pointer = @ARGV;
6 printf "\n Pointer Address of ARGV = $pointer\n";
7 $i = scalar(@$pointer);
8 printf "\n Number of arguments : $i \n";
9 $i = 0;
10 foreach (@$pointer) {
11 printf "$i : $$pointer[$i++]; n";
12 }

运行结果如下：

$ test 1 2 3 4
Pointer Address of ARGV = ARRAY(0x806c378)
Number of arguments : 4
0 : 1;
1 : 2;
2 : 3;
3 : 4;

Answer 1

运行结果是在UNIX（$提示符）命令行下运行的例子，如果你用的WINDOWS机器，可以在命令提示符下运行它，例如：
c:\>test.pl 1 2 3 4

注意，上面的c:\>提示符是系统显示了，test.pl 1 2 3 4是自行输入的，结果应该与例子的相同

还有，你的程序应该保存为test.pl文件，里面的1~12是行号，不要输入到程序中。

追问

UltraEdit编辑器中的结果

，

按照你的方法我试了一下，test.pl文件存放在E盘，命令行操作如下，没有任何显示

追答

你没有指定参数，可以在命令提示符下运行试试看。

追问

@ARGV 是接受 perl 的命令行执行参数。那我还要怎么指定参数？麻烦您详细说明一下

追答

请粘贴你的perl代码，怎么可能什么输出都没有呢？

另外，是否你的程序关联不对呀，执行下面两个语句看看：
C:\>assoc .pl
.pl=perlfile
C:\>ftype perlfile
perlfile="d:\Tools\ActivePerl5.16.3\bin\perl.exe" "%1" %*

第二个命令的参数是第一个的结果。

追问

运行结果 

代码

追答

文件关联是对了的，命令test.pl 1 2 3 4应该是把参数传递给了test.pl文件，但是你的程序怎么没有任何输出呢?

确认在ULTRAEDIT里面保存了吗，文件夹、文件名对吗，可以这样验证：
c:\>type test.pl

如果程序不长，请粘贴代码，这样我可以粘贴到我的文件里面进行测试，拷屏我没办法使用。

追问

您好，我的代码就在最上面问题处，，您可以拷贝一下试试，在UE编辑器里面确定保存了，谢谢

追答

自己程序有错，丢了两个符号，什么话都不想说，自己看。

 

提问的才是大爷了说，回答问题的才是奴隶，粘贴一下代码都嫌麻烦，让回答的人一行一行的去删除行号。

追问

您好，不是我嫌弃麻烦，每次都会显示代码超长，所以才没有粘贴的，谢谢您的耐心。