Compara colunas

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

[ Hits: 5.239 ]

Homepage: https://www.linkedin.com/in/leoberbert

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

script para localizar conteudo de arquivo

Usando ARGV como login

FTP – Script para adicionar e remover usuários via WEB

Apaga fila do Exim...

Script para adicionar sites ao Squid


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts