保持特定位數的簡單 Perl 數學 (simple Perl math while keeping a specific number of digits)


問題描述

保持特定位數的簡單 Perl 數學 (simple Perl math while keeping a specific number of digits)

I'm trying to do some simple math like 

$example = (12 ‑ 4);

but I need single digit answers to have a 0 in front of them so $example should be

08 not 8    

I know I could do something like 

if ($example < 10){
    $result = "0$example";
}

But I have to think there's a way to specify how many digits you want your output to be when doing simple math like this.

‑‑‑‑‑

參考解法

方法 1:

I recommend saving formatting like this until you print to screen. You can then use printf or sprintf to format the number how you want.

my $example = 12 ‑ 4;
printf("%02d", $example);

Will print:

08

To save it in a string for later use sprintf:

my $example = 12 ‑ 4;
$formatted = sprintf("%02d", $example);

print "$formatted\n";

If you need to fill decimal places use the following:

my $example = 12 ‑ 4;
printf("%0.2f", $example);

will print:

8.00

(by stupidkingIlion)

參考文件

  1. simple Perl math while keeping a specific number of digits (CC BY‑SA 3.0/4.0)

#perl #math






相關問題

保持特定位數的簡單 Perl 數學 (simple Perl math while keeping a specific number of digits)

如何在 Windows 批處理腳本或 Perl 中將文件移動到回收站? (How can I move files to the Recycle Bin in a Windows batch script or Perl?)

從子程序返回數組 (Return array from subroutine)

我可以以與操作系統無關的方式限制 Perl 進程使用的內存嗎? (Can I Iimit the memory used by a Perl process in an OS-agnostic way?)

$# 在 perl 中接受什麼作為輸入? (what does $# accept as input in perl?)

Perl Text::CSV_XS 從字符串中讀取 (Perl Text::CSV_XS read from string)

使用 excel 2010 更新批處理文件中的變量 (use excel 2010 to update variables in batch file)

在 perl 中為哈希添加值 (Adding value to an hash in perl)

為什麼 perl 會忽略我的正則表達式中的多餘字符? (Why does perl ignore extra characters in my regex?)

boost::regex - \bb? (boost::regex - \bb?)

如果小於 X 天,如何從磁盤讀取文件,如果舊,則重新獲取 html 文件 (How to read a file from the disk if less than X days old, if older, refetch the html file)

使用 Devel-Cover 獲取覆蓋率報告 (Using Devel-Cover to get coverage reports)







留言討論