[Rio-pm] Expressoes Regulares

snowflakerj snowflakerj em bol.com.br
Quinta Janeiro 10 09:27:52 PST 2008


Olá galera!
Estou começando com Perl agora...e estou com um problema...creio q seja na minha ER
$palavra =~ s/nb/mb/ | /np/mp/ ;
Não sei ao certo como colocá-la nem se posso substituir assim como estou tentando...alguém poderia me dar uma visão?
Obrigado!





-----------------------------------------------------------------------
#Localizador de erros ortográficos
use strict;
use warnings;
open(ARQUIVO,"+<d:\\perl\\portugues.txt");
my @texto = <ARQUIVO>;

foreach my $palavra (@texto){
	
	if($palavra =~ /nb|np/)
	{ 
		print "Esse texto possui erro ortografico, antes de p ou b so eh usado M\n";
		print "Deseja corrigir automaticamente?\n";
		print "(1)SIM \n(2)NAO\n";
	
		my $decisao = <STDIN>;
		chomp($decisao);
		
	
		
		if	($decisao eq "1"){
			
			#$palavra =~ s/nb/mb/ | /np/mp/ ;
			
			
			
			
			
		}
		if($decisao eq "2"){
			print "ok abortando...\n"
		}
	
		
	
	}

}


close(ARQUIVO);



------------------------------------------------------------------



Mais detalhes sobre a lista de discussão Rio-pm