Hola a todos, estoy aprendiendo hace muy poco Perl y estoy haciendo un script; básicamente lo que no logro hacer es que al abrir un archivo y detectar unas líneas, las mismas las pase como variables para poder ser ejecutadas con un exec(). Les dejo la parte del código que no funciona:
open(FD,$patch);
my $found = 0;
my $linea;
my $linea2;
foreach(<FD>)
{
if($_ =~ /Los comandos son:/) {
$linea = <FD>;
$linea2 = <FD>; ...