Foro - Perl en Español

Hola. Tengo que hacer un script en Perl que pase unas 50 pruebas y una de ellas es que al darle una opción (-HZ) comprobar si existe un histórico y si existe, borrarlo; sino, decir que no existe y la siguiente prueba es darle la misma opción y que te compruebe que el histórico ya ha sido borrado antes y que por lo tanto compruebe directamente que ya no existe. Eso más o menos lo ...

Saludos, con una molestia. Tengo varios archivos en el cual la primera línea contiene la siguiente estructura:

letras (letras) letras;

Lo que necesito es saber cómo puedo reemplazar esta línea por la siguiente en todos los archivos:

(letras)

Pero desde la consola. :?

Hola, ¿qué tal? Este es mi primer post en este foro, muy bueno por lo demás, he aprendido bastante.

Tengo unas dudas con algunas líneas de este código, no es mio pero lo he ido modificando.
#!/usr/bin/perl
#use strict;
use Net::SNMP qw( oid_lex_sort );
my $oid = '.1.3.6.1.4.1.12394.1.2.100.3.1.1.14';
my $host = 'x.x.x.x';
my $community = 'loquesea';
my ($session, $error) = Net::SNMP->session
(
-hostname => $host ,
-community => $community ,
);
$result = $session->get_table(-baseoid ...

Hola, tengo un problema con un fichero que estoy tratando en Windows y no consigo aclararme. He leído e intentado varias cosas que he buscado previamente en los foros pero no me han funcionado.

El fichero en cuestión lo genera la utilidad robocopy. En el mismo se muestran ficheros y directorios que se van a actualizar. El problema aparece con los que en su nombre contienen tildes o caracteres que podemos llamar "no estándares". Si ...

¡Qué tal a todos!

Saben, tengo un pequeño problema con un script en Perl, estoy trabajando con el módulo Net::Telnet::Cisco y todo va bien hasta que pretendo utilizar el comando de cisco “config t”, al tratar de hacer que mi script lo ejecute, me envía un error y realmente necesito estar en el modo config, para poder modificar algunas parámetros de mi router. Espero puedan ayudarme, les paso mi código.

#!c:\perl\bin\perl.exe
use Net::Telnet::Cisco;

print ...

Hola a todos, estoy intentando modificar un archivo de Fortran e imprimirlo en el orden que yo quiera.

El archivo es el siguiente:
simul_type : 1=Gibbs NVT, 2=NPT
Molecular Weight
Temperature
step_init and step_final
filename containing input data ? (Aopti.res...) (liquid before vapour)
number of optimised force centres
number of iterations = 85450
centre de force : 1 Drho/Deps = 0.81097D+00
centre de force : 1 Drho/Dsig = -0.24736D+03
centre de force : 1 Drho/Ddelta ...

Hola a todos. Les escribo porque tengo problemas con un código, así que solicito amablemente su ayuda.

En primera no sé para qué sirve la instrucción parseFile y creo que es la que genera el error. De este código, sólo les mando la subrutina.

readResponse
{
my($sac) = @_;

my($station,$network,$component,$channel) = $sac->Fetch(qw(kstnm knetwk kcmpnm khole));
my $respName = "";
my $resp = Seed::Response->new();
$resp->parseFile($respName);

return $resp;
}


La terminal me dice que no puede ...

Hola,

Estoy escribiendo un programa que lea varios archivos (mismo formato) recuperar solo cierta información y luego la imprima en un nuevo archivo.

Los primero datos del formato deben repetirse varias veces ya que solo las dos últimas columnas cambian de valor todo el tiempo.

El formato final sería algo así:
Name voltaje time hold setup delay slope
XXXX yyyy hhh nn lll ppp rrrr

Sin embargo, Perl dice que no puede imprimir en el ...

Hola, buenos días:

Este es mi primer post, llevo una semana con Perl y ando un poco perdidillo, a ver si podéis ayudarme con este script que estoy haciendo.

En él tengo que recorrer las tablas tpersonas y tproyectos y que me busque los nombres que sean iguales en dichas tablas, y que los id me los guarde en otra llamada tproyper.

El problema que tengo es el siguiente: el bucle me saca siempre la ...

Hola,
Estoy tratando de acceder a un directorio y de leer los archivos que están en él.

Perl accede sin problema al directorio pero no puede abrir los archivos.

Los comandos que uso son:
chdir($dir);
open(PAGE,$diry.$dirx);
@arrayentrada=<PAGE>;
print @arrayentrada;

¿Podrían decirme cuál es el error en los comandos que estoy usando?

Gracias de antemano.

STM