Foro - Perl en Español

Hola amigos,

Acabo de hacer un programa muy cortito que abre un buzón POP3 y guarda todos los mensajes en un archivo de texto.

Lo he hecho siguiendo el tutorial de este sitio web, porque soy un principiante total en perl.

El problema que tengo ahora es que en el archivo de texto que he creado sólo puedo leer bien las cabeceras de los mensajes, ya que el contenido del mensaje está cifrado.

¿Cómo puedo ...

Buenas,

¿Alguien sabe cómo hacer para que cuando un script te pida tu contraseña se muestren asteriscos en vez de ésta?

¡¡Gracias!!

¡Hola!

Antes de publicar este mensaje he estado buscando en el foro y no he encontrado respuesta a mi pregunta. Si ya está respondida os agradeceré que me digáis dónde.

Necesito saber el día de la semana de una fecha determinada. Ahora mismo, utilizo:

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
$mon = $mon+1;
$year = $year+1900;

Lo que me da correctamente el día de la semana actual, pero no sé cómo obtener ese mismo valor en $wday para ...

Hola a todos,

Estoy escribiendo un script que se conecte a un entorno remoto mediante el modulo Net::SFTP.

El hecho es que por más que lo intento, siempre obtengo el mismo error:
Permission denied at /usr/perl5/site_perl/5.8.4/Net/SFTP.pm line 62

He aquí el código:

my %args;
$args{user} = "pepe";
$args{password} = "secreto";
my $host = "maquina";

print "Connecting to $host...\n";
my $sftp;
eval {$sftp = Net::SFTP->new($host,%args)};
if ($@) { print "Sftp connection failed:\n $@\n"; }

He ...

¡¡Hola perleros!!

Soy nueva en esto de Perl. Me he encontrado con este foro y había pensado que me podríais ayudar. Vamos a ver, tengo un fichero .dat que tengo que abrir para sacar información de él, ¿cómo lo puedo hacer?

¡¡Gracias chavales!!

Hola.

Al tratar de leer en GNU/Linux un fichero creado en Windows y guardarlo con codificación utf8, sale el siguiente mensaje:

Code: Seleccionar todo

Wide character in print at script.pl line 5
  hola

Mi código:

use open IO => ":utf8";
open(my $H1, "file.txt");
$text = <$H1>;
close($H1);
print "$text";

y lo que tengo en el fichero a leer es: hola.

Lo que realmente necesito es leer ficheros en uft8 que pueden venir tanto de Windows como de Linux. ...

Hola tengo un problema con esta función:

sub OpcionD{

my ($hora, $fichero, $directorio) = ($_, $_,$_);

opendir (DIR, $directorio) or die "Error: no puedo abrir directorio de planificacion $directorio\n";
my @contenido_directorio = readdir (DIR);
closedir (DIR);

if (-s $fichero ){
my @contenido_fichero = <FICHERO>; # problema
open (FICHERO, "+<fichero");

#Obtener la ultima id
foreach $linea (@contenidofichero){
@campos = split / /, $linea;
$id = $campos;

}

$numero_lineas = @contenidofichero;
$encontrado = 0;

foreach my $fichero_directorio ...

Hola, tengo un problemilla con un ejercicio. Aquí os muestro lo que tengo:

opendir (DIR, $dir);
@contenido_directorio =readdir (DIR);
closedir (DIR);

if (-s $fich){ #$fich es un argumento que ya me han pasado
open (FICH,">>$fich");
@contenido_fichero = <FICH>; #PROBLEMA

foreach $elemento (@contenido_directorio){
$ruta = $dir."/".$elemento;
foreach $linea (@contenido_fichero){ #esto tampoco va
@campos = split / /, $linea;

$id = $campos;
$orden = chomp($campos);
if (-r $ruta && -x $ruta && !(-d $ruta)){
if($ruta eq $orden){ ...

Buenas. Pues mire, en el ejercicio que me plantean tengo que leer un fichero de texto y mediante hash hacer que salga por pantalla las palabras alfabéticamente y la frecuencia con la que se repite esa palabra, tengo hecho lo siguiente pero falla por algún sitio :(

Muchas gracias de antemano

#!/usr/bin/perl

while(<>){

@palabras_separadas_por_lineas = split;

foreach $palabras(@palabras_separadas_por_lineas){
if( exists $frec{$palabras}){
$frec{$palabras} ++;

}

else {
$frec{$palabras} ...

¿Cómo puedo saber si se ha instalado bien un programa? ¿Hay alguna forma de comprobarlo?

Siempre utilizo c:\>perl makefile.pl para instalar.

Saludos.