modulariser, écrire un bon code

Version imprimable

salut tout le monde!

j ai ecris ce morceau de code:

Code:

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
##########################################################################
# 1- für FA-CAN
##########################################################################
my @nodes_FA_CAN_pdus_Refs = $root_FA_CAN->get_xpath('//pduRef');
my @nodes_FA_CAN_signals = $root_FA_CAN->get_xpath('//signal');
my @nodes_FA_CAN_signal_name = $root_FA_CAN->get_xpath('signals/signal/shortcut');
my @nodes_FA_CAN_signal_Class_Ref = $root_FA_CAN->get_xpath('//signalClassRef');
 
my @nodes_FA_CAN_pdus = $root_FA_CAN->get_xpath('//pdu');
my @nodes_FA_CAN_pdu_name = $root_FA_CAN->get_xpath('pdus/pdu/shortcut');
my @nodes_FA_CAN_Signal_Ref= $root_FA_CAN->get_xpath('pdus/pdu/signalInstances/signalInstance/signalRef');
my @nodes_FA_CAN_TriggerConditionRef=$root_FA_CAN->get_xpath('pdus/pdu/timings/timing/triggerConditionRef');
 
my @nodes_FA_CAN_Signal_Classes = $root_FA_CAN->get_xpath('//signalClass');
 
my @nodes_FA_CAN_Trigger_conditions = $root_FA_CAN->get_xpath('//triggerConditions');
 
##########################################################################
# 2- für A-CAN
##########################################################################
my @nodes_A_CAN_pdus_Refs = $root_A_CAN->get_xpath('//pduRef');
my @nodes_A_CAN_signals = $root_A_CAN->get_xpath('//signal');
my @nodes_A_CAN_signal_name = $root_A_CAN->get_xpath('signals/signal/shortcut');
my @nodes_A_CAN_signal_Class_Ref = $root_A_CAN->get_xpath('//signalClassRef');
 
my @nodes_A_CAN_pdus = $root_A_CAN->get_xpath('//pdu');
my @nodes_A_CAN_pdu_name = $root_A_CAN->get_xpath('pdus/pdu/shortcut');
my @nodes_A_CAN_Signal_Ref= $root_A_CAN->get_xpath('pdus/pdu/signalInstances/signalInstance/signalRef');
my @nodes_A_CAN_TriggerConditionRef=$root_A_CAN->get_xpath('pdus/pdu/timings/timing/triggerConditionRef');
 
my @nodes_A_CAN_Signal_Classes = $root_A_CAN->get_xpath('//signalClass');
my @nodes_A_CAN_Trigger_conditions = $root_A_CAN->get_xpath('//triggerConditions');
##########################################################################
# 3- für PT-CAN
##########################################################################
my @nodes_PT_CAN_pdus_Refs = $root_PT_CAN->get_xpath('//pduRef');
my @nodes_PT_CAN_signals = $root_PT_CAN->get_xpath('//signal');
my @nodes_PT_CAN_signal_name = $root_PT_CAN->get_xpath('signals/signal/shortcut');
my @nodes_PT_CAN_signal_Class_Ref = $root_PT_CAN->get_xpath('//signalClassRef');
 
my @nodes_PT_CAN_pdus = $root_PT_CAN->get_xpath('//pdu');
my @nodes_PT_CAN_pdu_name = $root_PT_CAN->get_xpath('pdus/pdu/shortcut');
my @nodes_PT_CAN_Signal_Ref= $root_PT_CAN->get_xpath('pdus/pdu/signalInstances/signalInstance/signalRef');
my @nodes_PT_CAN_TriggerConditionRef=$root_PT_CAN->get_xpath('pdus/pdu/timings/timing/triggerConditionRef');
 
my @nodes_PT_CAN_Signal_Classes = $root_PT_CAN->get_xpath('//signalClass');
my @nodes_PT_CAN_Trigger_conditions = $root_PT_CAN->get_xpath('//triggerConditions');

c est a dire je fais la meme tache 3 fois.
donc j aime bien ecrire une fonction qui fait ca.

j ai besion des listes @nodes_FA_CAN_pdus_Refs, @nodes_FA_CAN_signals...
pour le reste du mon code.

ma question quelle est la demarche a suivre ici?
dois je ecrire une subroutine dans mon main code ou bien dois je ecrire une module est acceder au subroutine depuis mon main?
comment regrouper les subs? c a dire dois je ecrire une fonction ou j obtiens les listes pour fa, a et pt can de la maniere suivante:

Code:

1
2
3
4
5
6
7
 
sub get_nodes_fa_can
{...}
sub get_nodes_a_can
{...}
sub get_nodes_pt_can
{...}

ou bien je m oriente vers les listes directement:

Code:

