Chinaunix

标题: 帮忙看看，我的代码问题！谢谢 [打印本页]

作者: gyuui 时间: 2005-06-21 17:59
标题: 帮忙看看，我的代码问题！谢谢
#! /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中不显示输出字符串呢？

作者: 兰花仙子 时间: 2005-08-26 04:05
标题: 帮忙看看，我的代码问题！谢谢

原帖由 "gyuui" 发表：

};
$i++;
};

close(file);

};

subfunc($var1,$var2);
subfunc($var1,$var3);
subfunc($var1,$var4);

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

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

作者: apile 时间: 2005-08-26 08:20
标题: 帮忙看看，我的代码问题！谢谢
var1,var2,var3,var4都是null..怎麽会有东西??

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)