A linguagem de programação Perl foi originalmente concebido para criar relatórios. Ele contém funções poderosas para manipulação de arquivos de texto. Por exemplo , você pode substituir um caractere (como um ponto e vírgula) ou seqüência de caracteres por outra . A função de "s" é utilizado para substituição ou substituição. O texto editado é colocado em um segundo arquivo de texto eo arquivo original permanece inalterado. A função "open" abre os arquivos . A função de "fechar" fecha os arquivos quando terminar de usá-los. Instruções
1
Abra um arquivo de texto em branco em qualquer editor de texto
2
Digite a seguinte linha para iniciar o script Perl : .
# ! /usr /bin /perl
3
Digite as seguintes linhas para abrir o arquivo que contém os pontos e vírgulas ( " orig_file " ) eo arquivo onde você deseja salvar as alterações ( "output" ) :
open (FILE , " orig_file " ) or die $ ;
abrir ( OUTFILE , "output " ) or die $ ;
Substituir " orig_file " ! e "output" com os nomes apropriados para o seu script.
4
Digite as seguintes linhas para criar o loop while que vai ler o conteúdo do arquivo original, substituir as vírgulas com dois pontos e escrever as mudanças para o arquivo de saída :
while ( )
{
$ _ = ~ s /;/:/g ;
impressão OUTFILE $ _ ;
}
Substitua o ":" . no "$ _ = ~ s /;/:/g ; " com qualquer personagem que você deseja substituir o ponto e vírgula com < br >
5
Digite as seguintes linhas para fechar os arquivos abertos :
perto ( OUTFILE );
perto (FILE) ;
6
Salve o arquivo como " sub_semicolon.pl ".
7
Digite o comando " perl sub_semicolon.pl " em um prompt de comando para executar o script.