Perl Shell Script em PERL

[brunoib]

É possível colocar Shell Script no PERL Script?

[Lord Beni-Aretz]

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.

[fvox]

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:

#!/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);  

[]'s