fala ai rapaziada
seguinte
tava querendo substituir uma palavra dentro de um arquivo texto em perl e fiz o seguinte
open(FILE, "+>>texto.txt");
while($arq=<FILE>){
if( $arq =~ /LAPIS/){
$arq=~ s/LAPIS/CANETA/x;
print(FILE "$arq");
}
}
so que nao substituiu a palavra
onde eu to errando ? o q fazer ? já to quase apelando e usando sed
vlw a todos
[]´s