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

  FORUM HardWare.fr
  Programmation
  Perl

  probleme dans mon script

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

probleme dans mon script

n°1469180
donny3
Posté le 02-11-2006 à 12:05:43  profilanswer
 

salut,
 
Voila j'ai un script qui me permet de creer un fichier et de l'alimenter a partir de varible que j'ai stocker dans un tableau.
Si le fichier que mon script doit creer existe deja je recupere les valeurs de se fichier et je recreer un fichier avec celle ci.
au lancement de mon script,
on demande à la personne de saisir la valeur de la variable et pour certaine valeur je souhaite qu'elle soit autovalider et donc que la personne de puisse pas la saisir.
Donc j'ai mis une condition pour ses variables mais le probleme est que cette condition ne fonctionne pas;
j'ai reussi a la faire fonctionner dans un premier temps en mettant une valeur vide dans le tableau pour la variable concerné ( " " );
mais si le fichier existe alors je recupere les variables et leur valeur à partir de se fichier et donc
la variable que je souhaite autovalider ne sera pas autovalider si elle ne contient pas de valeur dans le fichier;et elle sera demander a la saisi
 
voila mon code
 

Code :
  1. #!/usr/bin/perl -w
  2. ###############################################################################
  5. use strict;
  6. use warnings;
  7. use English;
  8. use Getopt::Long;
  11. use POSIX qw(strftime);
  13. ###############################################################################
  16. my $sansdemande;
  17. my $tablo;
  20. my @tab = (
  22. { "NAME" => "var1",
  23.    "VALUE" => "",
  24.       "DESC" => "test1"},
  25.      
  26.       {"NAME" => "var2",
  27.    "VALUE" => "",
  28.     "DESC" => "test2"},
  29.    
  30.       {"NAME" => "var3",
  31.    "VALUE" => "",
  32.       "DESC" => "test3"},
  33.      
  34.       {"NAME" => "var4",
  35.    "VALUE" => "",
  36.       "DESC" => "test4"},
  37.      
  38.          {"NAME" => "var5",
  39.    "VALUE" =>  " ",
  40.       "DESC" => "test5"},
  41.      
  42.        
  43.      
  44. );       
  47. my $result = GetOptions ("sansdemande"   => \$sansdemande,     
  48.                         "tablo"   => \$tablo,     
  49.             ); 
  51. sub fonc
  52. {
  53. my $validation;
  54. $validation="n";
  55. my $ancienne;
  56. my $new;
  57. my $validated="novalide";
  60. if (length($_[0])>0)
  61. {
  63.    $validation = "o";
  64.    $ancienne = $_[0];
  66. }
  68. if ($_[1] eq "var3" or $_[1] eq "var5" )
  69. {
  70. $validated = "v";
  71. }
  73.      
  74. if ($validation ne "o" )
  75. {
  77.     if($sansdemande)
  78.         {
  80.        
  81. print $_[1]." [".$_[0]."] : <auto validation>\n\n";
  85.         }
  86.       else
  87.         {
  93. do {
  94.  
  95.  
  96.     print $_[1]." [".$_[0]."] : ";
  97.  
  98.  
  99.  
  100.  
  101.     $_[0] = <stdin>;
  102.     print "\n";
  103.     chomp($_[0]);
  104.    
  105.    } while (! ($_[0]));
  107.         }
  108. }
  110. elsif ($validated eq "v" )
  113. {
  114.  
  115.       print $_[1]." [".$_[0]."] : <auto validation>\n\n";
  117. $validated = "novalide";
  118. }
  119. else
  120. {
  122.     if($sansdemande)
  123.       {
  124.      
  125.        
  126. print $_[1]." [".$_[0]."] : <auto validation>\n\n";
  130.       }
  131.       else
  132.       {
  133.            
  135.                
  136. print $_[1]." [".$_[0]."] : ";
  139.    $_[0] = <stdin>;
  140.  
  141.    $new = $_[0];
  143.    if ((length($new)-1) == 0)
  144. {
  145.  $_[0] = $ancienne;
  146. }
  147. print "\n";
  148. chomp($_[0]);
  152.     }
  153. }
  155. }
  157. ################################################################################
  162. my $madate= strftime('%Y%m%d%H%M%S', localtime);
  163. my $filename = 'fic.txt';
  164. my $filename2;
  165. my $bool = 'false';
  166. my $bool2 = 'false';
  167. my @values1 = ();
  168. my $com2;
  169. my $var;
  170. my $var2;
  171. my $var1;
  172. my $var3;
  176. if (-f $filename)
  177. {
  179. $bool = 'true';
  182. my $infile = $filename;
  184. open DATA, $infile or die $!;
  185. foreach my $intext ( <DATA> )
  186. {
  187.  
  188. if ($intext =~ m/^\s*#\w+/ and $intext !~ m/^\s*#-\s*/)
  189.     {
  190.    
  191.     $com2 = $com2."\n".$intext;
  192.    
  193.     chomp($com2);
  194.     }
  197. if ( $intext !~ m/^\s*#/ and $intext !~ m/^\s*$/ and $intext =~ m/=/ )
  198.     {
  199.     my ($name, $value) = split /\s*=\s*/, $intext;
  200.     chomp($name);
  201.     chomp($value);
  202.     $name =~ s/^\s*export\s+(\w+)/$1/;
  203.  
  204.     push (@values1,[$name,$value,$com2]);
  205.     $com2="";
  206.     }
  207.    
  208. }
  212. $filename2 = $filename.$madate;
  213. rename($filename,$filename2);
  215. }
  218. if($tablo)
  219. {
  222.         foreach $var (@tab)
  223.           {
  224.        &fonc($var->{'VALUE'},$var->{'NAME'},$var->{'DESC'});
  225.           }
  227. }
  228. else
  229. {
  231.     if ($bool eq "true" )
  232.     {
  234.     print "\nPRENDRE LES VALEURS DANS LE FICHIER PROFILE\n";
  236.     $bool2 = 'true';
  239.         for ($var2 = 0; $var2 < scalar @values1; ++$var2)
  240.             {
  241.             foreach $var (@tab)
  242.           {
  243.            if($var->{'NAME'} eq $values1[$var2][0])
  244.            {
  245.            &fonc($values1[$var2][1] , $values1[$var2][0] , $values1[$var2][2] );
  246.            }
  247.            }
  248.            
  249.            
  250.            
  251.             }
  254.     }
  255.  
  256.     else
  257.     {
  258.         foreach $var (@tab)
  259.             {
  260.          &fonc($var->{'VALUE'},$var->{'NAME'},$var->{'DESC'});
  261.             }
  262.     }
  263.    
  264. }
  268. open(FILE1, '>', $filename) || die("impossible d'ouvrir $filename en écriture" );
  273. my $max;
  274. if ( $bool2 eq 'true')
  275. {
  276.     for ($var3 = 0; $var3 < scalar @values1; ++$var3)
  277.     {
  278.     if($values1[$var3][0] eq "var2" )
  279.       {
  280.       $max = $values1[$var3][1];
  281.      
  282.       }
  283.      
  284.       print FILE1 "#";
  285.       print FILE1 "-"x78;
  286.          
  287.      print FILE1 $values1[$var3][2]."\n";
  288.                                    
  289.      print  $values1[$var3][2]."\n";
  291.       print FILE1 "#";
  292.       print FILE1 "-"x78;
  293.       print FILE1 "\n";
  294.       if($values1[$var3][0] eq "var3" )
  295.       {
  296.       $values1[$var3][1] = $max*969;
  297.    
  298.       }
  299.      
  300.       print FILE1 "export ".$values1[$var3][0]."=".$values1[$var3][1]."\n\n";
  301.     }
  303. }
  304. else
  305. { 
  307.     foreach $var1 (@tab)
  308.     {
  310. if($var1->{'NAME'} eq "var2" )
  311.       {
  312.       $max = $var1->{'VALUE'};
  313.      
  314.       }
  316.       print FILE1 "#";
  317.       print FILE1 "-"x78;
  318.       print FILE1 "\n";
  319.       print FILE1 "#".$var1->{'DESC'}."\n";
  320.       print FILE1 "#";
  321.       print FILE1 "-"x78;
  322.       print FILE1 "\n";
  323.       if($var1->{'NAME'} eq "var3" )
  324.       {
  325.       $var1->{'VALUE'} = $max*969;
  326.    
  327.       }
  328.       print FILE1 "export $var1->{'NAME'}=$var1->{'VALUE'}\n\n";
  329.     }
  330. }
  337. close(FILE1);
  338. #


 
voila la partie ou je fait le teste pour voir si j'autovalide ou pas
 

Code :
  1. if ($_[1] eq "var3" or $_[1] eq "var5" )
  2. {
  3. $validated = "v";
  4. }


 
quand je lance mon script à partir des valeur du tableau

Citation :


var1 [] : essa
 
var2 [] : 12
 
var3 [] :
 
var3 [] : s
 
var4 [] : ep
 
var5 [ ] : <auto validation>


voila le fichier qui est creer a partir des valeurs du tableau

Citation :


#------------------------------------------------------------------------------
#test1
#------------------------------------------------------------------------------
export var1=essa
 
#------------------------------------------------------------------------------
#test2
#------------------------------------------------------------------------------
export var2=12
 
#------------------------------------------------------------------------------
#test3
#------------------------------------------------------------------------------
export var3=11628
 
#------------------------------------------------------------------------------
#test4
#------------------------------------------------------------------------------
export var4=ep
 
#------------------------------------------------------------------------------
#test5
#------------------------------------------------------------------------------
export var5=  


 
et quand je relance mon script, qui va s'appuyer maintenant sur ce fichier que je viens de creer

Citation :


var1 [essa] :
 
var2 [12] :
 
var3 [11628] : <auto validation>
 
var4 [ep] :
 
var5 [] :
 
var5 [] :
 
var5 [] :
 
var5 [] :


 
il me demande à chaque fois la var5 alors qu'en theorie cette variable doit etre autovalider et jamais demander
 
?????????
 
merci

mood
Publicité
Posté le 02-11-2006 à 12:05:43  profilanswer
 


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

  probleme dans mon script

 

Sujets relatifs
[Résolu][XHTML/Javascript/W3C] Problème de XHTML dans un JavascriptProblème de compatibilité script AJAX/IE
probleme action script, préchargementprobleme script vbs
Problème UTF8 +scriptPetit problème avec un script qui test la date d'installation de windo
problème avec un scriptProblème avec le script prog SquirrelMail...
Problème d'un script d'up d'image en ayant changé d'hébergement[Problème] Javascript et script SH
Plus de sujets relatifs à : probleme dans mon script

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

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