[perl] EXECUTAR COMANDOS

[Roberto Jimeno]

>...
>    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: $@" ;


  Ese es el ejemplo más sencillo que se me ocurre ahora. Revisa la
  documentación de system() para que aprendas como se usa de manera
  correcta, así como el operador de ejecución `mkdir $1` (también
  conocido como qx//). 
							Suerte.
-- 
-------------------------------------------------------------------------------
 -- Roberto Jimeno. --                   From the book `SmallTalk With Style' :
Do not comment bad code - rewrite it.
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl