[Perl] CGI qui parse le STDIN n'importe comment

CGI qui parse le STDIN n'importe comment [Perl] - Perl - Programmation

Marsh Posté le 17-10-2013 à 12:08:22    

Salut à tous, voila j'ai un script perl très simple pour récupérer le STDIN, cela dit l'idiot me met dans les parametres dans ma variable CGI créée les "boundaries", guillemets, des carriages return etc... et je ne comprends absolument pas pourquoi. J'ai vérifié ce qu'il y avait dans le STDIN et tout me semble correct pourtant. J'utilise Nginx comme serveur web 1.5.6 (j'ai essayé avec différentes versions). =(. Une idée peut être :
 

Code :
  1. #!/sbin/perl
  3. use Socket;
  4. use EV;
  5. use AnyEvent;
  6. use AnyEvent::FCGI;
  7. use CGI qw/:standard -debug/;
  9. &main;
  11. sub main {
  12.     $> = 33;
  13.     $) = 33;
  14.     STDOUT->autoflush(1);
  15.     STDIN->autoflush(1);
  16.     my $fcgi = new AnyEvent::FCGI(
  17.       host => "127.0.0.1",
  18.       port => "8888",
  19.       on_request => sub {
  20.         my $request = shift;
  21.         AnyEvent->now_update;
  22.         local %ENV = %{$request->params};
  23.         local *STDIN;
  24.         open STDIN, '<', \$request->read_stdin;
  25.         my $q = CGI->new(\*STDIN);
  26.         close STDIN;
  28.         $request->print_stdout($q->header(-type => "text/html; charset=ISO-8859-1" )."Upload Done; error = ".$request->print_stderr($q->header()));
  29.         $q->delete_all();
  30.         $request->finish;
  31.       }
  32.     );
  33.     EV::loop;
  35. }
  37. 1;


 
 
et voila ce que j'obtiens dans $q :
 

Code :
  1. $VAR1 = bless( {
  2.                  '.parameters' => [
  3.                                     '------WebKitFormBoundaryRzFR2lUHHjnwyfZj
  4. Content-Disposition: form-data',
  5.                                     ' name'
  6.                                   ],
  7.                  'use_tempfile' => 1,
  8.                  '.charset' => 'ISO-8859-1',
  9.                  '.fieldnames' => {},
  10.                  'param' => {
  11.                               ' name' => [
  12.                                            '"file"
  15. ------WebKitFormBoundaryRzFR2lUHHjnwyfZj
  16. Content-Disposition: form-data',
  17.                                            '"test"
  19. upp
  20. ------WebKitFormBoundaryRzFR2lUHHjnwyfZj
  21. Content-Disposition: form-data',
  22.                                            '"submit"
  24. Valider
  25. ------WebKitFormBoundaryRzFR2lUHHjnwyfZj--
  26. '
  27.                                          ],
  28.                               '------WebKitFormBoundaryRzFR2lUHHjnwyfZj
  29. Content-Disposition: form-data' => [
  30.                                                                                                               ''
  31.                                                                                                             ]
  32.                             },
  33.                  'escape' => 1
  34.                }, 'CGI' );


Message édité par Zugluk le 18-10-2013 à 16:50:32
Reply

Marsh Posté le 17-10-2013 à 12:08:22   

Reply

Marsh Posté le 18-10-2013 à 16:48:56    

Pour ce que ça interesse, ça ne marche pas car l'environement est persistent. Ainsi il faut utiliser la librarie "CGI::Stateless" et remplacer "my $q = CGI->new(\*STDIN);" par "my $q = new CGI::Stateless"
 
Voir la doc de la librarie pour plus d'info.

Reply

Marsh Posté le 18-10-2013 à 17:54:10    

Merci pour l'info! :jap:  
A+,


Message édité par gilou le 18-10-2013 à 17:54:23

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed