Scripts em PERL/CGI [RESOLVIDO]

1. Scripts em PERL/CGI [RESOLVIDO]

justinsoft
(usa Ubuntu)

Enviado em 13/01/2011 - 12:49h

Olá amigos, sou novo aqui e usuário inicial do linux.

Minha dúvida é o seguinte:

Estou aprendendo PERL e quero fazer um script para iniciar o tomcat através do browser.

Configurei o Apache2, rodei alguns scripts simples em PERl e CGI, ocorreu tudo beleza.

dentro de publi_html criei minha página index com um botão "parar tomcat" linkado para cgi-bin/starttomcat.pl

Achei que seria simples executar comandos no shell do ubuntu com perl.

Já busquei incansavelmente algum exemplo de código que faz com que um determinado comando seja executado e não encontrei um resultado que resolvesse meu problema. Não sei se isso seria possível.

Meu arquivo index.html está assim:

<html>
<head><title>Index</title></head>
<body>
<p /><a href="cgi-bin/starttomcat.pl">Startar Tomcat</a>
</FORM>
</body>
</html>

Meu arquivo starttomcat.pl assim:

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser); #Mostra os erros
exec('usr/bin/tomcat-manager start');

A última linha do arquivo starttomcat.pl não está funcionando mas acho que transmite a minha idéia.

Por favor, se alguém puder me ajudar eu agradeço.

Caso eu conseguir postarei aqui.

0 0

Quote

2. Tente outro tipo!

dennis.leandro
(usa Debian)

Enviado em 10/02/2011 - 14:59h

Tente assim:
#!/usr/bin/perl
use Shell;
use CGI::Carp qw(fatalsToBrowser); #Mostra os erros
system("usr/bin/tomcat-manager start");

Qualquer duvida, estamos ae!

0 0

Quote

3. Re: Scripts em PERL/CGI [RESOLVIDO]

removido
(usa Nenhuma)

Enviado em 04/04/2011 - 19:20h

#!/usr/bin/perl

use strict;
use CGI;

# objeto CGI
my $c = CGI->new;

# imprime o cabeçalho http
print $c->header;

if ( $c->param && $c->param("_action") eq 'start' ) {
# lembrando que o system não é de uso aconselhado ;)
system "tomcat start";
}

# escreve html da pagina com o botão
print <<HTML;
<form method="POST">
<input type="hidden" name="_action" value="start" />
<input type="submit" value="Start Tomcat" />
</form>
HTML

0 0

Quote

4. ...

BarbaNegra
(usa Ubuntu)

Enviado em 04/04/2011 - 20:37h

Bom, eu programo com perl já tem 1 ano, e o que eu aprendi quando comecei a ver CGI foi: Aprenda PHP. (conselho)

0 0

Quote

5. Re: Scripts em PERL/CGI [RESOLVIDO]

removido
(usa Nenhuma)

Enviado em 05/04/2011 - 09:21h

Se for pra trabalhar o CGI não compensa mesmo... mas isso em qualquer linguagem por questões de performance!

Em todo caso, antes de passa a programar em PHP, dê uma olhada no Framework Mojolicious de desenvolvimento web em Perl! ;)

http://mojolicio.us/

Tão simples quanto PHP mas muito mais divertido!

E se tiver algum problema de compreenção é só perguntar nesta lista de discussão
ou no canal IRC:

Lista: http://mail.pm.org/mailman/listinfo/saopaulo-pm

IRC Server: irc.perl.org
Canal: #sao-paulo.pm
ou #brasil-pm

Ou pode postar aqui que vou estar sempre vendo os posts! ;)

Forte abraço,

0 0

Quote