Code Finger en perl - Pas en mesure d'exécuter

Question

Erreur:

Erreur de syntaxe: fin de fichier inattendu

Voici le code

J'ai changé.

"#!/usr/local/bin/perl" 

Le programme actuel est

#!/local/perl5/bin/perl5.003 

use Socket; 

$sockaddr = 'S n a4 x8'; 

$host = $ARGV[0]; 
$them = $host; 
$port = 79; 
print "Finger $host: \n"; 
$hostname = ``; 
`nslookup $host |grep Name: >> $test`; 
print $test; 
#($name, $aliases, $proto) = getprotobyname('tcp'); 

($name, $aliases, $port) = getservbyname($port, 'tcp') unless $port =~ /^\d+$/; 
($name, $aliases, $type, $len, $thisaddr) = gethostbyname($hostname); 
$n1 = $name; 
($name, $aliases, $type, $len, $thataddr) = gethostbyname($them); 

$this = pack($sockaddr, &AF_INET, 0, $thisaddr); 
$that = pack($sockaddr, &AF_INET, $port, $thataddr); 

socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!"; 

bind(S, $this) || die "bind: $!"; 
connect(S, $that); 

select(S); $| = 1; select(stdout); 

print S "\n\n"; 

while (<S>) {print $_;}; 

Answer 1

ici:

`nslookup $host |grep Name: >> $test`; 

$test n'est pas défini à ce moment-là, vous vous demandez le shell d'exécuter nslookup whatever.com |grep Name: >>. Où est la coque censée rediriger la sortie?

Si vous définissez $test être quelque chose, comme un nom de fichier .. ou même $test = "$host.txt"; il vous ira plus loin.

Rien à voir avec votre version de Perl, bien que le fait d'être capable de use strict;use warnings est utile, car il aurait attrapé l'erreur ci-dessus.