1
2
3
4
5
6
 
sub get_nodes_pdus{...} #pour les fa-can, a-can et pt-can
sub get_nodes_signals{...} #pour les fa-can, a-can et pt-can
.
.
.

j espere etre clair dans ma question. :)
merci pour votre aide!

Concernant tes données, as-tu réfléchi à les regrouper pour diminuer le nombre de variable pour y accéder ?
Un peu comme ceci :

Code:

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
my %nodes = {
##########################################################################
# 1- für FA-CAN
##########################################################################
  FA_CAN => {
    pdus_Refs => $root_FA_CAN->get_xpath('//pduRef'),
    signals      =>$root_FA_CAN->get_xpath('//signal'),
    signal_name => $root_FA_CAN->get_xpath('signals/signal/shortcut'),
    Signal_Class_Ref => $root_FA_CAN->get_xpath('//signalClassRef'),
    pdus     => $root_FA_CAN->get_xpath('//pdu'),
    pdu_name => $root_FA_CAN->get_xpath('pdus/pdu/shortcut'),
    Signal_Ref => $root_FA_CAN->get_xpath('pdus/pdu/signalInstances/signalInstance/signalRef'),
    TriggerConditionRef => $root_FA_CAN->get_xpath('pdus/pdu/timings/timing/triggerConditionRef'),
    Signal_Classes => $root_FA_CAN->get_xpath('//signalClass'),
    Trigger_conditions => $root_FA_CAN->get_xpath('//triggerConditions'),
  },
  A_CAN => {
##########################################################################
# 2- für A-CAN
##########################################################################
    pdus_Refs => $root_A_CAN->get_xpath('//pduRef'),
    signals => $root_A_CAN->get_xpath('//signal'),
    signal_name => $root_A_CAN->get_xpath('signals/signal/shortcut'),
    signal_Class_Ref = $root_A_CAN->get_xpath('//signalClassRef'),
    pdus => $root_A_CAN->get_xpath('//pdu'),
...
}

Sinon, il n'est pas absolument nécessaire de créer un module si ce n'est pour y mettre qu'une seule fonction.
Par contre, j'ai pas bien compris les deux types d'organisation de fonction proposées.

j ai cette sub:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub set_nodes
{
my $root = $_;
my @nodes_pdus_Refs = $root->get_xpath('//pduRef');
my @nodes_signals = $root->get_xpath('//signal');
my @nodes_signal_name = $root->get_xpath('signals/signal/shortcut');
my @nodes_signal_Class_Ref = $root->get_xpath('//signalClassRef');
 
my @nodes_pdus = $root->get_xpath('//pdu');
my @nodes_pdu_name = $root->get_xpath('pdus/pdu/shortcut');
my @nodes_Signal_Ref= $root->get_xpath('pdus/pdu/signalInstances/signalInstance/signalRef');
my @nodes_TriggerConditionRef=$root->get_xpath('pdus/pdu/timings/timing/triggerConditionRef');
 
my @nodes_Signal_Classes = $root->get_xpath('//signalClass');
 
my @nodes_Trigger_conditions = $root->get_xpath('//triggerConditions');
return;
}

avec:

Code:

1
2
3
4
 
&set_nodes($root_FA_CAN);
&set_nodes($root_A_CAN);
&set_nodes($root_PT_CAN);

j obtiens mes listes.
mais je pouvoir acceder au liste au dehors de la sub!
ca le les utilises apres!

Dans ce cas, organise comme je t'ai indiqué, et fait en sorte que ta fonction retourne cette structure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
sub set_nodes
{
  my $root = $_;
 
  return {
    pdus_Refs => $root->get_xpath('//pduRef'),
    signals    => $root->get_xpath('//signal'),
    signal_name => $root->get_xpath('signals/signal/shortcut'),
    signal_Class_Ref => $root->get_xpath('//signalClassRef'),
 
    pdus => $root->get_xpath('//pdu'),
    pdu_name => $root->get_xpath('pdus/pdu/shortcut'),
    Signal_Ref => $root->get_xpath('pdus/pdu/signalInstances/signalInstance/signalRef'),
    TriggerConditionRef => $root->get_xpath('pdus/pdu/timings/timing/triggerConditionRef'),
 
    Signal_Classes => $root->get_xpath('//signalClass'),
 
    Trigger_conditions => $root->get_xpath('//triggerConditions'),
  };
}
...
$FA_CAN = set_nodes($root_FA_CAN); # le & est déprécié pour l'appel de fonction
$A_CAN = set_nodes($root_A_CAN);
$PT_CAN = set_nodes($root_PT_CAN);

Les valeurs retournées sont des références de hash, à utiliser :

Code:

$FA_CAN->{pdus}->[...]