高手请指点！实力展现......

gyuui

代码如下：
#! /usr/bin/perl
$var1=@ARGV[0];
$var2="switch.log";
$var3="switch1.log";
$var4="switch2.log";
$d=" ";
$var1="$var1"."$d";
sub subfunc{
        my($num1,$num2)=@_;
        open(file,"$num2";
        @array=<file>;;
        $i=0;       
        while(@array[$i] ne ""{
                $number=index(@array[$i],$num1,$number);
                if($number ne -1)
                {
                  print "@array[$i]\n";                       
                };
                $i++;
        };       
        close(file);               
};
       
print "Content-type:text/html\n\n";
subfunc($var1,$var2);
subfunc($var1,$var3);
subfunc($var1,$var4);

print "hello every body!\n";


我通过<a target="_blank" href=syslog_treat.pl>;在网页中调用perl。
实际应用中，新开窗口中只显示“hello　erery　body！”（绿色代码段内容），其他代码段内容不显示。请问这是什么原因啊？我在cmd下支持perl程序时，输出一切都很正常啊！

flw

当前工作目录不是你想象的那样。
建议使用绝对路径。

gyuui

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


$var1=@ARGV[0];
$var2="switch.log";
$var3="switch1.log";
$var4="switch2.log";

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

sub subfunc{
        my($num1,$num2)=@_;
        open(file,"file\\" . "$num2";
        @array=<file>;;
        $i=0;       
        while(@array[$i] ne ""{

                $number=index(@array[$i],$num1,$number);
                if($number ne -1)
                {
                  print "<br>;@array[$i]<br>;\n";                       
                };
                $i++;
        };
       
        close(file);               
};       

print <<"END";
   
END

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

代码修改后可以正常显示了！（我把perl程序以及log日志放到了同一目录下了，所以跟路径没有关系）

还有一点想请教高手，我每次提取的字符串过长，一行显示不下，我怎样才能更改显示字符的大小啊？

兰花仙子

我每次提取的字符串过长，一行显示不下，我怎样才能更改显示字符的大小啊？

把这段加到你的html输出头部里，可以改变字体大小，及强迫断行：

<style type="text/css">;
                body{font-size:10pt}
                table{font-size:10pt}
                td{word-wrap: break-word; word-break: break-all}
            </style>;

另外，$var1=@ARGV[0]; 这种写法不好，should be:
$var1=$ARGV[0];

apile

其實也可以
用<span>;或<div>;配上兰花仙子的css...也行...很多作法....

rorot

1. 
   
2. if($number ne -1)
   

复制代码

这样写合适吗?
if ($number != -1);

兰花仙子

原帖由 "rorot" 发表：
这样写合适吗?
if ($number != -1);

!=前后是数字比对，ne前后是字符串比对，所以
$number ne -1 写法并不好，如果想比对字符串的话，应该这样：
$number ne '-1'
良好的代码习惯，对以后的大型编程有利。