Linux slogan
Visite também: Segurança Linux · BR-Linux.org · Dicas-L · Doode · NoticiasLinux · SoftwareLivre.org · UnderLinux



» Screenshot
Linux: Mint com o Balanzan
Por walescko
» Login
Login:
Senha:

Se você ainda não possui uma conta, clique aqui.

Esqueci minha senha



Scripts

Linux user

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

Login: leoberbert, 1068239 pontos

Homepage: http://www.orga-systems.com   


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.

[ 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;

Scripts recomendados
   Script Linux recomendado Inserindo sites em Lista do Squid
   Script Linux recomendado Script que procura uma palavra em um arquivo.
   Script Linux recomendado move.pl
   Script Linux recomendado FTP – Script para adicionar e remover usuários via WEB
   Script Linux recomendado Remove comentarios de scripts

Comentários
Nenhum comentário foi encontrado.

Contribuir com comentário


  
Para executar esta ação você precisa estar logado no site, caso contrário, tudo o que for digitado será perdido.
Responsável pelo site: Fábio Berbert de Paula - Conteúdo distribuído sob licença GNU FDL
Site hospedado por:

Viva o Linux

A maior comunidade Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda em Linux.