expressoes regulares (PERL)
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
expressoes regulares (PERL)
Caro Alpbs tb tenho o mesmo problema que vc estou estudando Perl a pouco tempo e contorno este problema fazendo as alterações necessarias copiando em outro arquivo arquivo resolve parcialmente o problema mas se vc for trabalhar com arquivos grandes por exemplo um arquivo de 2GB vc pode ter problemas de espaço. Se vc já tiver descoberto com contornar isto problema poste aki blz.