Utilice un script en Perl para generar el nombre de dominio correspondiente al registrante y la información de contacto en la consulta whois.
No hay un archivo de entrada para probar, pero while(lt; @cgt;) en sí no cambia @c, por lo que incluso si coincide con Rgistrant: no hay forma de pasar $line?=?lt ;@cgt;;?Para obtener la siguiente fila, siempre debes obtener la primera fila.
Además, solo hay un elemento en tu matriz.?@c?=?$b;?= = gt;? No se dividirá en líneas, solo obtendrá una matriz de un elemento y este elemento es $b;? Entonces su código no obtendrá el resultado que desea. La posición de impresión también es incorrecta. >
Esto es lo que desea cambiar. Supongo que @c = $b es dividir los resultados según los caracteres de nueva línea. Es mejor definir $line primero: my?@c?=?split?' \n', $b;
mientras?(mi?$tmp?=?shift?@c)
{
si?($tmp? =~?/ Rgistrant: /)
{
$line?=?shift?@c;
print?OUT?$line."\r \n"? if?($line); #No ingrese el archivo cuando $line esté vacío, de lo contrario ingrese el archivo y presione Enter y avance de línea al final de la línea
}
}