Perls 파일 : VirusScan이는 :: ClamAV를 :: Clamd하자 clamd

Question

첫 번째에서 PING 응답을하지 않았다고 나 상태, clamd가 올바르게 응답 입증되었습니다 다음과 같이

$ echo PING | nc -U /var/run/clamav/clamd.sock 
PONG 

스캐너가 설치되었다 :

#set up a Clamav scanner 
use File::VirusScan; 
use File::VirusScan::ResultSet; 
my $scanner = File::VirusScan->new({ 
    engines => { 
      '-Daemon::ClamAV::Clamd' => { 
        socket_name => '/var/run/clamav/clamd.sock', 
      }, 
    }, 
}); 

및 전체 스크립트는 Solaris 11 상자에서 올바르게 작동합니다. 저는 Linux CentOS 5.3 (Final)에서 CPAN에서 File :: VirusScan을 설치하는 데 문제가 있습니다. 최신 버전 0.102는 컴파일되지 않으며 CPAN 테스터는 437에서 435가 실패한 것으로 확인합니다. 그래서 CPAN에서 이전 0.101 버전, 버전 나는 또한 솔라리스에서 실행하고 수동으로 분명히

perl -v 
This is perl, v5.8.8 built for x86_64-linux-thread-multi 


sub scanner { 
     $|++; # buffer disabled 
     (my $path, my $logClean) = @_; 



    my $recurse = 5; 
    print color "yellow"; 
    print "[i] Building file scan queue - recurse deepth $recurse \n"; 
    print color "green"; 
    print "SCAN QUEUE:0"; 

    #Get list of files 

    if($rootPath){ 
    use File::Find::Rule; 
    my $finder = File::Find::Rule->maxdepth($recurse)->file->relative->start("$$path"); 
     while(my $file = $finder->match() ){ 
      $|++; 
      #$file = substr($file,length($rootPath)); #remove path bloat 
      push(@scanList,"/$file"); 
      print "\rSCAN QUEUE:" .scalar(@scanList); #update screen 
     } 
    }else{ 
    push(@scanList,"$$path"); 
    } 


    print "\rSCANING:0"; 
    #set up a Clamav scanner 
    use File::VirusScan; 
    use File::VirusScan::ResultSet; 
    my $scanner = File::VirusScan->new({ 
     engines => { 
       '-Daemon::ClamAV::Clamd' => { 
         socket_name => '/var/run/clamav/clamd.sock', 
       }, 
     }, 
    }); 



    #scan each file 
    my $scanning = 0; 
    my $complete = -1; 

    foreach $scanFile (@scanList){ 
      $scanning++; 
      ################################################## 
      #scan this file 
      $results = $scanner->scan($rootPath.$scanFile); 
      ################################################## 
        #array of hashes 
      my $centDone = int(($scanning/scalar(@scanList))*100); 

      if($centDone > $complete){ 
       $complete = $centDone; 
      } 
      if($centDone < 100){ 
        #\r to clear/update line 
        $format = "%-9s %-60s %-15s %-5s"; 
        printf $format, ("\rSCANING:", substr($scanFile,-50), "$scanning/".scalar(@scanList), "$centDone%"); 
      }else{ 
        print "\rSCAN COMPLETE                   "; 
      } 

      # array ref 
      foreach $result (@$results) { 
         #array of pointers to hashes 
         #print 'data:' 
         #print 'state:' 
         if($$result{state} ne "clean"){ 
          if($$result{data} =~ /^Clamd returned error: 2/){ 
           $$result{data} = "File too big to scan"; 
          } 
          push(@scanResults,[$scanFile,$$result{state},$$result{data}]); # results 
         }elsif($$logClean){ 
          push(@scanResults,[$scanFile,$$result{state},$$result{data}]); 
         } 
         unless($$result{state} eq "clean"){ 
            print color "red"; 
            print "\r$scanFile,$$result{state},$$result{data}\n"; 
            print color "green"; 
            print "\rSCANING: $scanning/".scalar(@scanList)." : $centDone%"; 
           if($$result{state} eq "virus"){ 
            push(@scanVirus,scalar(@scanResults)-1); #scanResuts index of virus 

           }elsif($$result{state} eq "error"){ 
            push(@scanError,scalar(@scanResults)-1); #scanResuts index of Error 
           } 
         } 
      } 

    } print "\n"; 

} 

Answer 1

source code for the Clamd package 다음 스크립트는 시도하고있는 호출을 대략적으로 나타내며 실패한 경우에 대한 더 나은 아이디어를 제공합니다. (test.pl 등) 별도의 파일에 저장 시도하지 않고 "펄 test.pl"을 사용하여 실행

use IO::Socket::UNIX; 
use IO::Select; 

my $socket_name = '/var/run/clamav/clamd.sock'; 
my $sock = IO::Socket::UNIX->new(Peer => $socket_name); 

if(!defined($sock)) { 
    die("Couldn't create socket for path $socket_name"); 
} 

my $s = IO::Select->new($sock); 

if(!$s->can_write(5)) { 
    $sock->close; 
    die("Timeout waiting to write PING to clamd daemon at $socket_name"); 
} 

if(!$sock->print("SESSION\nPING\n")) { 
    $sock->close; 
    die('Could not ping clamd'); 
} 

if(!$sock->flush) { 
    $sock->close; 
    die('Could not flush clamd socket'); 
} 

if(!$s->can_read($self->{5})) { 
    $sock->close; 
    die("Timeout reading from clamd daemon at $socket_name"); 
} 

my $ping_response; 
if(!$sock->sysread($ping_response, 256)) { 
    $sock->close; 
    die('Did not get ping response from clamd'); 
} 

if(!defined $ping_response || $ping_response ne "PONG\n") { 
    $sock->close; 
    die("Unexpected response from clamd: $ping_response"); 
} 

Answer 2

다양한 안티 바이러스 엔진이 파일 :: VirusScan의 기본 라이브러리를 별도로 설치해야처럼 보이는 확인을 설치하고있어 다운로드. 다음은 오류를 반환합니까?

Clamd.pm을 찾을 수 없다는 오류가 표시되면 해당 엔진 모듈을 설치해야합니다.

오류가 표시되지 않으면 스캔을 수행하기 위해 실제로 사용하고있는 코드 및/또는 오류 출력 (있는 경우)과 같은 자세한 정보를 게시해야합니다.