Em Perl, uma expressão regular é um ou mais caracteres usados ​​para combinar os valores em strings , como cartas específicas, marcas de identificação ou espaço em branco. Você pode criar funções que usam expressões regulares com o operador Perl substituição para coincidir com caracteres de espaço em branco e removê-los . O caractere " ^" permite que você especifique apenas caracteres no início da cadeia , o "$" permite identificar apenas os que estão no fim, ou você pode omitir isso e combinar todos os espaços em branco ao longo da cadeia. Instruções
1

Abra um arquivo de programa Perl, e insira o cursor no início
2

Digite o seguinte código: .

Sub trim ( $ ) {

meu $ string = shift;

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

retornar $ string ;

}

Esta função usa o operador de substituição " s ///" para coincidir com os espaços em branco e removê-los . Classe A " \\ s" caráter corresponde a todos os caracteres de espaço em branco e os substitui por nada . Em outras palavras , ele remove -los . Ele retorna um string que não contém caracteres de espaço em branco em qualquer lugar
3

Digite o seguinte código: .

Sub ltrim ($) {

my $ string = shift;

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

retornar $ string ;

}

Esta função só remove líder espaços em branco antes de quaisquer outros caracteres . Os " ^ \\ s " diz para combinar espaços em branco apenas até o primeiro caractere de espaço não- branco, em seguida, removê-los
4

Digite o seguinte código: .

Sub rtrim ( $ ) {

meu $ string = shift;

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

retornar $ string ;

}

Esta função só remove os espaços em branco à esquerda no final da string. O "s + $ ", diz para combinar espaços em branco só depois de todos os caracteres de espaço não-brancos , em seguida, removê-los.
5

Salve o arquivo de programa.