[perl] EXECUTAR COMANDOS

[Adrian Galindo]

On Mon, 3 Jul 2000, Roberto Jimeno wrote:

> >...
> >    Quiero executar comendos desde un script de Perl, como lo hago ?
> > 
> >    los comandos son los del Shell por ejemplo
> > 
> >    mk $1
> >    chmod +wrx $1
> > 
> >    ojala que todo lo anterior estubiera en un archivo y desde Perl poder
> >    llamarlo 
> > 
> >    pero como lo hago ?
> > ...
> 
>   #!/bin/perl
>   
>   system("/bin/mkdir $1") || die "Imposible crear directorio: $@" ;
>   system("/bin/chmod $1") || die "Imposible cambiar permisos: $@" ;

Está bien, solo que aquí no se vale usar $1
Se tiene que usar $ARGV[0].

Algo así como:

system("/bin/mkdir $ARGV[0]");

Salu2...

---------------------
L.I. Adrian Galindo Hernandez           Telbip:   51299377
Jefe del Departamento de Analisis       Tel Ofna: 5631-1282 ext. 212
Consejo de Salubridad General, SSA      http://www.facmed.unam.mx/consejo
Ciudad de Mexico 

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl