帮忙看看，我的代码问题！谢谢

gyuui

#! /usr/bin/perl
print "Context-type:text/html\n\n";

$var1=@ARGV[0];
$var2=@ARGV[1];
$var3=@ARGV[2];
$var4=@ARGV[3];
#print "$var1\n";
#print "$var2\n";
#print "$var3\n";
#print "$var4\n";

$d=" ";
$var1="$var1"."$d";

sub subfunc{
        my($num1,$num2)=@_;
#        print "$num1";

        open(file,"$num2";
        @array=<file>;;
#        print "@array";
        $i=0;
       
        while(@array[$i] ne ""{
#                print $i;
                $number=index(@array[$i],$num1,$number);
#                print "$number";
                if($number ne -1)
                {
#                        print "$number";
                  print "@array[$i]\n";
                       
                };
                $i++;
        };
       
        close(file);
               
};
       
subfunc($var1,$var2);
subfunc($var1,$var3);
subfunc($var1,$var4);

为什么，在IE中不显示输出字符串呢？

兰花仙子

原帖由 "gyuui" 发表：

                       
                };
                $i++;
        };
       
        close(file);
               
};
       
subfunc($var1,$var2);
subfunc($var1,$var3);
subfunc($var1,$var4);

为什么，在IE中不显示输出字符串呢？

如果你把它当CGI的话，请按CGI的方式来处理输入/输出。

apile

var1,var2,var3,var4都是null..怎麽会有东西??