Something along the lines of this?: -CW -------------------------------------------------- #!/usr/bin/perl # enter a site maintainer email address & password below my @lists = qw/list1 list2/; my $adminemail = ''; my $adminpw = ''; my %list1members; my %list2members; # === PROGRAM ========================================== foreach $list (@lists) { my $command = "QUERY ***GUI*** $list for *\@*"; # send TCPGUI command $return = lsvsend("$command"); @ret_lines = split /\n/, $return; foreach $line (@ret_lines) { chomp($line); if ($line =~ m/^\*\*\*HDR\*\*\*/) { ($hdr, $email) = split / /, $line; ${$list}members{$email} = 1; } } } # print results! foreach $user (sort(keys(%list1members))) { if (defined($list2members{$user})) { print "$user\n"; } } # === SUBROUTINE ======================================== # Send TCPGUI commands to LISTSERV as administrator sub lsvsend { my($cmd) = @_; my $email = $adminemail; $cmd .= " PW=$adminpw"; # --- Connect to Listserv --- # use IO::Socket; my $lsv = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "localhost", PeerPort => '2306') or die return "Error connecting to Listserv: $!"; # --- Send Command --- # # form binary part of command header my $len = length($email)+length($cmd)+1; my $bin = pack("a*CCCa*","\r\n",int($len/256),$len-(int($len/256)*256),length($email),$email); # send command header print $lsv "1B".$bin; recv($lsv, my $ans, 80, 0); if($ans !~ /^250/){ return "Error sending command to Listserv: $ans"; } # followed by command itself print $lsv "$cmd\n"; # --- Get Reply --- # # get binary part of reply & decode read($lsv, $ans, 8); my @an = $ans =~ /.{4}/g; my $rcode = unpack("N", $an[0]); my $rlen = unpack("N", $an[1]); if($rcode != 0){ return "Error getting reply from Listserv: $rcode (len $rlen)"; } # and get reply itself read($lsv, my $reply, $rlen); close $lsv; # close socket return $reply; } ---------------------------------------------------- Winship wrote: > At one site I have two lists. I would like to quickly see what addresses > are subscribed to both lists. Is there a way to do it? > > Douglas Winship [log in to unmask] -- Christopher Wilson Information Systems Coordinator ISS Enterprise Systems The George Washington University [log in to unmask]