Uso Ubuntu 10.04. Tengo el siguiente script Perl y deseo que funcione como un daemon:
Leí sobre crear un script bash que llame a mi script Perl y luego ponerlo en el rc.local,
nada de esto me ha funcionado, seguí está guía, pero nada. Muchas Gracias.
#!/usr/bin/perl -w
use warnings;
use strict;
use Net::POP3;
my $ServerName = "mi server mail";
my $UserName = "mi user ";
my $Password = "cfsRSgfg!";
# The program will ...
-
- Publicidad
Fecha actual 2024-11-08 14:43 @655
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Correr script de Perl como daemon
Read more : Correr script de Perl como daemon | Vistas : 2460 | Respuestas : 17
Comparación de archivos
Hola .
He estado utilizando un script para comparar archivos y que me genere uno nuevo solo con los datos que necesito por algún tiempo. Sin embargo, algo pasó que ahora me funciona bien cuando el segundo archivo tiene 3 campos, pero no cuando tiene más de 3 campos. ¿Qué puede estar pasando?
Muchas gracias y saludos a todos
#!/usr/bin/perl
use strict;
use warnings;
### Cabecera
open my $OUTPUT, '>>', 'zeta_clubsI.out';
### Leer el ...
He estado utilizando un script para comparar archivos y que me genere uno nuevo solo con los datos que necesito por algún tiempo. Sin embargo, algo pasó que ahora me funciona bien cuando el segundo archivo tiene 3 campos, pero no cuando tiene más de 3 campos. ¿Qué puede estar pasando?
Muchas gracias y saludos a todos
#!/usr/bin/perl
use strict;
use warnings;
### Cabecera
open my $OUTPUT, '>>', 'zeta_clubsI.out';
### Leer el ...
Read more : Comparación de archivos | Vistas : 543 | Respuestas : 2
¿Cómo subir al servidor archivos Perl?
Hola, soy nuevo aquí. Tengo una duda sobre cómo subir al servidor archivos Perl.
Hace dos años estoy lidiando con la programación PHP basándome en el servidor XAMPP y he visto que allí algunos códigos están escritos en Perl y usan la base de datos Sqlite. Mi problema es que puedo correr el libro de visitas y la libreta telefónica que viene en Xampp en mi localhost, e incluso modificar esos códigos y ejecutarlos. Sin ...
Hace dos años estoy lidiando con la programación PHP basándome en el servidor XAMPP y he visto que allí algunos códigos están escritos en Perl y usan la base de datos Sqlite. Mi problema es que puedo correr el libro de visitas y la libreta telefónica que viene en Xampp en mi localhost, e incluso modificar esos códigos y ejecutarlos. Sin ...
Read more : ¿Cómo subir al servidor archivos Perl? | Vistas : 834 | Respuestas : 1
Duda con elsif, quiebro de línea y array en script
Amigos del foro, dispongo del siguiente script con el cual me han ayudado en ocasiones anteriores (modificado y funcionando al 100%). Añadí algunas líneas y me han asaltado algunas dudas, código:eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
if 0;
use strict; # to be sure, that all is safe ... :-)
# $Id: tikzimg.pl 2012-02-10 Pablo $
# v. 1.0 Extract tikzpicture, based on ...
if 0;
use strict; # to be sure, that all is safe ... :-)
# $Id: tikzimg.pl 2012-02-10 Pablo $
# v. 1.0 Extract tikzpicture, based on ...
Read more : Duda con elsif, quiebro de línea y array en script | Vistas : 682 | Respuestas : 4
Renovar array en programa
Tengo un problema con este código porque no sé cómo renovar el array @urls, ya que la segunda vez que uso el programa aparecen los enlaces viejos.
#!usr/bin/perl
#Lix.In Decoder 0.2
#Version Tk
#Coded By Doddy H
use LWP::UserAgent;
use URI::Split qw(uri_split);
use Tk;
use Tk::Dialog;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
my $color_fondo = ...
#!usr/bin/perl
#Lix.In Decoder 0.2
#Version Tk
#Coded By Doddy H
use LWP::UserAgent;
use URI::Split qw(uri_split);
use Tk;
use Tk::Dialog;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
my $color_fondo = ...
Read more : Renovar array en programa | Vistas : 481 | Respuestas : 2
Obtener datos tabla HTML
Hola,
Estoy intentando parsear un html para obtener los datos de las tablas html.
El código html es:
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><html>
<head><title>Replication Status</title>
<style text/css>
Body, p, table, td, ul, li {color: #000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px;}
A {color:blue; text-decoration: none;}
BODY {font-family: arial, helvetica, sans-serif}
P {font-family: arial, helvetica, sans-serif}
TH {font-weight: bold; font-family: arial, helvetica, sans-serif}
TD {font-family: arial, helvetica, sans-serif}
.bgColor1 {background-color: #003366;} ...
Estoy intentando parsear un html para obtener los datos de las tablas html.
El código html es:
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"><html>
<head><title>Replication Status</title>
<style text/css>
Body, p, table, td, ul, li {color: #000000; font-family: Arial, Helvetica, sans-serif; font-size: 12px;}
A {color:blue; text-decoration: none;}
BODY {font-family: arial, helvetica, sans-serif}
P {font-family: arial, helvetica, sans-serif}
TH {font-weight: bold; font-family: arial, helvetica, sans-serif}
TD {font-family: arial, helvetica, sans-serif}
.bgColor1 {background-color: #003366;} ...
Read more : Obtener datos tabla HTML | Vistas : 3238 | Respuestas : 12
Obtener datos desde una SimpleList
¡Hola nuevamente!
Mi consulta:
Tengo una SimpleList cargada con datos los cuales quiero obtenerlos e imprimirlos en pantalla.
my $lista=Gtk2::SimpleList->new( Lista => 'text' );
# Le agrego datos...
my @resultado; #arreglo con datos
foreach my $entrada (@resultado) {
push @{$lista->{data}}, $entrada;
}
# Luego en otra subrutina quiero obtener los datos e imprimirlos pero no he podido, siempre me imprime una dirección, he tratado de utilizar @{$lista->{data}} pero no logro desreferenciar nada
Desde ...
Mi consulta:
Tengo una SimpleList cargada con datos los cuales quiero obtenerlos e imprimirlos en pantalla.
my $lista=Gtk2::SimpleList->new( Lista => 'text' );
# Le agrego datos...
my @resultado; #arreglo con datos
foreach my $entrada (@resultado) {
push @{$lista->{data}}, $entrada;
}
# Luego en otra subrutina quiero obtener los datos e imprimirlos pero no he podido, siempre me imprime una dirección, he tratado de utilizar @{$lista->{data}} pero no logro desreferenciar nada
Desde ...
Read more : Obtener datos desde una SimpleList | Vistas : 611 | Respuestas : 7
Ejercicio que recoja datos y los ordene
Hola foreros de Perl :D Es mi primer tema creado y llevo muy poco tiempo con Perl así que soy un novato de primero.
Tengo que hacer un ejercicio y no sé cómo :S Es el siguiente:
«Desarrollar un programa que nos permita introducir una sucesión de números en un "array", para posteriormente ordenarlos de menor a mayor y visualizarlos en la pantalla. Utilizar exclusivamente estructuras ...
Tengo que hacer un ejercicio y no sé cómo :S Es el siguiente:
«Desarrollar un programa que nos permita introducir una sucesión de números en un "array", para posteriormente ordenarlos de menor a mayor y visualizarlos en la pantalla. Utilizar exclusivamente estructuras ...
Read more : Ejercicio que recoja datos y los ordene | Vistas : 2634 | Respuestas : 26
Código que busque palabra en sitio web
Buenas,
En el trabajo me solicitaron terminar de desarrollar este código que les voy a adjuntar, debe efectuar la función de buscar una palabra o serie de palabras, en un sitio web, en donde tanto el sitio como la palabra sean ingresadas por el usuario.
Ojalá me puedan ayudar.
Saludos y gracias,
#!/usr/bin/perl
use HTML::LinkExtor;
use LWP::Simple;
my $page = get(shift) || "<html><body>Not found</body></html>";
my $retriever = new HTML::LinkExtor;
$retriever->parse($page);
my @links = $retriever->links; ...
En el trabajo me solicitaron terminar de desarrollar este código que les voy a adjuntar, debe efectuar la función de buscar una palabra o serie de palabras, en un sitio web, en donde tanto el sitio como la palabra sean ingresadas por el usuario.
Ojalá me puedan ayudar.
Saludos y gracias,
#!/usr/bin/perl
use HTML::LinkExtor;
use LWP::Simple;
my $page = get(shift) || "<html><body>Not found</body></html>";
my $retriever = new HTML::LinkExtor;
$retriever->parse($page);
my @links = $retriever->links; ...
Read more : Código que busque palabra en sitio web | Vistas : 678 | Respuestas : 2
Encontrar links lix.in
Tengo el siguiente código
use HTML::LinkExtor;
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
my $code = toma("http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html");
while($code=~/http\:\/\/lix.in\/(.*?) /ig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
Lo que quiero es poder capturar todos los enlaces como
http://lix.in/-612344
http://lix.in/-62a9e5
http://lix.in/-643086
Mediante una expresión regular para después guardarlo en un array.
¿ Alguien me puede ayudar ?
use HTML::LinkExtor;
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
my $code = toma("http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html");
while($code=~/http\:\/\/lix.in\/(.*?) /ig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
Lo que quiero es poder capturar todos los enlaces como
http://lix.in/-612344
http://lix.in/-62a9e5
http://lix.in/-643086
Mediante una expresión regular para después guardarlo en un array.
¿ Alguien me puede ayudar ?
Read more : Encontrar links lix.in | Vistas : 547 | Respuestas : 4
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980