Compara colunas
Este simples script em Perl abre um determinado arquivo (datas) que contém duas colunas e verifica qual delas é maior e mostra na tela.
Descrição
Este simples script em Perl abre um determinado arquivo (datas) que contém duas colunas e verifica qual delas é maior e mostra na tela.
#!/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;