Colocando linhas em branco em um script Perl que você está criando é uma coisa fácil de fazer. Pode ser que algo está errado com o arquivo ou você simplesmente bater a tecla Enter muitas vezes. Não importa como isso acontece , o seguinte script irá remover essas linhas em branco (mesmo que contenham caracteres ocultos ) . Este pequeno script não só remove linhas em branco , mas gera um arquivo Perl que é compacto e pronto para uso. Instruções
1

Use o seguinte script por conta própria ou adicioná-lo como parte de um script maior. . Digite cada linha nas seguintes etapas seguidas pela tecla Enter
2

abrir o arquivo ", filename.ext " ou morrer "$ \\ n ";

Esta linha abre o arquivo que tem as linhas em branco que você deseja remover . A ' ou morrer "$ ! \\ N" " comando diz ao script que se houver um erro para parar o script e imprimir o erro.
3

abrir OUT ", tempfile . $ $ " ou morrer " $ \\ n "; ! .

Esta linha cria um arquivo temporário para armazenar os resultados
4

while ( ) {

Esta linha cria o início do circuito que faz todo o trabalho . O " tempo" de comando informa ao sistema que, enquanto há uma outra linha no arquivo o código dentro do { } e precisa ser executado .
5

próxima if /^ \\ s * $ /;

Este texto diz que para testar a linha que o script está navegando na para ver se ele contém apenas caracteres de espaço em branco , como um guia ou um espaço. O " /^ \\ s * $ /" é o teste. Se isso é tudo o que esta linha contém , em seguida, executar o comando "next ", que conta o script para voltar para o " while ( ) {" linha para obter a próxima linha no arquivo sem que nada seja gravado para o temporário . arquivo
6

imprimir OUT , ​​$ _ ;}

Desde o comando "next" não foi executado , a linha não deve estar vazio. Assim , esta linha envia a informação para imprimir para o arquivo temporário. O "}" é parte do recipiente para o loop que você criou usando o " tempo". Quando o script encontra -lo , o script vai voltar para o comando " enquanto " e tentar obter outra linha a ser testada. Se não existirem mais linhas no arquivo , então o loop será encerrado eo script vai ir para o próximo comando
7

próximo arquivo; . Fechar ;

Depois lá há mais linhas que precisam ser verificados estes dois comandos perto tanto o arquivo original eo arquivo temporário que foi criado , o que significa que os arquivos não podem mais ser editados.
8

renomear ( "nome do arquivo . ext "," filename.bak " ) or die " Erro na renomeação : $ \\ n ";

Esta linha muda o nome do arquivo original para filename.bak para que possa ser mantida se for necessário novamente < . br>
9

rename ( " tempfile $ $. ", " filename.ext " ) or die "Erro na renomeação : $ ";

Esta linha renomeia o arquivo temporário que você criou . ao nome do seu arquivo original , substituindo o arquivo original com o novo arquivo

o roteiro completo deve ser semelhante a este :

abrir o arquivo ", filename.ext " ou morrer "$ ! \\ n "; abrir OUT " . tempfile $ $ " ou morrer " $ \\ n "; ! while ( ) {next if /^ \\ s * $ /; imprimir OUT , ​​$ _ ;} próximo arquivo; fechar ; renomear ( " filename.ext ", " filename.bak " ) or die "Erro na renomeação : $ \\ n"; renomear ( " tempfile $ $. ", " filename.ext " ) or die "Erro na renomear : $ ";

!