El manejador ARGVOUT

Si se usa la variable especial $ˆ I se asume que los elementos de @ARGV son ficheros. Los ficheros son copiados al sufijo indicado en $^I. La salida estándar pasa a estar en los ficheros de @ARGV. Este manejador de ficheros es conocido como ARGVOUT .

Vea el siguiente ejemplo:

lhp@nereida:~/Lperl/src$ cat -n argvout.pl
 1  #!/usr/bin/perl -w
 2  use strict;
 3
 4  $^I=".bk";
 5
 6  while (<>) {
 7    tr/a-z/A-Z/;
 8    print;          # a ARGVOUT,
 9  }
Al ejecutar el programa anterior tenemos:
lhp@nereida:~/Lperl/src$ diamond.pl dummy.bk.1 dummy.bk.2
FILE dummy.bk.1
 1 abcdef
 2 abcdef
 3 abcdef
FILE dummy.bk.2
 1 abcdef
 2 abcdef
 3 abcdef
lhp@nereida:~/Lperl/src$ argvout.pl dummy.bk.1 dummy.bk.2
lhp@nereida:~/Lperl/src$ diamond.pl dummy.bk.1 dummy.bk.2
FILE dummy.bk.1
 1 ABCDEF
 2 ABCDEF
 3 ABCDEF
FILE dummy.bk.2
 1 ABCDEF
 2 ABCDEF
 3 ABCDEF

Casiano Rodríguez León
Licencia de Creative Commons
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León is licensed under a Creative Commons Reconocimiento 3.0 Unported License.

Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19