O Perl não tem uma função built-in que remove espaços em branco desde o início ou final de uma cadeia , mas você pode usar o operador substituição built-in para executar a mesma função. O operador substituição usa expressões regulares padrão para substituir uma parte de uma string com outros personagens. Remover espaços em branco pode ajudar a limpar e validar a entrada do usuário , e você também pode usá-lo para remover o espaço desnecessário em um arquivo de texto. Instruções
1

Abra um documento de texto simples em branco
2

Digite as seguintes linhas para iniciar o script Perl : .

# Bin /perluse estritos , use warnings;
3

Digite as seguintes linhas para criar uma cadeia que contém espaços em branco no início e no final da string, e imprimir a string para a tela :

my $ orig_string = "Esta é uma string ... "; . print $ orig_string " \\ n " ;
4

Digite as seguintes linhas para remover o espaço em branco do início da string e imprimir a string editada na tela :

$ orig_string = ~ s /^ \\ s + //; print $ orig_string ;
5

Digite as seguintes linhas para remover o espaço em branco do final da string e imprimir a string editado para a tela : . .

$ orig_string = ~ s /\\ s + $ //; print $ orig_string "\\ n" ;
6

Salve e feche o arquivo
< br >