Este simples script em Perl abre um determinado arquivo (datas) que contém duas colunas e verifica qual delas é maior e mostra na tela.

• Download Compara_data.pl
• Enviar nova versão

Esconder código-fonte

#!/bin/perl 
#
#Powered by leoberbert
#
#Abre o arquivo

open(IN,"<datas");

while (<IN>) {

    #tira o enter da linha

    chomp;

    #divide a linha em elementos do array

    @linha=split(/ /);

    $coluna1=($linha[0]);

    $coluna2=($linha[1]);

     if ( $coluna1 > $coluna2 ) {

      print "$coluna1 \n";

 
     }  else {

        print "$coluna2 \n";

     }

}
close IN;

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Inserindo sites em Lista do Squid

Journaling de arquivos

Script que remove palavras de um arquivo.

Shadow Post It

Nenhum comentário foi encontrado.