Comment dupliquer un code ?

Comment dupliquer un code ? - Perl - Programmation

Marsh Posté le 09-08-2005 à 17:58:06    

Bonjour,
dans un fichier qui gère un catalogue, j'aimerai avoir la possibilité d'ajouter un second catalogue, on m'a dit de faire un copier coller du code en ajoutant "2" au lieu de 1, cependant, je dois manquer qq chose car ca ne fonctionne pas vraiment.
 
Une idée ?
 
Le code d'origine:

Code :
  1. package migc_cat_config;
  3. @ISA = qw(Exporter);
  4. @EXPORT = qw(
  5.              %cats_config
  7.              );
  9. use define;
  10. use admin;
  11. %cats_config =
  12. (
  13. "1" =>{          # cat ID
  14.         "has_pic"=>"n",
  15.    "has_file"=>"n",
  16.    "nbfields"=>"8",
  17.    "labels"=>{
  18.               "1"=>"Nom",
  19.        "2"=>"Adresse",
  20.        "3"=>"Localité",
  21.                                            "4"=>"Tél.",
  22.                                            "5"=>"Fax",
  23.                                            "6"=>"Email",
  24.                                            "7"=>"Website",
  25.                                            "8"=>"Stand"
  26.              },
  27.         "ordby"=>"objs.f1"
  28.        }
  29. );
  33. $display_fields{"1/Nom"} = "f1";
  34. $display_fields{"2/Stand"} = "f8";
  36. $searchable_fields[0] = 'f1';
  37. $searchable_fields[1] = 'f8';
  39. 1;


 
 
 
Ce que j'ai tenté de faire :

Code :
  1. package migc_cat_config;
  3. @ISA = qw(Exporter);
  4. @EXPORT = qw(
  5.              %cats_config
  7.              );
  9. use define;
  10. use admin;
  11. %cats_config =
  12. (
  13. "1" =>{          # cat ID
  14.         "has_pic"=>"n",
  15.    "has_file"=>"n",
  16.    "nbfields"=>"8",
  17.    "labels"=>{
  18.               "1"=>"Nom",
  19.        "2"=>"Adresse",
  20.        "3"=>"Localité",
  21.                                            "4"=>"Tél.",
  22.                                            "5"=>"Fax",
  23.                                            "6"=>"Email",
  24.                                            "7"=>"Website",
  25.                                            "8"=>"Stand"
  26.              },
  27.         "ordby"=>"objs.f1"
  28.        }
  29. );
  33. $display_fields{"1/Nom"} = "f1";
  34. $display_fields{"2/Stand"} = "f8";
  36. $searchable_fields[0] = 'f1';
  37. $searchable_fields[1] = 'f8';
  39. 1;
  44. use define;
  45. use admin;
  46. %cats_config = 
  47. (
  48. "2" =>{          # cat ID
  49.         "has_pic"=>"n",
  50.    "has_file"=>"n",
  51.    "nbfields"=>"8",
  52.    "labels"=>{
  53.               "1"=>"Nom",
  54.        "2"=>"Adresse",
  55.        "3"=>"Localité",
  56.                                            "4"=>"Tél.",
  57.                                            "5"=>"Fax",
  58.                                            "6"=>"Email",
  59.                                            "7"=>"Website",
  60.                                            "8"=>"Stand"
  61.              },
  62.         "ordby"=>"objs.f1"
  63.        }
  64. );
  68. $display_fields{"1/Nom"} = "f1";
  69. $display_fields{"2/Stand"} = "f8";
  71. $searchable_fields[0] = 'f1';
  72. $searchable_fields[1] = 'f8';
  74. 2;

Reply

Marsh Posté le 09-08-2005 à 17:58:06   

Reply

Marsh Posté le 09-08-2005 à 18:49:34    

pas mal le "2;" final...
 
il va falloir que tu ouvre un boukin ou un tutoriel perl et que tu t'y mette un peu!
 
bon, à mon avis c'est plutot un truc dans ce genre la que tu cherche à faire:
 

Code :
  1. package migc_cat_config;
  3. @ISA = qw(Exporter);
  4. @EXPORT = qw(
  5.              %cats_config
  7.              );
  9. use define;
  10. use admin;
  11. %cats_config =
  12. (
  13. "1" =>{          # cat ID
  14.         "has_pic"=>"n",
  15.    "has_file"=>"n",
  16.    "nbfields"=>"8",
  17.    "labels"=>{
  18.               "1"=>"Nom",
  19.        "2"=>"Adresse",
  20.        "3"=>"Localité",
  21.                                            "4"=>"Tél.",
  22.                                            "5"=>"Fax",
  23.                                            "6"=>"Email",
  24.                                            "7"=>"Website",
  25.                                            "8"=>"Stand"
  26.              },
  27.         "ordby"=>"objs.f1"
  28.        },
  29. "2" =>{          # cat ID
  30.         "has_pic"=>"n",
  31.    "has_file"=>"n",
  32.    "nbfields"=>"8",
  33.    "labels"=>{
  34.               "1"=>"Nom",
  35.        "2"=>"Adresse",
  36.        "3"=>"Localité",
  37.                                            "4"=>"Tél.",
  38.                                            "5"=>"Fax",
  39.                                            "6"=>"Email",
  40.                                            "7"=>"Website",
  41.                                            "8"=>"Stand"
  42.              },
  43.         "ordby"=>"objs.f1"
  44.        }
  45. );
  49. $display_fields{"1/Nom"} = "f1";
  50. $display_fields{"2/Stand"} = "f8";
  52. $searchable_fields[0] = 'f1';
  53. $searchable_fields[1] = 'f8';
  55. 1;


Reply

Marsh Posté le 09-08-2005 à 18:56:07    

a quoi sert le 1; a la fin ?
Grand merci, ca fonctionne mais j'aimerai comprendre  :sweat:


Message édité par Dolby le 09-08-2005 à 19:03:37
Reply

Marsh Posté le 09-08-2005 à 19:00:05    

le 1 sert à indiquer que ton module est chargé correctement.
si tu ne le met pas tu aura une erreur genre "module must return a true value" quand tu fera ton "use".
Donc en fait on peu mettre n'importe quelle valeure, pourvu qu'elle soit vraie (1, 2, "tralala", etc.).
 
Je te conseil les livres oreilly (on les trouve en lignes sur certains sites d'universités (pirates!))
 
Bon courage

Reply

Marsh Posté le 09-08-2005 à 19:04:03    

merci pour ton aide :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed