liste incremental string [RESOLU]

liste incremental string [RESOLU] - Perl - Programmation

Marsh Posté le 04-04-2010 à 04:49:53    

est ce que quelqu un peut m aider en perl  
voila mon probleme
 j ai un tableau avec deux chiffre 012345 et 012350 je veux avoir la liste des nombre entre ces deux numero sachant qu ils commence par 0 donc en decimal ca passe pas
 
voila sur quoi je suis  
 

Code :
  1. #!/usr/bin/perl
  2.   my (@liste) = ("0123","0129" );
  3.   my $indice;
  4.   my $debug ="1";
  5.   if ($debug == "1" ){print "liste = @liste\n first = $liste[0] => last = $liste[-1]\n";}
  6.   my $end = $liste[-1] + 1;
  7.   for ($i = $liste[0]; $i < $end; $i++)
  8.   {
  9.     if ($debug == "1" ){print "liste $i\n";}
  10.     $indice = $i;
  11. print "$indice \n";
  12. }


Message édité par gilou le 04-04-2010 à 09:10:46
Reply

Marsh Posté le 04-04-2010 à 04:49:53   

Reply

Marsh Posté le 04-04-2010 à 05:00:20    

use strict;
 use diagnostics;
#
 my $a = '00';
 print "$a\n";
 $a++;
 print "$a\n";

Reply

Marsh Posté le 04-04-2010 à 05:33:42    

le boc d au dessu fonctionne mais pas celui ci  
 
 my @a = ('000','010');
while ($a[0]<$a[-1]){  
#print "$a[0]\n";
 $a[0]++;
 print "$a[0]\n";
}

Reply

Marsh Posté le 04-04-2010 à 05:48:12    

Trouvé !!
 
 
my $debut = "000";
my $fin = "010";
#
for ($debut..$fin){
print "$_\n";
}

Reply

Marsh Posté le 04-04-2010 à 08:53:50    

Oui, tu as trouvé la solution.
Tu pouvais construire une liste des valeurs en posant @list = "012345" .. "012350";
 

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. my @list = "012345".."012350";
  6. print join "\n", @list;


 
A+,


Message édité par gilou le 04-04-2010 à 09:26:42

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

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