Foro - Perl en Español

Buenas. Tengo este código en Perl y tengo un texto que contiene los siguientes números:

Code: Seleccionar todo

292007
243764
290922
239811
244655
271741

¿Cómo puedo hacer que se le asigne a la variable $id uno por uno los números de ese archivo de texto y según vaya asignándolo vaya abriendo la respectiva web? Gracias y espero su ayuda.
#!c:/perl/bin

#Iniciamos nuestros módulos
use Win32::OLE;
use Win32::SAM;

#Obligamos a hacer flush
$| = 1;

#Indicamos como manejar errores ...

Hola a todos, soy nuevo en Perl y aquí en el foro. Les comento que he tenido un problema con un script de Perl que estoy haciendo que básicamente consiste en que al usar la función split en una cadena que contenga eñes o tildes el resultado es un carácter desconocido. Tratando de detectar el problema hice el siguiente script para graficarlo:

#!/usr/bin/perl
$a="ñ";
@au= split (//, $a);
print "@au\n";

cuya salida es "??". Al ...

Me gustaría saber si hay alguna función para saber en qué idioma esta el Windows.

Hola a todos! Me estreno en este foro.

Para mi trabajo tengo dos tablas: Tabla A de 7000 registros y Tabla B de 15000. Mi tarea es localizar los 7000 registros de la A en la B (ya que los registros de la B contienen información adicional necesaria) y generar un Tabla C que sea un extracto de la B.

Como soy un ignorante de la programación en general (y de Perl también) ¡tengo dudas ...

Disculpen, en el portal encontré este código:
#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

use LWP::UserAgent;
use HTTP::Request;


my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");

my $url = "http://baboonsoftware.com/";

my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();

print "Content-type: text/html\n\n";
print $content;
y me preguntaba si hay alguna forma de leer solo el título de la web u otras cosas.

use File::Copy;

$org='virus.pl';
@dest=('C:\config.pl','C:\ter.pl');

for ($i=0;$i<1;$i++)
{
copy( $org, $dest ) or die("Fallo la copia");
}

El problema es que solo me lo copia a la primera ruta y con la segunda no hace nada.

Buen día.

Tengo un equipo OpenSuse 10.2 y requiero instarle una versión mas vieja de Perl, por los requerimientos de un software.

Como antecedente... No tengo mucha experiencia con Perl :)

¿Cómo lo puedo instalar, por CPAN o por compilación? Considerando que mi equipo ya tiene una de las últimas versiones de Perl, como quien dice tendré dos versiones instaladas: la de sistema y esta que la ...

Un saludo a todos,

Estoy muy interesado en entrar a programar en esta herramienta, pero quisiera saber si alguno de los participantes de este foro conoce de algún sitio donde se pueda descargar un buen editor (no se si exista uno similar al netbeans de Java) para Perl.

Muchas gracias.

Hola a todos,

Estoy teniendo ciertos problemas con expresiones regulares y el comando grep de Perl.

El caso es que en la variable $var, tengo una cierta expresión regular representando el nombre de uno o más ficheros:

$var = "Ejemplo*.txt"

Y en el array @ficheros, tengo el nombre de todos los ficheros con los cual estoy trabajando:

Code: Seleccionar todo

Pepe.txt
Joselito.txt
Ejemplo_1.txt
Ejemplo_2.txt
….
Ejemplo_n.txt

Lo que me interesaría es “aplicar” la expresión regular contenida en $var ...

Hola :D , mi necesidad es la siguiente:

Me gustaría tener un programa que se ejecute, te pida un nombre, lo busque en todos los ficheros que están almacenados en una carpeta especifica y los mueva a otra. Este es el código que estoy utilizando pero algo falla :S:
:arrow:
print"Inserte nombre a buscar";
$nombre=<STDIN>;
chop($nombre);

print("\t\t- Buscando ...