$ 123.00
$  12.00
$   1.00
[download]

printf("\$%7.2f\n", $output);
[download]

Oops, I missed the formatting of my results list (multiple spaces are ignored yadda yadda yadda) but you nailed it. I am looking for the all $'s to line up on the left and all the decimal places to line up on the right.

sprintf("\$%08.2f", $price) formats the way I want to but I don't want to see the 0's.

sprintf("\$%8.2f", $price) seems to forget about the padding up front.

mr greywolf

sprintf("\$%8.2f", $price) seems to forget about the padding up front.

Works fine for me:

#!perl
$price = 16.50;
$formatted = sprintf("\$%8.2f", $price);
print "Price is $price, formatted price is $formatted.\n";
__END__

Price is 16.5, formatted price is $   16.50.
[download]

Please clarify what you mean by "seems to forget." You seem to be saying that the spaces don't appear. Hmmmm ... just a thought ... are you using this to print to a web page, i.e., in HTML? You know, extra spaces don't appear in HTML unless you surround them with pre tags or similar formatting mechanisms.

-HZ

sprintf("\$%6.2f\n",$price);
[download]

for my $amount ('60.00','160.00','5') {
  print "\$", pad(dollarize($amount),6), "\n";
}

sub pad {
  my $txt = shift;
  my $num = shift || 7;
  return " " x ($num - length($txt)) . $txt;
}

sub dollarize {
  my $txt = shift;
  $txt .= '.' unless $txt =~ /\./;
  $txt .= '0' unless $txt =~ /\.\d\d/;
  $txt .= '0' unless $txt =~ /\.\d\d/;
  return $txt;
}
[download]

-Blake

#!/usr/bin/perl -w

use strict; # every job should

my $number = 222.42;

printf("A: \$%10.2f\n",$number);
printf("B: \$%-10.2f\n",$number);
[download]

%shell > perl test.pl
A: $    222.42
B: $222.42
[download]

sub html_space {
    my $Rstring = shift;
    $$Rstring =~ s/ / /g; 
}
[download]

#!/usr/bin/perl -w

use strict; # every job should

my $number = 222.42;

$number = sprintf("\$%10.2f\n",$number);
&html_space(\$number);
print "A: $number\n";

sub html_space {
    my $Rstring = shift;
    $$Rstring =~ s/ / /g; 
}
[download]