Em Perl, uma expressão regular, ou " regex ", é uma seqüência de caracteres. Em muitos casos, esses personagens são salvos em variáveis de cadeia . Você pode usar os operadores do Perl e classes de personagens para executar alguma tarefa em um regex , como correspondência corda ou procurar e substituir caracteres específicos. Atribuir valores a variáveis ou no próprio código ou solicitar ao usuário para a entrada em tempo de execução e , em seguida, usar essas expressões na seqüência de caracteres correspondente . Instruções
1
Abra um arquivo de programa Perl. . Insira o cursor onde você quer usar expressões regulares
2
Digite o seguinte código:
meu $ cat = " Meu gato deu à luz três gatinhos! ";
print $ cat . "\\ n" ;
$ cat = ~ s /três /quatro /;
print $ cat . "\\ n" ;
A primeira linha define o valor de uma variável ea segunda linha imprime na tela. A terceira linha utiliza o operador de substituição para substituir "três" na variável com " quatro". Se o operador não pode encontrar o padrão de correspondência ("três" ) , isso não muda o valor da variável em tudo
3
Digite o seguinte código: .
Impressão "Digite alguma coisa :";
meu $ input = < > ;
if ( $ input = ~ m /e /i ) {print "O que você digitou continha a letra« e '"; }
else { print" o que você digitou não contém a letra "e" ";}
as duas primeiras linhas solicitar que o usuário digite uma string e salva a entrada em uma variável. A declaração se usa o operador de jogo para ver se o usuário digitou a letra "e ". O "i" parte do operador informa ao operador para ignorar caso. Mude-o para "s" para diferenciar maiúsculas de minúsculas
4
imprimir "Digite um número de telefone :"; .
My $ telefone = < > ;
if ($ telefone = ~ /\\ d \\ d \\ d- \\ \\ d \\ d \\ d d /) {print " Você digitou corretamente um número de telefone ";}
else { print " Você não entraram corretamente um número de telefone ";}
Este usa classes de personagens para verificar a entrada de cadeia para ver se ele combina com o formato de um número de telefone e , em seguida, informa ao usuário se ele fez ou deixou de introduzir um número correctamente . O "\\ d" classes de personagens verifica expressões para números. Você também pode usar " \\ w " para verificar quaisquer caracteres ou " \\ s" para verificar se há espaço em branco. Usando a maiúscula para qualquer uma destas três classes nega suas representações.
5
Salve o arquivo de programa Perl.