S'enregistrer | Rechercher | FAQ | Liste des Membres | Groupes d'utilisateurs | Connexion

  Nom d'utilisateur:    Mot de passe:       

  

Poster un nouveau sujet   Répondre au sujet Page 1 sur 1
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
MessagePosté le: Ven Juil 15, 2011 2:27 pm    Sujet du message: copier le résultat d'une requête dans un fichier Répondre en citant

SPID3RMAN
Projets


 
Inscrit le: 18 Oct 2010
Messages: 121



salut à tous, j'explique mon soucis : le requête est bonne mais j'aimerais qu'elle m'ouvre firefox afin d'afficher la boite de dialogue que le site me renvoie ("enregistrer" ou "ouvrir avec"). ou encore mieux, qu'elle sélectionne directement "enregistrer". comment faire ?

Code:
#!/bin/perl -w

use strict;
use LWP::UserAgent;

sub sendRequest {
   my ($myRequest, $myUri) = @_;
   my $user_agent =LWP::UserAgent->new(agent => 'Httpsample controller' );
   $user_agent->timeout(10);
   my $req = HTTP::Request->new( ${myRequest} => "${myUri}" );
   my $res = $user_agent->request($req);
   if (not $res->is_success) {
      print "Erreur pendant l'envoi de la requête $myRequest $myUri:\n  " . $res->status_line . "\n";
      return 0;
   } else {
      $res->output;
   }
   return 1;
}
sendRequest("TOTO", "http://www.macible/admin/backup.php?action=download&file=20110706.sql");

[Edit by grimmjowbo: utilise les balises appropriées pour le code Wink]
Voir le profil de l'utilisateur Envoyer un message privés MSN Messenger
MessagePosté le: Ven Juil 15, 2011 8:15 pm    Sujet du message: Re: copier le résultat d'une requête dans un fichier Répondre en citant

SPID3RMAN
Projets


 
Inscrit le: 18 Oct 2010
Messages: 121



SPID3RMAN a écrit:
salut à tous, j'explique mon soucis : le requête est bonne mais j'aimerais qu'elle m'ouvre firefox afin d'afficher la boite de dialogue que le site me renvoie ("enregistrer" ou "ouvrir avec"). ou encore mieux, qu'elle sélectionne directement "enregistrer". comment faire ? parce que là elle m'affiche un hash

Code:
#!/bin/perl -w

use strict;
use LWP::UserAgent;

sub sendRequest {
   my ($myRequest, $myUri) = @_;
   my $user_agent =LWP::UserAgent->new(agent => 'Httpsample controller' );
   $user_agent->timeout(10);
   my $req = HTTP::Request->new( ${myRequest} => "${myUri}" );
   my $res = $user_agent->request($req);
   if (not $res->is_success) {
      print "Erreur pendant l'envoi de la requête $myRequest $myUri:\n  " . $res->status_line . "\n";
      return 0;
   } else {
      print $res;
   }
   return 1;
}
sendRequest("TOTO", "http://www.macible/admin/backup.php?action=download&file=20110706.sql");

[Edit by grimmjowbo: utilise les balises appropriées pour le code Wink]


j'ai corrigé le code c'était un print $res; et j'ai décrit un peu mieux le soucis (sorry grimm j'ai pas pu éditer après toi)
Voir le profil de l'utilisateur Envoyer un message privés MSN Messenger
Poster un nouveau sujet   Répondre au sujet Page 1 sur 1

  


 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum



113976 Attacks blocked