提取文件字符串问题

gyuui

各位高手好，小弟是一个perl的门外汉。近期公司领导，要我写一个perl程序，上网找了很多的资料，但是仍旧徒劳无功。郁闷ing...希望高手能给予指点！

要求： 1.系统日志文件3个（switch.log switch1.log switch2.log）
       2.系统日志主页其中一条超链接代码为<a target="_blank"       href="syslog_treat.pl?ip=192.168.167.1">;
           3.syslog_treat.pl程序的目的是，从3个系统日志文件中提取条件满足192.168.167.1的日志字符串。（以回车结束）
       4.将从3个日志文件中提取的所有字符串，分行显示在IE新窗口中。

请教各位高手，这段perl程序怎么写啊？小弟在这先谢谢各位了！

gyuui

我写了一个程序，可以满足要求。但是，不是perl程序，有点C++的味道。
$var1=@ARGV[0];
$var2="switch.log";
$var3="switch1.log";
$var4="switch2.log";
#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);

求教各位，这个程序如何用perl实现啊？