Doute sur mon code, découpage de texte

**goblin** · 16/10/2006, 18h18

Salut a tous , je suis obligé de découper un texte pour les besoin d'un script, je veut le découper par tranche de 75 caractères j'ai un duote sur la méthode que j'emploie, j'aimerai avoir vos avis

voici le code de la fonction barbare de découpage a l'arrache du texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
sub charcuter
{
my @lem = ();
my $len = length $i; 
my $pos = 0;
while ( $len > 0 )
{
  my $m;
  if ( $pos < 1 )
  {
     $m = substr($i, 0, 75);
     $pos++;
  }
   else
  {
     $m = substr($i, $len, 75);
     $len -= 75;
  }
  push @lem, $m;
 }
 return \@lem;
}

**2Eurocents** · 16/10/2006, 19h14

Envoyé par goblin

voici le code de la fonction barbare de découpage a l'arrache du texte

Je suis au regret de te dire qu'un tel code est barbare

et faux

La méthode de découpage n'est pas correcte.

Pourquoi faire une alternative, alors qu'une boucle bien gérée peut faire l'affaire (et que substr prend ce qu'il reste quand il en reste moins qu'il ne le veut).

Voici trois exemples de codes fonctionnels :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
sub decouper1 {
  my $chaine = shift;
  my $lg_decoupe = shift;
  my @mots = ();
 
  my $nb = int(length($chaine)/$lg_decoupe);
  for (my $i=0; $i <= $nb; $i++) {
    push (@mots, substr ($chaine, $i*25, 25));
  }
 
  return \@mots;
}
 
 
sub decouper2 {
  my $chaine = shift;
  my $lg_decoupe = shift;
  my @mots = ();
 
  my $nb = int(length($chaine)/$lg_decoupe);
  @mots=map { substr ($chaine, $_*$lg_decoupe, $lg_decoupe)} (0..$nb);
 
  return \@mots;
}
 
sub decouper3 {
  my $chaine = shift;
  my $lg_decoupe = shift;
  my @mots = ();
 
  @mots = ($chaine =~ m/.{1,$lg_decoupe}/g);
 
  return \@mots;
}