check_dir.pl

一个使用诺顿病毒库的病毒扫描的例子程序

#!/usr/bin/perl
# Just a simple script - doesn't do recursion

use IO::Socket;
use strict;
$|=1;

my $response;
my $req;
my $sockname =  $ARGV[0] || usage();
my $dir = $ARGV[1] || usage();
my $file;

opendir(DIR, $dir) || die "ERROR: Couldn't open directory '$dir' ($!)\n";
my @files = readdir(DIR);
closedir(DIR);

socket(\*sock, AF_UNIX, SOCK_STREAM, 0) || die "Couldn't create socket ($!)\n";
connect(\*sock, pack_sockaddr_un $sockname) || die "Couldn't connect() to the socket ($!)\n";

foreach $file (@files)
{
	if (($file ne ".") && ($file ne ".."))
	{
		$req = "$dir/$file\n";
		syswrite(\*sock, $req, length($req));
		sysread(\*sock, $response, 256);

		$req =~ s/[\r\n]//g;
		print "[$req] => response [$response]\n";
	}
}

close(\*sock);
exit;

sub usage {

	print "Usage: $0 <trophie_socket> <dir_path>\n";
	exit;

}