Uma expressão regular é uma série de um ou mais caracteres que você usa para corresponder a padrões de um programa de computador. Em Perl, você costuma fazer uso de expressões regulares. Você pode escrever uma função que corta os espaços à direita em uma corda e use a função em qualquer lugar em que você programa Perl. Use uma expressão regular em função padrão seqüência correspondente de Perl , especificando que pretende que a expressão regular para só jogo no final da string. Instruções
1

Abra um novo programa Perl. . Insira o cursor no início do arquivo
2

Digite o seguinte código:

sub trim ( $ ) {

meu $ string = shift;

$ string = ~ s /\\ s + $ //;

retornar $ string ;

}

Esta função cria um arquivo temporário que assume o valor da string passada para a função . Em seguida, usa uma expressão regular para remover os espaços à direita. O "\\ s " conta a função para apenas olhar para caracteres de espaço em branco eo " $ ", diz para procurar somente no final da string. Depois de remover os espaços à direita , a função retorna a variável para o programa principal .
3

Salve o arquivo de programa.