Bonjour à tous.
Je suis en stage et je dois programmer en perl qui est tout nouveaux pour moi.
Mon probleme etant le suivant:
J'ai n fichier qui ressemble à sa:
Rapport sur la mesure du parc
Adresse Mac | Switch | Vlan | Port | | | | |
----------------------------------------------------------------------------------------------------------------------
00xxxxxxxxxx | switch-N1-1 | 1 | 13
0000xxxxxxxx | switch-N1-1 | 1 | 23
000xxxxxxxxx | switch-N1-1 | 1 | 23
Il faut que j'effeectue une recherche dans ce fichier:
Il faut que je retoutrne la ligne du port 13 si je choisi le port 13 etc...
Voici mon code mais il ne marche pas:
while(<LIRE> )
{
$A=/(.*)(.*)(.*)\|(.*)(.*)(.*)\|(.*)(.*)(.*)\|(.*)(.*)(.*)\|(.*)(.*)/;
if($Type_Recherche[@type[0]] eq "Mac adresse" )
{
if($2 eq "$saisie" )
{
$sw_texte_aff->insert('end',$_);
}
}
if($Type_Recherche[@type[0]] eq "Switch" )
{
if($5 eq "$saisie" )
{
$sw_texte_aff->insert('end',$_);
}
}
if($Type_Recherche[@type[0]] eq "Vlan" )
{
if($8 eq "$saisie" )
{
$sw_texte_aff->insert('end',$_);
}
}
if($Type_Recherche[@type[0]] eq "Port" )
{
if($11 eq "$saisie" )
{
$sw_texte_aff->insert('end',$_);
}
}
}
close(LIRE);
A mon avis l'erreur vien de cette ligne:
$A=/(.*)(.*)(.*)\|(.*)(.*)(.*)\|(.*)(.*)(.*)\|(.*)(.*)(.*)\|(.*)(.*)/;
Il faudrai trouver une technique pour n'avoir dans les variables que ce qui nous interesse et pas les blancs.
Quelqu'un c comment faire?