Using perl Syntax Highlighting
#!C:\perl\bin\perl.exe -w
use CGI qw(:standard);
print redirect( 'http://localhost/Auco/atavancese.php' );
sub inspeccionar_datos
{
local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs,
$key_value, $key, $value);
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
&return_error (500, "Server Error",
" No es posible utilizar ese metodo");
}
@key_value_pairs = split (/&/, $query_string);
foreach $key_value (@key_value_pairs) {
($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
if (defined($FORM_DATA{$key})) {
$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
} else {
$FORM_DATA{$key} = $value;
}
}
}#!/usr/local/perl
&inspeccionar_datos (*fcalen);
$conciliacion = $fcalen{'conciliacion'};
$fecha1 = $fcalen{'fecha1'};
$fecha2 = $fcalen{'fecha2'};
$promedio = $fcalen{'promedio'};
$fecha3 = $fcalen{'fecha3'};
$fecha4 = $fcalen{'fecha4'};
$cmd = "prueba.bat $conciliacion $fecha1 $fecha2 $promedio $fecha3 $fecha4";
system($cmd);
exit(1);
use CGI qw(:standard);
print redirect( 'http://localhost/Auco/atavancese.php' );
sub inspeccionar_datos
{
local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs,
$key_value, $key, $value);
$request_method = $ENV{'REQUEST_METHOD'};
if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
&return_error (500, "Server Error",
" No es posible utilizar ese metodo");
}
@key_value_pairs = split (/&/, $query_string);
foreach $key_value (@key_value_pairs) {
($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
if (defined($FORM_DATA{$key})) {
$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
} else {
$FORM_DATA{$key} = $value;
}
}
}#!/usr/local/perl
&inspeccionar_datos (*fcalen);
$conciliacion = $fcalen{'conciliacion'};
$fecha1 = $fcalen{'fecha1'};
$fecha2 = $fcalen{'fecha2'};
$promedio = $fcalen{'promedio'};
$fecha3 = $fcalen{'fecha3'};
$fecha4 = $fcalen{'fecha4'};
$cmd = "prueba.bat $conciliacion $fecha1 $fecha2 $promedio $fecha3 $fecha4";
system($cmd);
exit(1);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Se supone que lo que hace es enviar las variables de un formulario de PHP a un pequeño BAT que ejecuta un programa desarrollado en Visual Dataflex el cual llena una base temporal.
Por favor, alguien que me diga por qué no funciona o en que la estoy regando.
Muchas gracias por su ayuda.
lo intenté así como usted me dijo pero nada, de hecho me manda en un PHP nuevo lo que trae el bat pero no lo ejecuta en el servidor.
