Compara colunas

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

[ Hits: 5.232 ]

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 adicionar e remover usuários no IMSPECTOR

Script para adicionar sites ao Squid

Manipulação de Arquivos Orientada a Objetos

Adiciona-Altera senhas/usuarios no sistema

Usando ARGV como login


  

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