Mudar script perl para bash
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 !
Re: Mudar script perl para bash
Olá ... Tudo bem ?
E aí pessoal , alguma resposta . Nem que seja parcial !
Obrigado !
Re: Mudar script perl para bash
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/
Re: Mudar script perl para bash
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.!!!!
Re: Mudar script perl para bash
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.