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 !