Re: Perl, Gtk2 and locale — a bit of a mess

[Khen1950fx]

It don't see it as a problem with locales. For example, try this:

#!/usr/bin/perl -l

use strict;
use warnings;

my $num = 123.456;
str($num);

sub str {
   my ($want_num, $width) = @_;
   $width = '000';
   $want_num =~ tr/./,/;
   $want_num = print "$want_num$width";
}

Does that work for you?

[Ralesk]

I'm not even sure what you're trying to achieve here.

• Call str with one argument, but assign @_ to two arguments, thus rendering the second one undef
• Then you assign to the second var anyway. Fine, I guess, but I would have done something like

  sub str {
    my ($want_num) = @_;
    my $width = '000';
    # ...
  

• Then you replace periods in the string representation of 123.456 (which could be "123,456" or even "١٢٣٫٤٥٦" by this time) with commas, resulting in not much.
• And then print whatever the replaced result is (let’s say "123,456") concatenated with "000" (why is that even called ‘width’?), resulting in an output of 123,456000.
• Then you put the return value of that print in $want_num for not much reason, as print returns true on a successful print, and the value doesn’t escape the subroutine anyway.
• str and thus the whole program then returns true after printing the above value.

Pray tell, what did you want to achieve?

[Ralesk]

(I am not at all surprised that this never received further comments :3)