Re: Script Perl

[Fernando <fernandojose.sainz@avanzit.com>]

Adrian Chapela wrote:
> 
> Hola,
> estoy haciendo un script en perl que recibe una serie de parámetros por
> consola (que serán accesibles desde el ARGV ) y no me funciona el salto
> de línea. Por ejemplo, hago lo siguiente:
> 
> ./script "Salto de línea de prueba \n Ya hemos saltado de línea"
> 
> Código:
> 
> #!/usr/bin/perl -w
> 
> #use strict;
> use CGI qw(:standard);
> use Sys::Hostname;
> 
> if ($#ARGV < 0 ) {
>   print "Uso: script mensaje\n";
>   exit;
> }
> 
> print $ARGV[0];
> 
> Lo que ocurre que lo que me sale es lo siguiente:
> Salto de línea de prueba \n Ya hemos saltado de línea test_machine:~#
> Sin hacer el salto de línea, sin embargo si no pongo argumentos y salta
> la comprobación de número de argumentos si sale bién:
> 
> Uso: script mensaje
> test_machine:~#
> 
> Alguien sabe como arreglarlo ??
> Un saludo
> 

No tengo idea de perl, pero echando un vistazo, parece que perl solo
interpreta
el \n dentro de cadenas entre comillas, pero lo que le llega en argv no
debe ser
una cadena de ese tipo.

Si quieres meter un salto de linea puedes hacer:

$ script "hola
mundo
"
(dando retorno después de hola y mundo)


Saludos.




-- 
Fernando.
{:-{D>

   "Hackers do it with fewer instructions."