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:
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.
