扫描问题求助..

wyz5678

本人初学perl,想写一个能判断web目录是否能put的程序.写完后发现对单个ip的扫描没有问题,想从文件读入一个ip列表,或者扫描一个段的时候发现程序总是在扫描完第一个ip后不再执行,请问是什么原因导致程序无法进行下去.谢

以下是程序



#!c:\perl\bin\perl
use IO::Socket;
@list=('/','/scripts/','/cgi-bin/','/_mem_bin/','/msadc/','/_private/','/_vti_pvt/','/_vti_bin/','/iissamples/','/pbserver/','/cfdocs/','/iisadmin/','/iisadmpwd/','/_private/','/news/','/events/','/publications/','/exchange/');
if (@ARGV < 2) {
print "Usage: iplistfile port\n";
exit;
}
else{
$host=$ARGV[0];
$port=$ARGV[1];
}
open(IPLIST, "$host" ||die "can not open the file!";
@iplist=<IPLIST>;;
close(IPLIST);
foreach $eeee(@iplist){
        chomp $eeee;
foreach(@list){
$socket= IO::Socket::INET->;new(Proto=>;"TCP",
     PeerAddr=>;"$eeee",
     PeerPort=>;"$port"
     or die "Cant connect to $eeee: $!\n";
     #print "$_\n";
  print $socket "UT ${_}123.txt HTTP/1.1\n";
  print $socket "Host: $eeee\n";
  print $socket "Content-Length: 10\n";
  print $socket "AAAAAAAAAAA\n\n\n";
  $socket->;recv($rbuf,200);
  $socket->;recv($rbud,150);
  #print "$rbud\n";
  if($rbud=~/201/){
          print "$_        OK!!\n";}
          else{
          print "$_         shit...\n";
          }
  close($socket);
  sleep(3);
}
}

xiayaazinabu

@iplist=<IPLIST>;; 只会把文件的第一行输入变量
要用while循环

open(IPLIST, "$host" ||die "can not open the file!";
while(< IPLIST>
{
   $iplist=< IPLIST>;;
   push(@iplist, $iplist);
}
close(IPLIST);
你参照你的代码改一下把

wyz5678

@iplist=<IPLIST>;; 是把文件的每一行读入一个数组,然后foreach $eeee(@iplist)遍历数组的每一个单位放到$eeee里,这句应该没错呀.

apile

chomp $eeee;  
改成
$eeee=~s/[\015\012]//g;
我猜是\r在搞鬼...

wyz5678

非常感谢你的建议，但我试过还是不行。
我在想是不是IO::Socket的问题。。。。

xiayaazinabu

不好意思,看成$了
下面这两个循环好像不太对把(摘自源码)
foreach $eeee(@iplist){
chomp $eeee;
foreach(@list){
$socket= IO::Socket::INET->;new(Proto=>;"TCP",
........................

close($socket);
sleep(3);
}
}

apile

可能有null存在$eeee或$eeee有空白....試試看..
foreach $eeee(@iplist){
$eeee=~s/[\015\012]//g;
$eeee=~s/\s//g;

next if $eeee eq "";

wyz5678

apile我爱你~.............................OK了