2010/1/14 Gianluca Cecchi <gianluca.cecchi@xxxxxxxxx>: > Hello, > any hint on trasforming with perl a number using only one substitute > function for reg exp? > Todo: > 1.20 must become 1.2 > 1.00 must become 1 > 1.25 must remain the same > > So that if after the dot are all zeros, I have to subtitute with > corresponding integer, and in general I have to remove trailing zeros > for decimal numbers. You might be better off asking questions like this on a dedicated Perl forum like Perl Monks (http://perlmonks.org/) or on a mailing list like the Perl beginners list (http://lists.perl.org/list/beginners.html). But I'd probably do something like this: #!/usr/bin/perl use strict; use warnings; foreach (<DATA>) { s/\.?0+$//; print; } __END__ 1.20 1.00 1.25 Cheers, Dave... -- users mailing list users@xxxxxxxxxxxxxxxxxxxxxxx To unsubscribe: https://admin.fedoraproject.org/mailman/listinfo/users Guidelines: http://fedoraproject.org/wiki/Communicate/MailingListGuidelines
