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 2025-01-13 13:49 @618
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Modificar palabras en líneas de texto
Read more : Modificar palabras en líneas de texto | Vistas : 1032 | 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 : 2556 | Respuestas : 17 | Foro : Básico
DuckDuckGo, despega
Read more : DuckDuckGo, despega | Vistas : 548 | Respuestas : 0 | Foro : Pasando el rato
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 : 574 | 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 : 853 | 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 : 696 | Respuestas : 4 | Foro : Básico
SO en Perl
Hola. Quería preguntar si se podía hacer un sistema operativo en Perl. La pregunta viene porque leí un tutorial donde se explicaba cómo hacerlo en C.
Read more : SO en Perl | Vistas : 952 | Respuestas : 3 | Foro : Pasando el rato
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 : 11436 | 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 : 497 | 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 : 3290 | Respuestas : 12 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981