¡ Hola de nuevo !
Tenía una pregunta para vosotros. El caso es quiero hacer un open() para leer (parsear) un archivo externo que tengo en una URL (http://www.mysite.com/file.txt), tal y como lo haríamos en local, tipo:
open FILE, file.txt
¿Hay alguna forma de hacer esto en Perl sin usar pm externos? Es para un check de Nagios y tiene que ser un script muy portátil sin tener que importar muchas cosas.
¡ Muchas gracias de nuevo !
-
- Publicidad
Leer un archivo externo
4 mensajes
• Página 1 de 1
Leer un archivo externo
por angelltroa » 2011-05-16 17:40 @778
- angelltroa
- Perlero nuevo
- Mensajes: 9
- Registrado: 2010-04-14 06:11 @299
Publicidad
Re: Leer un archivo externo
por explorer » 2011-05-16 17:45 @781
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Leer un archivo externo
por angelltroa » 2011-05-19 13:10 @590
Correcto, el problema que tengo es que cuando tengo el fichero no se como tratarlo, por ejemplo:
Ahora he volcado toda la información en la variable, pero no sé cómo tratarla y partirla en líneas como haríamos normalmente en:
while (my $line = <$DATA>){
¿Algún consejo? ¡Muchas gracias por vuestro tiempo!
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- use diagnostics;
- use LWP::Simple;
- my $file = get("http://www.osha.gov/dep/fatcat/fatalities.csv");
- print $file;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Ahora he volcado toda la información en la variable, pero no sé cómo tratarla y partirla en líneas como haríamos normalmente en:
while (my $line = <$DATA>){
¿Algún consejo? ¡Muchas gracias por vuestro tiempo!
- angelltroa
- Perlero nuevo
- Mensajes: 9
- Registrado: 2010-04-14 06:11 @299
Re: Leer un archivo externo
por explorer » 2011-05-19 13:43 @613
Pues fácil... si quieres dividir en líneas, se hace:
Más información en perldoc -f split
Using perl Syntax Highlighting
- for my $linea (split /\n/, $file) {
- ...;
- }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Más información en perldoc -f split
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 18 invitados