(linux-br)perl - como fazer substituicao -i -pe usando um script ( UMAsolucao!!! )

[julio henrique M]

procurando nos manuais / tutoriais  do perl na net , achei isso...
me serve...
espero que ajude mais alguem ... 

[]s, ,julio


# me.txt 
 1 
 2 
 3 
 4 
 5 
 4 
 3 
 2 
 1 
 
 

code:

use strict;
use Tie::File;

my $username = 'me';

tie my @line, 'Tie::File' => "$username.txt";

foreach (@line) {

  $_++ if $_ == 2;

}

 
 
 # me.txt 
 1 
 3 
 3 
 4 
 5 
 4 
 3 
 3 
 1 
 


---------------------------------------------------------------------------
Esta lista � patrocinada pela Conectiva S.A. Visite http://www.conectiva.com.br

Arquivo: http://bazar2.conectiva.com.br/mailman/listinfo/linux-br
Regras de utiliza��o da lista: http://linux-br.conectiva.com.br
FAQ: http://www.zago.eti.br/menu.html