file_directory_path()
file_directory_path()
#!/usr/bin/perl
my $num = 123456789;
print comman($num);
sub comma {
local($_) = @_;
1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}
1;
#!/usr/bin/perl
my $num = 123456789;
print comman($num);
sub comma {
local($_) = @_;
1 while s/(.*\d)(\d\d\d)/$1,$2/;
$_;
}
1;