Foro - Perl en Español

Buenas a todos.

Estoy acabadito de aterrizar en el mundo de Perl y qué mejor sitio para empezar que este. En el día a día mio, necesito hacer muchas tareas de scripting de administración de los sistemas que los soluciono con bash, pero he decidido pasarme a otro nivel.

Tengo el libro de Cookbook Perl, pero creo que es más fácil de estudiar poniéndome día a día con lo que vaya surgiendo que ponerme delante ...

De los ficheros que se pasan como argumento, muestra el contenido solo del que tiene
mayor número de líneas.

Es decir: alejandroubuntu@alejandroubuntu:~$ ejercico.pl argumento1 argumento2 argumento3...

argumento1: ggggggggggggg
jjjjjjjjjjjjj

argumento2: ggggggggggggg

argumento3: rrrrrrrrrrrrr
eeeeeeeeeeeee
qqqqqqqqqqqqq

Debe mostrar solo el contenido del fichero argumento3.

Gracias ;)

¡Hola de nuevo! mira estoy haciendo un script que agrupe las veces que el campo 7 del fichero passwd contiene bin/false, bin/sh y bin/bash. Esto es lo que tengo hecho. El problema es que nunca termina el bucle. Necesito que la salida sea:
/bin/sh: 7
/bin/false: 19
/bin/bash: 2

open(F1, "passwd") or die "No existe el fichero";
$contador=0;
$contador1=0;
$contador2=0;
while ($linea=<F1>){
chomp $linea;
@line = split(/:/,$linea);
foreach $x(@line)
{
if ($x=="sh")
{
$contador++; ...

Teniendo este script que me da las líneas de un fichero, a partir de la línea 15, ¿cómo puedo validar que solo me permita un argumento por teclado? Si no es así me tiene que imprimir en pantalla: "Solo permite un argumento".

open(F1, $ARGV) or die "No existe el fichero";
$contador=0;
while ($linea=<F1>){
$contador++;
if ($contador>=15)
{
print $linea;
}
}
close F1;

Gracias de antemano.

¡Hola de nuevo! Necesito un script Perl que grabe el contenido de un fichero de texto en otro que se crea con el nombre que le dé por parámetros en línea de comandos. Después de la ejecución, los dos ficheros de texto deben ser idénticos. Si por un casual el archivo que se va a crear ya existe en disco y contiene algo, esta información se pierde y se sobrescribe con la del otro fichero. ...

No se cómo realizar este script ¡Ayuda!

Script que sirve para encontrar un término que se pasa como argumento.

Para ejecutarlo en línea de comando de esta manera: env | mi_egrep.pl <argumento a buscar en el enviroment>

Es decir: el script actúa de egrep para después darle un argumento. Por ejemplo: PATH y así mostrar la línea de PATH.

Hola, soy nuevo en el foro y también en Perl.

El foro me ha sido de mucha utilidad, y es por esto que ahora decidí escribirles esperando puedan ayudarme con un problema particular que tengo.

Estoy intentando configurar una AccessList desde el módulo "CiscoRouter::Accesslist" .

Sin embargo, al intentar ejecutar el fichero desde la terminal, me arroja la siguiente advertencia: Can't locate object method "set_id" via package "CiscoRouter::Accesslist" at ./Practica.pl line 82, <STDIN> line 4, ...

Estimado, quiero ingresar una lista de acceso a mi router y estoy ocupando el Net::Telnet::Cisco para ingresar al router, pero la condición de trabajo es que debo ocupar un segundo módulo para realizar esto...

Trato de usar el IPDevice::CiscoRouter::Accesslist...

Este es mi programa el cual quiero que ingrese la ACL
#! /usr/bin/perl

use Net::Telnet;
use Net::Telnet::Cisco;
use IPDevice::CiscoRouter;
use IPDevice::CiscoRouter;Accesslist;

my $session = Net::Telnet::Cisco->new(Host => '192.168.1.1');
$session->login('cisco', 'cisco');

# Execute a command
my @output ...

Hola y gracias por el foro me ha servido de mucho. Soy nuevo en Perl y tengo los conceptos básicos.

Ahora me han asignado una tarea en la cual debo ejecutar unos módulos de Cisco. Ya he logrado conectarme con el telnet pero lo que no he sabido aplicar es el módulo de Cisco::Abbrev.

Por favor, si pudieran ayudarme.

Lo que tengo hecho es:

#!/usr/bin/perl
use Net::Telnet::Cisco;
use Cisco::Abbrev;
my $long = cisco_long_int('Gi0/1'); ##$long='GigabitEthernet0/1'; ...

Hola a todos...

Últimamente estoy muy activo por aquí y no me gusta nada T.T . Estoy un poco desesperado.
Tengo una web que consulta un cgi en perl. Para atacar al servidor lo hago mediante una petición post.

El cgi funciona perfectamente. Ataca a una BD para obtener los datos. Estos son muchos, así que el script tarda un poco, debido al fetching de datos.

Lo que sucede, no es que tarde, es que ...