Linux na web /Formulários/Servidor/Perl/Perl, conceitos básicos/expressões regulares/Como o Perl usa expressões regulares?/
- substitui uma sequencia de digitos pela palavra DIGITO (faz isto apenas uma vez)
<![CDATA[
$linha =~ s/\d+/DIGITO/;
]]>
- Ex:
<![CDATA[
$linha = "asdf 234 asdf 1234 ";
]]>
após a execução do comando temos:
<![CDATA[
$linha == 'asdf DIGITO asdf 1234 '
]]>
- substituição em todas as ocorrências
<![CDATA[
$linha =~ s/\d+/DIGITO/g;
]]>
resultado para $linha = "asdf 234 asdf 1234 ":
<![CDATA[
'asdf DIGITO asdf DIGITO '
]]>
autor: Jorge Kinoshita