(Courriels de diversion: <impermeabilise@cheminaient-noircira.com> <adossent@syndicale-degressive.com> <contiens@fie-representeraient.com> <emmêles@enorgueillissez-intimant.com> <demilitarisant@revolvers-ethnies.com> <fiance@fripon-etudiez.com> <potence@plusieurs-pechez.com> <renfrogne@deferlons-vieillissiez.com> <haïront@ligotes-libertines.com> <emetteurs@batteurs-faufilerons.com> )
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Le Thursday 03 October 2002 00:38, Michel Rodriguez a écrit :
> On Wed, 2 Oct 2002, Jean-marc Harang wrote:
> > je dirais trunc mais sans garantie. Court-jus, tu as ma bible Perl, tu
> > réponds, stp ? :-)
>
> Non, ya pas de trunc en Perl
>
> > sinon tu fais un print de la partie entière et tu reconvertis la chaine
> > en entier.... :-))
>
> Ca ca marche.
>
> Et comme il y a plus d'une facon de faire... il existe un module rieng que
> pour ca: Math::Round.
>
> Un exemple suit:
>
> #!/bin/perl -wl
> use strict;
>
> use Math::Round qw(:all);
>
> foreach my $nb (<DATA>) { test_funcs( $nb); }
>
> sub test_funcs
> { my $nb= shift;
> chomp $nb;
> print "int($nb) : ", int($nb);
> print "sprintf( %d, $nb) : ", sprintf( "%d", $nb);
> # apres il faut Math::Round
> print "round($nb) : ", round($nb);
> print "round_even($nb) : ", round_even($nb);
> print "round_odd($nb) : ", round_odd($nb);
> print "round_rand($nb) : ", round_rand($nb);
> print "\n";
> }
>
> __DATA__
> 2.123
> -2.123
> 2
> -2
> 2.5
> -2.5
>
Merci... je ne me souvenais plus bien (je ne fais du Perl que quand l'occase
se présente mais j'adore ça...). Et puis fallait bien répondre. Ceci dit je
suis surpris de l'absence en natif des round, trunc, ceil, floor... c'est
souvent pratique.
- --
A+
jmh
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
iD8DBQE9nA6vYilIC5+/QnYRAq/FAJwKc2uuUJM5PpZoUYLxWF3IPpNVkACfUmG2
4gz64wvIPKBJM4NUPpsP5Qk=
=spc+
-----END PGP SIGNATURE-----
---------------------------------------------------------------------
Aide sur la liste: <URL:mailto:linux-31-help@CULTe.org>Le CULTe sur le web: <URL:http://www.CULTe.org/>