Buenas tardes:
¿Cómo puedo modificar una palabra de una línea de texto?
Ejemplo:
FileSet: "BerthaRamos" 2011-07-29 08:49:53
Quiero que solo aparezca
FileSet: BerthaRamos
¿Se puede hacer para varias líneas con diferentes nombres?
Gracias,
Saludos cordiales
-
- Publicidad
Fecha actual 2024-11-28 14:58 @665
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Modificar palabras en líneas de texto
Read more : Modificar palabras en líneas de texto | Vistas : 1018 | Respuestas : 9 | Foro : Básico
Correr script de Perl como daemon
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 ...
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 ...
Read more : Correr script de Perl como daemon | Vistas : 2495 | Respuestas : 17 | Foro : Básico
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 : 563 | Respuestas : 2 | Foro : Básico
¿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 : 847 | Respuestas : 1 | Foro : Básico
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 : 689 | Respuestas : 4 | Foro : Básico
Problemas con ñ y EBCDIC (Convert::IBM390)
Estimados:
Tengo un problema con Perl y las "ñ"... El tema es así...
A través de un perl genero un spool y lo paso a EBCDIC con la librería "Convert::IBM390". El tema es que cuando abro los archivos con un editor de texto (ultraedit) las 'ñ' me figuran con "?".
Pasé los archivos en modo binario. Además, cuando me conecto desde sqlplus a Unix pasa lo siguiente:
(le quité algunos datos posiblemente sensibles por ...
Tengo un problema con Perl y las "ñ"... El tema es así...
A través de un perl genero un spool y lo paso a EBCDIC con la librería "Convert::IBM390". El tema es que cuando abro los archivos con un editor de texto (ultraedit) las 'ñ' me figuran con "?".
Pasé los archivos en modo binario. Además, cuando me conecto desde sqlplus a Unix pasa lo siguiente:
(le quité algunos datos posiblemente sensibles por ...
Read more : Problemas con ñ y EBCDIC (Convert::IBM390) | Vistas : 11383 | Respuestas : 6 | Foro : Avanzado
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 : 488 | Respuestas : 2 | Foro : Básico
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 : 3265 | Respuestas : 12 | Foro : Básico
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 : 627 | Respuestas : 7 | Foro : Básico
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 : 2677 | Respuestas : 26 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981