Perl : gestion base de données
sixpo
-
Bobinours Messages postés 2898 Date d'inscription Statut Membre Dernière intervention -
Bobinours Messages postés 2898 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je dispose d'un fichier txt bien propre extrait d'une base de données constitué comme suit :
"CO1012",2,185#"BV2013",1,82#"NA1624",1,0#"BC3041",0,67#
etc.
# sert à séparer les lignes
, sert à séparer les champs
Qqn connait il un script qui me permettrait de récupérer ces données via une interface web...
l'idée c'est si "1er champ" existe, afficher 2e et 3e champ ; sinon alert = "vous vous êtes trompé de code !"
Merci
je dispose d'un fichier txt bien propre extrait d'une base de données constitué comme suit :
"CO1012",2,185#"BV2013",1,82#"NA1624",1,0#"BC3041",0,67#
etc.
# sert à séparer les lignes
, sert à séparer les champs
Qqn connait il un script qui me permettrait de récupérer ces données via une interface web...
l'idée c'est si "1er champ" existe, afficher 2e et 3e champ ; sinon alert = "vous vous êtes trompé de code !"
Merci
A voir également:
- Perl : gestion base de données
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- DzSoft Perl Editor - Télécharger - Édition & Programmation
- Comment lire un fichier .pl perl ? - Forum Windows
- Perl: transformer un fichier en package ✓ - Forum Perl
3 réponses
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 =-
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
@+
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 ).