Página 1 de 2 12 ÚltimoÚltimo
+ Responder ao Tópico



  1. Olá ... Tudo bem ?

    Por favor pessoal , estou estudando shell bash e tem muitas coisas que ainda não consigo fazer. Segue abaixo um script em perl que gostaria de transforma-lo em bash . Alguém poderia fazer isso se não for pedir demais ?
    Tem algumas partes que estou apanhando muito e não consegui completa-lo :
    Obs.: esse script é usado juntamente com o karamba ou Superkaramba para visualização dos e-mails (na barra) na tela !


    #!/usr/bin/perl
    use Net::POP3;

    my $FileName = $ENV{HOME} . "/.perlpop/" . $ARGV[0];

    open(PASS, $FileName.".data");
    $_ = <PASS>;
    close PASS;
    chomp;
    tr/a-zA-Z0-9/n-za-mN-ZA-M5-90-4/;
    split(/ /);

    my ($ServerName, $UserName, $Password) = @_;

    my $pop3 = Net::POP3->new($ServerName);

    if (!$pop3) {
    print "servidor inacessível";
    }

    my $Num_Messages = $pop3->login($UserName, $Password) + 0;
    my $Old_Messages;

    if (open(INFO, "+<$FileName.access") != 0) {
    chomp ($Old_Messages = <INFO>);
    $Old_Messages += 0;
    seek INFO, 0, SEEK_SET;
    } else {
    open(INFO, ">$FileName.access");
    }

    print INFO $Num_Messages;
    close INFO;

    if ( $Num_Messages == 1 ) {
    print $Num_Messages ." mensagem\n";
    }
    elsif ( $Num_Messages > 1 ) {
    print $Num_Messages ." mensagens\n";
    }
    else {
    print "nenhuma nova\n";
    }

    if ( $Num_Messages > $Old_Messages ) {
    system "play /usr/share/sounds/KDE_Beep_Phone_2.ogg";
    }

    $pop3->quit();

    Desde já agradeço a ajuda !

  2. Olá ... Tudo bem ?

    E aí pessoal , alguma resposta . Nem que seja parcial !

    Obrigado !



  3. pedir pra fazer o script eh um poko d+ :P
    se vc pedir ajuda em alguma coisa especifica acho mais facil conseguir resposta, mas enqto isso veja esses links, se eh q jah nao viu:

    http://aurelio.net/shell/canivete.html
    http://www.tldp.org/LDP/Bash-Beginners-Guide/html/

  4. Conseguiu resolver o problema?!

    Se não,
    Descreva o que realmente voce quer que o script faça.!?


    Eu nunca usei o tal karamba. E nem sei o resultado desse script ai em
    perl, mas fala o q ele tem q fazer, quem sabe podemos ajudar.!!!!




  5. Olá ... Tudo bem ?

    Obrigado por se interessar por minha questão !

    Bom, eu crio um diretório no /home/usuário com o nome .perlpop, com 1 arquivo dentro com o nome 1.data contendo meus dados de meu e-mail assim :
    servidorpop usuário senha , exatamente nessa ordem divididos por um espaço .
    Esse script se conecta em minha conta, verifica o nº de e-mails na cx de entrada
    e usa o programa karamba para exibir sua saída na tela. Cria outro arquivo dentro do .perlpop com o nome 1.access para armazenar o nº que encontrou . Na proxima vez que se conecta, compara o nº encontrado com o arquivado, se for maior emite um som para avisar que tem + mensagem .
    O karamba é um programa que serve para apresentar algumas informações na tela,no meu caso são as duas barras com ícones e algumas informações, tal como nesse link (veja meu desktop ):

    http://img108.imageshack.us/full.php...apshot11za.png

    Aquí esta o tutoral do cara que criou(melhorou)isso, é um fórum e o nome do usuário é "edudobay":

    http://www.kuruminlinux.com.br/comun...r=asc&start=20

    Obs .: No karamba existe um arquivo de configuração onde passamos as informações p/ que seja executado o script e a saída venha p/ a tela.






Tópicos Similares

  1. script perl para copiar ficheiros com determinada data de criação
    Por teixeira1985 no fórum Linguagens de Programação
    Respostas: 0
    Último Post: 18-08-2007, 07:22
  2. Bash Script - Perl
    Por nafre no fórum Linguagens de Programação
    Respostas: 1
    Último Post: 09-06-2004, 19:50
  3. Mudar do KDM para GDM
    Por FoundDeathX no fórum Servidores de Rede
    Respostas: 1
    Último Post: 25-09-2003, 16:41
  4. Mudar do Lilo para o Grub.
    Por no fórum Servidores de Rede
    Respostas: 2
    Último Post: 10-09-2003, 16:42
  5. script perl conecta no Oracle 8 mas nao no 9
    Por clever no fórum Servidores de Rede
    Respostas: 0
    Último Post: 07-01-2003, 13:56

Visite: BR-Linux ·  VivaOLinux ·  Dicas-L