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;

Processa todos os SlackBuild's

Inserindo sites em Lista do Squid

Script para adicionar sites ao Squid

Listar arquivos de um diretório.

script para localizar conteudo de arquivo

Nenhum comentário foi encontrado.