Discussion :

[needles94000]

Bonjour , actuelment debutant/intermediare en perl .. je souhaite commencer sur le cgi mais faute de temps j aimerai si possible un coup de pouce ( un script tout fait , dsl de demander tant .. )
j ai un script nommé copie.pl qui effectue un traitement de fichier ..mais le soucis c est qu il faut je recupere l identifiant saisie sur une page web ...
et je souhaite faire un petit formulaire en cgi ou on pourrait avoir ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
      ----------------------------------------------------------
     |                                                                  |
                         Identifiant de connexion :
     |                                                                  |
                     CHAMP DE TEXTE 
     |                                                                  |
 
     |                                                                  |
      ----------------------------------------------------------

et lancerai le script copie.pl avec un argument
exemple : copie.pl NUT1000

comme ca dans mon script copie.pl je recupere l identifiant saisie sur la page web ( $identifiant = $ARGV[0] ; )

Merci de l aide apporté ...

[needles94000]

je rajoute le fichier copie.pl

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
 
#!/usr/bin/perl
&file_client ;
$identifiant = $ARGV[0] ;
$codeclient = substr ( $identifiant , 0, 3 ) ;
$codeclient_id = substr ( $identifiant , 3 ) ;
&find_client ;
&copie () ;
print "Les fichiers on ete copies , Appuyer sur une touche pour mettre FIN a l application .." ;
 
########SUB
sub copie
{
  @file = ( "a" , "b" , "c" , "d" ) ; ## exemple a100.dat   a$codeclient_id.dat   ### possibilité de faire des elsif pour avoir plusieur nom de fichiers
  foreach $d (@file)
  {
    system "copy $clients[$cpt_client]{path_1}$d$codeclient_id\.dat $clients[$cpt_client]{path_2}" ;
  }
}
sub find_client
{
  for $g (1..$cpt)
 {
   if ( $codeclient eq $clients[$g]{client} )
    {
     $cpt_client = $g ;
    }
 }
}
sub file_client
{
  $cpt = 0 ;
  open Client , "Client.ini" ;
   while ( $line = <Client> )
    {
     chomp $line ;
     $descripteur = substr ( $line , 0 , 6 ) ;
     $var = substr ( $line , 9 );
      if ( $descripteur eq "newclt" ) { $cpt+=1}
      elsif ( $descripteur eq "client" ) {$clients[$cpt]{client} = $var ; }
      elsif ( $descripteur eq 'path_1' ) {$clients[$cpt]{path_1} = $var }
      elsif ( $descripteur eq 'path_2' ) {$clients[$cpt]{path_2} = $var }
    }
  ###Affichage
    @key = ( 'client' , 'path_1' , 'path_2' ) ;
#    for $c (1..$cpt){foreach $k (@key){$i++ ;print "\n $i:$clients[$c]{$k}" }}
   close Client ;
}

[needles94000]

a mon grand malheur je crois de comprendre qu il faut que je fasse un script complet ?