🚀 go-pugleaf

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

> czy ktos ma, lub wie gdzie w sieci jest skrypcik w perlu,
> ktory bezposredno laczy sie na port 25 wskazanego serwera i sam
> bezposredno wysyla list ?

Spróbuj coś takiego:
#!/usr/bin/perl
#
use Socket;
use FileHandle;

# funkcja do otwierania socketa
#
sub opensocket {
  my($remote,$port,$iaddr,$paddr,$proto);
  $remote  = 'localhost';
  $port    = 25;  # sendmail
  if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
  die "No port" unless $port;
  $iaddr   = inet_aton($remote) || die "no host: $remote" ;
  $paddr   = sockaddr_in($port, $iaddr);
  $proto   = getprotobyname('tcp');
  socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
  connect(SOCK, $paddr) || die "connect: $!";
  SOCK->autoflush(1);
  <SOCK>;
}

# zamknij powyższy socket
#
sub closesocket {
  print SOCK "quit\n";
  close (SOCK) || die "close: $!";
}


&opensocket();
# [...]
# tutaj sobie wstaw jakieś operacje na sockecie
# [...]
&closesocket();