Compara colunas

Publicado por Leonardo Berbert Gomes (última atualização em 30/11/2009)

[ Hits: 4.467 ]

Homepage: http://leonardo-berbert.branded.me/

Download Compara_data.pl




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

  



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;

Scripts recomendados

Remove comentarios de scripts

Conversão de textos UTF-8 para ISO8859-1

Listar arquivos de um diretório.

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

arruma_nomes.pl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts