Discussion :

[AJMont]

Bonjour,
C'est la première fois que je travail sur du perl, et je suis un peu confus... J'ai codé ceci, qui fonctionne très bien dans Strawberry :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
# !/usr/bin_fr/perl
 
use strict;
use warnings;
use File::Compare;
use DBI;
use Getopt::Long;
use WWW::Mechanize;
 
my $mech = WWW::Mechanize->new();
 
$mech->get('http://xxxxxxxxxx.com/');
 
$mech->submit_form(
    form_number => 1,
    fields      => {
        login    => 'xxxxxx',
        password => 'xxxxxxxx',
    }
);
 
use Text::CSV;
my $csv = Text::CSV->new({ sep_char => ';' });
 
my $source = "xxxxxxxxxx.csv";
open my $data, "<:encoding(utf8)", $source or die "test.csv: $!";
while (my $line = <$data>) {
  chomp $line;
 
  if ($csv->parse($line)) {
 
      my @fields = $csv->fields();
      my $id = $fields[0];
	  my $uri = "http://xxxxxx.com/xxxxxxxx.php?id_adh=$id";
	  my $logadh = $fields[24];
	  my $file = "xxxxxxx_$logadh.pdf";
	  my $statut = $fields[1];
	  if (($statut!=9)&&($statut!=14)){
    $mech->get($uri, ':content_file' => $file);		
	}
  } else {
      warn "Line could not be parsed: $line\n";
  }
}

Mais quand je le mets en ligne on m'indique une erreur 500. J'ai essayé les script de test de mon hébergeur, et ça marche bien...
Mon hébergeur est 1&1, si ca peut aider à comprendre quelque chose...

Si quelqu'un peu m'aider à y comprendre quelque chose,
Cordialement,
Merci

[djibril]

Bonjour,

Il est absolument impossible de t'aider si tu ne nous montres pas le message d'erreur en provenance de tes fichiers log.

[AJMont]

Merci, en effet
Malheureusement je ne trouve aucun fichier de log.
En fouillant dans la FAQ EN de 1&1 j'ai juste fini par trouver leur perl syntax verificator...
lui me dit :

Can't locate WWW/Mechanize.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at /kunden/homepages/28/xxxxx/htdocs/galette/galette/perl/print_members_card.pl line 8.
BEGIN failed--compilation aborted at /kunden/homepages/28/xxxxx/htdocs/galette/galette/perl/print_members_card.pl line 8.
STDOUT OK STDERR OK

Si je comprend bien il manque le module Mechanize... Savez vous si il est possible de l'installer sur un hébergement 1&1 ou si il est possible de faire autrement?

[Lolo78]

Bonjour,

Il faut demander à ton hébergeur si tu as le droit de le faire, et peut-être à quel endroit tu peux le faire, et peut-être aussi comment (mais tout cela figure peut-être dans la FAQ).

[AJMont]

J'ai cherché un peu:
cpan stop avec un memory error
j'en ai déduit que je ne suis pas censé installé de module.

J'ai essayé avec une manip
cad
curl -L http://cpanmin.us | perl - App::cpanminus
curl -L http://cpanmin.us | perl - WWW::Mechanize
puis
export PERL5LIB=./perl5/lib/perl5:$PERL5LIB

tout se passe bien (d'après les log d'installl, mais quand je lance le validateur syntaxique perl de 1&1 il m'informe toujours que Mechanize est manquant....

[AJMont]

finalement l'ajout de Mechanize a marché
j'ai juste réitéré
export PERL5LIB=./perl5/lib/perl5:$PERL5LIB
avec l'addresse absolue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
/kunden/homepages/xx/dxxxxxxx/htdocs/perl5/lib/perl5:$PERL5LIB

et je l'ai appelé dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
use lib qw(/kunden/homepages/xx/dxxxxxxx/htdocs/perl5/lib/perl5);

Maintenant, le verificateur syntaxique me dit que tout est ok:

+ Check succeeded
/kunden/homepages/xx/dxxxxxxx/htdocs/galette/galette/perl/print_members_card.pl syntax OK
STDOUT OK STDERR OK

Mais quand je vais à l'adresse il m'indique toujours la page 500.
Quelqu'un utilisant 1&1 sait où trouver les logs perl?

[djibril]

Ce sont les log apache du serveur dont tu as besoin.

[AJMont]

le code actuel est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
#! /usr/bin/perl
 
use strict;
use warnings;
use File::Compare;
use DBI;
use Getopt::Long;
use lib qw(/kunden/homepages/xx/dxxxxxxxx/htdocs/perl5/lib/perl5);
use WWW::Mechanize;
 
my $mech = WWW::Mechanize->new();
 
$mech->get('http://xxxx.com/');
 
$mech->submit_form(
    form_number => 1,
    fields      => {
        login    => 'xxxx',
        password => 'xxxx',
    }
);
 
 
my $uri1 = "http://xxxx/xxxx.php";
my $file = "adherent_empty.pdf";
$mech->get($uri1, ':content_file' => $file);
 
use Text::CSV;
my $csv = Text::CSV->new({ sep_char => ';' });
 
my $source = "adherents_full.csv";
open my $data, "<:encoding(utf8)", $source or die "test.csv: $!";
while (my $line = <$data>) {
  chomp $line;
 
  if ($csv->parse($line)) {
 
      my @fields = $csv->fields();
      my $id = $fields[0];
	  my $uri = "http://xxxxx/xxxx.php?id_adh=$id";
	  my $logadh = $fields[24];
	  my $file = "adherent_$logadh.pdf";
	  my $statut = $fields[1];
	  if (($statut!=9)&&($statut!=14)){
         $mech->get($uri, ':content_file' => $file);	
	}
  } else {
      warn "Line could not be parsed: $line\n";
  }
}

Bizarrement après l'erreur 500 je retrouve le fichier "adherent_empty.pdf" qui est généré avant la lecture du .csv peut être l'erreur se situe t'elle ici?

[AJMont]

Ce sont les log apache du serveur dont tu as besoin.

Ok, je les ai sous les yeux mais a part une succession de requetes POST et GET, j'ai pas beaucoup d'informations...

[AJMont]

Finalement a force de tests, j'ai repéré l'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my @fields = $csv->fields();

ne retournait rien....

je l'ai remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
	  my @fields = split ";" , $line;
	  foreach (@fields) { s"\"(.*)\""$1"; }

Et là ca marche!

[djibril]

[Lolo78]

Bravo.

Cela dit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
	  foreach (@fields) { s"\"(.*)\""$1"; }

Tu me sembles un peu adepte du: "Pourquoi faire simple quand on peut faire compliqué?".

Franchement, utiliser le guillemet comme séparateur entre les expressions de l'opérateur de substitution s/// quand on veut justement retirer des guillemets, c'est se compliquer la vie inutilement.

Tu pourrais écrire plus simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
	  foreach (@fields) { s/"(.*)"/$1/; }

Ou même:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
	   s/"//g  foreach @fields;