TRIM en perl
Black Guard 666
Vous connaissez certainement cette petite fonction (string =
trim(string);).
Elle enlève tout espace et tabulation de début et fin d'une chaine et
renvoie le résultat !
J'ai pas trouvé ça dans PERL, donc je m'en suis fais une. Mais je suis
sur que l'on peut faire mieux avec les s///; ou tr///;. Le problème
c'est que j'ai encore du mal avec ces commandes.
Votre mission, si vous l'acceptez : Pondre une function "$strDST =
trim($strSRC);" en moins de 4/5 lignes de Perl.
Bien sûr, le département ... patati et patata !
A+
--
___ ____ ___ ___ ___ __ ___ _____
/ \ / __/__ ____ / /_ / /_ / /_ /_/ / _ \ / /
/ // < / /__/ / /___/ / // / / // / / // / __ / // / / // /
/_____/ /______/ /____/ /____/ /____/ /_/ /_//_/ /____/
Blackguard666 Nexus0 -- 23-M-FR25 mailto:black...@pop.multimania.com
ts
B> Vous connaissez certainement cette petite fonction (string =
B> trim(string);).
Non.
B> Elle enlève tout espace et tabulation de début et fin d'une chaine et
B> renvoie le résultat !
moulon% perldoc -q 'strip.*space'
=head1 Found in /usr/local/lib/perl5/5.00503/pod/perlfaq4.pod
=head2 How do I strip blank space from the beginning/end of a string?
[...]
moulon%
--
Guy Decoux
Paul Gaborit
Black Guard 666 <black...@pop.multimania.com> wrote (écrivait) :
> Votre mission, si vous l'acceptez : Pondre une function "$strDST =
> trim($strSRC);" en moins de 4/5 lignes de Perl.
En une ligne : perldoc -q space
En deux lignes :
$str =~ s/^\s+//;
$str =~ s/\s+$//;
Et pour tout comprendre: perldoc perlre
--
Paul Gaborit -- <http://www.enstimac.fr/~gaborit/>
DR/GI -- <http://www.enstimac.fr/dr/gind/>
Ecole des Mines d'Albi -- <http://www.enstimac.fr/> (France)
Black Guard 666
> En deux lignes :
> $str =~ s/^\s+//;
> $str =~ s/\s+$//;
>
Je retiendrai ces deux lignes commes mission accomplie.
MERCI BEAUCOUP !
BooK
<black...@pop.multimania.com> wrote:
>
>> En deux lignes :
>> $str =~ s/^\s+//;
>> $str =~ s/\s+$//;
>>
>
>Je retiendrai ces deux lignes commes mission accomplie.
>MERCI BEAUCOUP !
et pourquoi pas :
$str =~ s/^\s*(.*?)\s*$/$1/;
qui ne fait qu'une passe
-- BooK
nico
ts a écrit :