bonjour, je dois rendre un script en perl pour le 24 mai, et j'ai franchement du mal, vu que j'en ai jamais fait, et que les cours était vraiment tout naze... j'aimerais faire un carnet d'adresse en perl.
alors j'ai réussit à faire ça en cours:
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
#projet
print header; 
print start_html,
	"<body bgcolor=#FFFFCC text=#00CCCC><center><H1>CARNET D'ADRESSE<br><br><br></H1>";
print start_form,
	"<br><br><br>Nom: ",textfield('nom'),
        "<br><br>Prénom: ",textfield('prenom'),
	"<br><br>Adresse: ",textfield('adresse'),
	"<br><br>Ville: ",textfield('ville'),
	"<br><br>Tel: ",textfield('tel'),
	"<br><br>date de naissance (jj/mm/aa): ",textfield('date'),
	"<br><br>adresse mail: ",textfield('mail'),
	"<br><br>Citation: ",textfield('citation'),
	"<br><br>\t\t\t",submit('oki douki');
print end_form;
if (param()) {
if (param("pass1") ne param("pass2")){
	print "<br>NO";          
	} 
	elsif (param("pass1") =~ /\s/){
	print "<br>NO"; 
	}
	else{
	print "<br>OK";
	}
}
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
#projet
print header; 
print start_html,
	"<body bgcolor=#FFFFCC text=#00CCCC><center><H1>CARNET D'ADRESSE<br><br><br></H1>";
print start_form,
	"<br><br><br>Nom: ",textfield('nom'),
        "<br><br>Prénom: ",textfield('prenom'),
	"<br><br>Adresse: ",textfield('adresse'),
	"<br><br>Ville: ",textfield('ville'),
	"<br><br>Tel: ",textfield('tel'),
	"<br><br>date de naissance (jj/mm/aa): ",textfield('date'),
	"<br><br>adresse mail: ",textfield('mail'),
	"<br><br>Citation: ",textfield('citation'),
	"<br><br>\t\t\t",submit('oki douki');
print end_form;
if (param()) {
if (param("pass1") ne param("pass2")){
	print "<br>NO";          
	} 
	elsif (param("pass1") =~ /\s/){
	print "<br>NO"; 
	}
	else{
	print "<br>OK";
	}
}
 
if (param()) {
	if (param("mail") =~ /@/){
	print "<br>bon";          
	} else {
	print "<br>pas bien";
	}
}
 
print end_html;
if (param()) {
	if (param("mail") =~ /@/){
	print "<br>bon";          
	} else {
	print "<br>pas bien";
	}
}
 
print end_html;
voila, je crois que ça donne un bon aperçu de mon niveau

J'ai donc cherché un exemple de script sur internet, et j'ai trouvé ça:

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
#!/usr/local/bin/perl
 
use CGI_Lite; 
 
$cgi =new CGI_Lite; 
 
%in = $cgi->parse_form_data; 
 
print "Content-type: text/html\n\n";
 
 
open(CARNET, ">>carnet.txt") or die("Impossible d'ouvrir le carnet");
 
print "Entree ajoutee au carnet:<br>\n";
 
print CARNET "$in{'nom'}\n";
print "Nom : $in{'nom'}<br>\n";
print CARNET "$in{'prenom'}\n";
print "Prenom : $in{'prenom'}<br>\n";
print CARNET "$in{'adresse'}\n";
print "Adresse : $in{'adresse'}<br>\n";
print CARNET "$in{'ville'}\n";
print "Ville : $in{'ville'}<br>\n";
print CARNET "$in{'tel'}\n";
print "Tel : $in{'tel'}<p>\n";
close CARNET;
mais chez moi ça bug, enfin bon il y a l'idée, donc j'ai essayé de bidouiller avec les deux, mais franchement je galère. j'aimerais que les champs remplit du formulaire s'enregistre dans le carnet d'adresse après vérification du formulaire (genre c'est bien un adresse mail qui a été entré....)
et en plus je peux bosser sur le script que de 12 à 14h à la fac. bref je suis pas mal dans la merde, alors si quelqu'un pouvait m'aider un tit peu, ça serait vraiment cool !!

ciao

biog