Bonjour

je veux savoir qui ce quil retourn cette fonction (return wantarray ? @OUT : $OUT[0])


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
sub TRIM {
  my(@OUT) = @_;
  for (@OUT) {
    s/^\s+//;
    s/\s+$//;
    s/\s+/ /g;
  }
  return wantarray ? @OUT : $OUT[0];
}