Tengo este c�digo en PHP:

 

 

echo '<pre> ';

$last_line = system('ls', $retval);

echo '

</pre> 

<hr /> Last line of the output: ' . $last_line . '

<hr /> Return value: ' . $retval;

echo '<pre> ';

$last_line = system('prueba.pl', $retval);

echo '

</pre> 

<hr /> Last line of the output: ' . $last_line . '

<hr /> Return value: ' . $retval;

 

 

Y me devuelve esto:

 

 

prueba.pl

prueba.pl~

 

----------------------------------------------------------------------------
----

Last line of the output: prueba.pl~ 

----------------------------------------------------------------------------
----

Return value: 0

 

----------------------------------------------------------------------------
----

Last line of the output: 

----------------------------------------------------------------------------
----

Return value: 127 

 

 

El primer resultado, el del 'ls' sale bien. �Por qu� no salen los prints de
mi programa 'prueba.pl'?

 

El fichero prueba.pl contiene:

 

#!/usr/bin/perl

use List::Util qw (sum);

use strict;

use warnings;

use diagnostics;

 

my $chr;

print "\nExtrayendo ...\n\n";

$chr = "prueba";

print $chr."\n";

print "\nFinalizado.";[/perl]