[Cascavel-pm] duvida em perl...

[Solli Moreria Honorio]

Bicho,

Eu não vi se o teu email foi respondido !!! Mas eu não compreendi
exatamente o que vc quer por isto estou enviando um código baseado no
que eu entendi !!

my $FileIn  = "C:/Temp/MeuLixo.txt";
my $FileOut = "C:/Temp/MeuPrecioso.txt";

open (IN, "<$FileIn");
open (OUT, ">$FileOut");

my $String1 = "AlgumaCoisa";
my $String2 = "PorOutraCoisa";

while ( $Line = <IN> )
{
	$Line =~ s/$String1/$String2/;
	print OUT $Line;
}

close (IN);
close (OUT);
exit 0;

Isto para uma solução de arquivo texto sequêncial... uma outra maneira
seria utilizar o arquivo em binmode... mas aí é uma outra história !!!

Abraços,

Solli
-----Original Message-----
From: cascavel-pm-bounces em mail.pm.org
[mailto:cascavel-pm-bounces em mail.pm.org] On Behalf Of Gabriel Rodrigues
Sent: quarta-feira, 10 de março de 2004 19:41
To: cascavel-pm em mail.pm.org
Subject: [Cascavel-pm] duvida em perl...

Opa pessoal tudo blz ?
Estou começando na programação com perl e estou tendo dificuldades em 
acostumar com as sintaxes.
Bem gostaria mesmo de saber o seguinte...

depois de localizar um string em um arquivo
p.ex:

open(CONTEUDO, $file);
while ($linhas = <CONTEUDO>)
{
    $linhas =~ s/string1/string2/
.
.
.
}

blz, depois dessa busca eu queria saber como posso mudar o nome 
"string1" por "string2" pelo conteudo
do arquivo realmente. Tipo alterar realmente o arquivo.

flw :)
desde já agredeço ae :P

Gabriel Rodrigues

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em mail.pm.org
http://cascavel.pm.org/mailman/listinfo/cascavel-pm