Foro - Perl en Español

Digamos que tengo lo siguiente:

#!/usr/bin/perl -w

use warnings;
use strict;


my @vehiculos;
my @puntos;

@vehiculos = ("coche", "camion", "bicicleta", "triciclo");
@puntos = ("1", "1", "0", "1");

my %hash;
my $keys;


@hash{@vehiculos} = @puntos;

foreach my $keys (sort {$hash{$a} cmp $hash{$b}} keys %hash){
print "$keys = $hash{$keys}\n";
}

Así, como está, me lo imprimiría en base a los valores, de menor a mayor.

Pero si yo quiero imprimirlo en el orden original, o sea, ...

Tengo el siguiente código:

use URI::Split qw(uri_split);

my ($scheme, $auth, $path, $query, $frag) = uri_split("http://localhost:8080/test.php");
my $save = $auth;

print $save."\n";

open(FILE,">>".$save.".txt");
print FILE $save;
close FILE;

El problema está que el script solo crea un archivo vacío llamado localhost y yo necesito que lo cree bien, con el título "localhost:8080", con el valor de $save. El problema parece ser el ":".

¿ Alguien me puede ayudar a solucionar este problema ?

Hola, soy nuevo en este foro y como muchos aquí recién empiezo a entrar en este mundo de la programación. Lo siguiente es que he creado una calculadora en Perl o un sistema como una libreta telefónica que das el nombre de la persona y te da el número telefónico lo que quiero hacer es montar el programa en una página HTML o diferente que aparezca y funcione en Internet. He buscado por todas partes ...

Tengo el siguiente código:

use Cwd;

my $ruta = getcwd();

system("start $ruta");


Y devuelve esto:

El sistema no puede encontrar el archivo D:/Mis.

Necesito saber por qué no carga el directorio por el tema de los espacios en blanco y cómo puedo arreglarlo para que ande.

¿ Alguien me puede ayudar ?

¡Saludos! Estoy usando un ejemplo que vi en el foro para realizar envío de correos desde CGI::Application, pero tengo un error


# MODO RECUPERAR CONTRASEÑA #
sub index_recuperar_contrasena{
# 1.- Cargo todas mis librerías en la variable self.
my $self = shift;

# 2.- Recibo el query que viene desde el navegador y lo guardo en la variable q
my $q = $self->query();

# 3.- Asigno variables a cada uno de los parámetros ...

Mmmmm, bueno, no entiendo mucho acerca de expresiones regulares y me surge la siguiente duda:
tengo que sustituir una línea en XML como la siguiente:

sello="DM3kr0vff+6D4GOlSQQ+R/cVoLjka8Mt38vaSCyeXyf="

por otra muy parecida a esta. Lo que llevo en código es lo siguiente:

$line =~ s/sello=""/sello="$sello"/g;

Lo que no sé es cómo decirle al programa que me sustituya sello y todo lo que hay dentro de las "" de sello.

Esto lo hago en un bucle, ...

Hola a todos, tengo el siguiente problema:

Tengo varios directorios (alrededor de 40) de nombre images/ y dentro de ellos tengo ficheros llamados nombre-pst-1.tex, nombre-pst-2.tex, nombre-pst-3.tex, etc, donde nombre es cualquier nombre (o número), todos los ficheros tiene la siguiente forma:
\documentclass{article}
\usepackage{uno}
\usepackage{dos}
\begin{document}
me interesa esto 1 ...
\end{document} Me interesa leer el contenido de todos estos ficheros entre las líneas:
\begin{document}
me interesa esto 1 ...
\end{document} sin considerar éstas, ...

Hola.

No tengo mucha experiencia en Perl, y necesito crear un programa que busque archivos repetidos.

El programa recibe un directorio como argumento y a partir de ese directorio busque si hay archivos repetidos.
Los archivos repetidos son aquellos que tienen el mismo nombre y mismo tamaño, cuando encuentre archivos repetidos debe listarlos.

Esto es lo que tengo hecho:

#!/usr/bin/perl
use Cwd;

estructura;

# recibe un directorio y construye la estructura
sub construirEstructura {
my ...

Buenas tardes, desde México.

Tengo una duda tal vez muy básica... lo que quiero hacer es poder comparar dos archivos con el primer archivo ~~~...~,

y el segundo archivo ~~~...~

El separador es '~'.

Al estar buscando en el foro encontré el siguiente código:

#!/usr/bin/perl
use common::sense; # sentido común
use autodie; # y sacrificio
use File::Slurp; # sin dejar de chupar
## Leer ficheros
my @primer_archivo = read_file('Nuevo.txt');
my @segundo_archivo = read_file('Viejo.txt');

## Transformación ...

Hola, tengo el siguiente código

#!usr/bin/perl

menu();

sub menu {

$SIG{INT} = \&menu;

while(1) {
print "opciones 1 2 3\n";
print "option : ";
chomp(my $op = <stdin>);

if($op eq 1) {
while(1) {
print "test1\n";
}
}
elsif($op eq 2) {
while(1) {
print "test2\n";
}
}
else {
print "Mal";
}
}
}

Cuando lo cargo normal va bien pero cuando lo compilo con perl2exe tiene un problema el cual no sé ...