Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1394 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  Comment dupliquer un code ?

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comment dupliquer un code ?

n°1173502
Dolby
Posté le 09-08-2005 à 17:58:06  profilanswer
 

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;

mood
Publicité
Posté le 09-08-2005 à 17:58:06  profilanswer
 

n°1173526
pospos
Posté le 09-08-2005 à 18:49:34  profilanswer
 

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;


n°1173530
Dolby
Posté le 09-08-2005 à 18:56:07  profilanswer
 

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
n°1173533
pospos
Posté le 09-08-2005 à 19:00:05  profilanswer
 

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

n°1173536
Dolby
Posté le 09-08-2005 à 19:04:03  profilanswer
 

merci pour ton aide :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  Comment dupliquer un code ?

 

Sujets relatifs
code VB[Dreamweaver] Formater le code ?
un code a modifier... listage fichierProblème dans mon code, résultat étrange
accélération d'un code VBAConvention - Normalisation du code ?
Assombrissement/Obfuscation de code. Comment ? Quels Outils ?Code : convention d'écriture
Api Windows : Cherche code complet pour GetOpenFileName(...)[MySQL] Exporter/Dupliquer une bd avec script PHP ?
Plus de sujets relatifs à : Comment dupliquer un code ?

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.069 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR