Foro - Perl en Español

por **bvayap** » 2013-07-17 08:14 @385

Hola,

Tengo un problema que no veo en el foro cómo resolver. Seguro que es una tontería, pero no lo veo :-(

Estoy intentando sacar el año, mes y día mediante:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
### Variables
my %mon2num = qw(
  Jan 01 Feb 02  Mar 03  Apr 04  May 05 Jun 06
  Jul 07 Aug 08  Sep 09  Oct 10 Nov 11 Dec 12
);
my $year;
my $month;
my $day;
system ("date > fecha.txt");
open my $CSV, '<', 'fecha.txt';
while (my $linea = <$CSV>) {
    my(@campos) = split " ", $linea, 6;
    $year = $campos[5];
    $month = $mon2num{$campos[1]};
    print "Estamos en el anyo $year y en el mes $month, he dicho.\n";
}
close $CSV;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero resulta que en el año, me guarda un salto de línea, con lo que el print me sale partido en dos líneas...

¿Alguna sugerencia? Gracias de antemano a todos.

A la hora de hacer el split(), en la última columna, además del año, estará el o los caracteres de nueva línea.

Recordar que en el while() se lee una línea entera, incluidos esos caracteres. Si la cifra del año es la última columna, pues la cifra junto con esos caracteres irán a parar a $campos[5].

Hay dos soluciones, a elegir:

quitar los caracteres de nueva línea en cuanto hemos terminado de leer la línea. Insertar esta línea:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
1. chomp $linea;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
hacer que la cifra del año sea realmente un número. Modificar la línea 15 por esta otra:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
1. $year = 0+ $campos[5];
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
De esta manera, los caracteres de nueva línea desaparecen, y solo queda la cifra.

por **bvayap** » 2013-07-18 01:47 @116

Muchas gracias, explorer.

La primera solución es perfecta.

Foro - Perl en Español

Problema con salto de línea

Problema con salto de línea

Publicidad

Re: Problema con salto de línea

Re: Problema con salto de línea

¿Quién está conectado?