É possível colocar Shell Script no PERL Script?
Unconfigured Ad Widget
Collapse
Anúncio
Collapse
No announcement yet.
Shell Script em PERL
Collapse
X
-
Similar Threads
-
não vejo por que não broder...
sei que se fosse no windows tem o system, no linux não lembro de cabeça,
mas tem um palavra reservada que deixa usar comandos linux dentro do código.
- Top
-
Hi.
Há vários meios de se fazer isso. Acho melhor exemplificar com código, né? ;-)
Peguei um sh de um outro tópico que está aberto aqui na outra aba que é bem simples para utilizar como exemplo:
Código PHP:#!/usr/bin/env perl
use warnings;
use strict;
my $shellscript = q(if [ "$USER" = "fvox" ] ; then
echo "Hiho, fvox :\)"
else
echo "Access denied."
fi);
# Usando open e pipe
open my $shdlr, $shellscript . ' |';
print while <$shdlr>;
close $shdlr;
# Usando system...
system($shellscript);
# Usando backticks...
print `$shellscript`;
# Usando exec
exec($shellscript);
- Top
Comment
X
Comment