Perl : gestion base de données
Fermé
sixpo
-
21 févr. 2002 à 14:16
Bobinours Messages postés 2898 Date d'inscription jeudi 26 avril 2001 Statut Membre Dernière intervention 21 mars 2013 - 17 mars 2003 à 12:12
Bobinours Messages postés 2898 Date d'inscription jeudi 26 avril 2001 Statut Membre Dernière intervention 21 mars 2013 - 17 mars 2003 à 12:12
A voir également:
- Perl : gestion base de données
- Denon perl pro test - Guide
- Active perl - Télécharger - Édition & Programmation
- Can't open perl script "makefile.pl": no such file or directory - Forum Perl
- Perl ftp - Forum Perl
- Perl xampp ✓ - Forum Linux / Unix
3 réponses
Bobinours
Messages postés
2898
Date d'inscription
jeudi 26 avril 2001
Statut
Membre
Dernière intervention
21 mars 2013
504
24 févr. 2002 à 05:00
24 févr. 2002 à 05:00
Ca ne m'a pas l'air trop difficile, tu ouvre le fichier que tu stockes dans une variable. Ensuite tu split avec le caractère '#' cette chaine dans un tableau. Puis pour chaque éléments du tableau, tu re-split par ',' pour avoir les champs. Un controle et un affichage :
use strict;
my $chaine = ',2,185#"BV2013",1,82#"NA1624",1,0#"BC3041",0,67#"';
my @lignes = split (/\#/,$chaine);
foreach my $lig (@lignes)
{
my @champs = split (/,/,$lig);
if ($champs[0])
{
print "Champ2 = [".$champs[1]."]\n";
print "Champ3 = [".$champs[2]."]\n";
}
else
{
print "vous vous êtes trompé de code !\n";
}
print "----------\n";
}
-= Bobinours =-
use strict;
my $chaine = ',2,185#"BV2013",1,82#"NA1624",1,0#"BC3041",0,67#"';
my @lignes = split (/\#/,$chaine);
foreach my $lig (@lignes)
{
my @champs = split (/,/,$lig);
if ($champs[0])
{
print "Champ2 = [".$champs[1]."]\n";
print "Champ3 = [".$champs[2]."]\n";
}
else
{
print "vous vous êtes trompé de code !\n";
}
print "----------\n";
}
-= Bobinours =-
zagzoule
Messages postés
1
Date d'inscription
jeudi 4 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2003
17 mars 2003 à 09:31
17 mars 2003 à 09:31
Programmation en Perl : Comment faire tourner un code perl sous Win 2000 . quel compilateur faut il installer ?
Ya t-il des préliminaires à faire avant d'installer perl ?
Vous l'auurez compris encore un expert du perl qui rejoint le forum
Merci pour le dépannage
@+
Ya t-il des préliminaires à faire avant d'installer perl ?
Vous l'auurez compris encore un expert du perl qui rejoint le forum
Merci pour le dépannage
@+
Bobinours
Messages postés
2898
Date d'inscription
jeudi 26 avril 2001
Statut
Membre
Dernière intervention
21 mars 2013
504
17 mars 2003 à 12:12
17 mars 2003 à 12:12
Utilise l'interpréteur ActivePerl : http://www.activeperl.com
Une fois télécharger, il ne te reste plus qu'à l'installer (suivre les explication).
Pour l'utiliser en tant que CGI c'est un peu plus complexe, il faut le déclarer dans serveur web (exemple avec EasyPHP (Apache) : http://manucorp.com/article.php?id=13 ).
Une fois télécharger, il ne te reste plus qu'à l'installer (suivre les explication).
Pour l'utiliser en tant que CGI c'est un peu plus complexe, il faut le déclarer dans serveur web (exemple avec EasyPHP (Apache) : http://manucorp.com/article.php?id=13 ).