[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