Re: ejecutar AWK dentro de Perl
On Thursday 19 February 2004 23:00, Montervino, Mariano wrote:
[...]
> #!/usr/bin/perl -w
> $dom_ = `awk '/workgroup/ {print $3 }' /etc/samba/smb.conf`;
> print $dom;
>
> me devuelve: (toda la linea completa)
> workgroup = XXXXX
>
> Que estoy haciendo mal??? Hay forma de solucionarlo???
Bueno, copiando el script, aparte de que usas $dom_ en la asignación y $dom en
el print (supongo que es un error de transcripción), el problema es que perl
interpreta en el "print $3" que hay una variable $3. "escápala":
{print \$3} a mi me ha funcionado
Saludos
Miguel
PD: Pelín off-topic en esta lista, no?
--
========================================================================
Miguel Rodriguez Penabad penabad@udc.es
Laboratorio de Bases de Datos http://emilia.dc.fi.udc.es/labBD
Despacho 0.01 Tel. 981 167000 ext. 1333
Facultade de Informática Universidade da Coruña (Spain)
========================================================================
Reply to: