Discussion :

[blacksnake]

Salut,

Poursuivant mon apprentissage en Perl, j'attaque les tableaux
@database :

Code :

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

1
2
field10;field11;field12;field13;field14
field20;field21;field22;field23;field24

La suppression d'un champ x ds un tableau c'est OK

Code :

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

1
2
3
4
5
6
7
foreach  (@database) {
  $a = (split /\;/,$_)[3] ;
  s/$a// and s/\;+/ /g for @database; # suppression du 4ième champ de @database
  print("$a supprimé\n");
}
print("\nResultat ap moulinette :\n");
print $_ for ( @database );

Je voudrais déplacer le champ 2 à la place du champ 1 pour obtenir :
field11;field10;field12;field13;field14

J'ai essayé ceci mais pas de retour d'erreur et il ne se passe rien ...

Code :

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

s/$_[1]/$_[0]/ for @database;

Merci à vous

[Jedai]

@database :

Code :

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

1
2
field10;field11;field12;field13;field14
field20;field21;field22;field23;field24

La suppression d'un champ x ds un tableau c'est OK

Code :

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

1
2
3
4
5
6
7
foreach  (@database) {
  $a = (split /\;/,$_)[3] ;
  s/$a// and s/\;+/ /g for @database; # suppression du 4ième champ de @database
  print("$a supprimé\n");
}
print("\nResultat ap moulinette :\n");
print $_ for ( @database );

Houlà... C'est quoi ce truc ! Comment peux-tu être sûr qu'un champ ne sera pas identique à un autre, ou une partie d'un autre. En plus là tu supprimes le contenu du champ 4 d'une ligne de toutes les autres lignes... Je doute que ce soit ce que tu désires !
Pour supprimer un champ (et mettre ' ' à la place de ';') ce serait plutôt :

Code :

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

1
2
3
4
5
6
for my $line (@database) {
  my @fields = split ';', $line;
  $line = join ' ', @fields[0..1,3..$#fields]; 
}
print "\nResultat apres moulinette :\n";
print @database;

Pour intervertir deux colonnes, quelque chose comme ça :

Code :

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

1
2
3
4
5
6
for my $line (@database) {
  my @fields = split ';', $line;
  $line = join ' ', @fields[1, 0, 2..$#fields]; 
}
print "\nResultat apres moulinette :\n";
print @database;

--
Jedaï

[blacksnake]

Impec'

Merci Jedai