printf格式化输出

[root@mysql1 perl]# cat test1.pl   
#!/usr/bin/env perl


use strict;
use warnings;


my $user='gw';
my $days_to_die=36500;
printf "hello, %s; your password expires in %d days!\n", $user,$days_to_die;


# %g浮点数
printf "%g %g %g\n",5/2,51/17,51 ** 17;


# %d整数
printf "in %d days!\n",17.85;


# 指定宽度，如果数据太长，可以自动扩展
printf "%6d\n",42;
printf "%2d\n",2e3+1.95;


# %s字符串 
printf "%10s\n","wilma";


# 宽度为负数，向左对齐，适用上面的各种转换
printf "%-15s\n","flintsone";


# %f浮点数四舍五入
printf "%12f\n",6*7+2/3;
printf "%12.3f\n",6*7+2/3;
printf "%12.0f\n",6*7+2/3;


# 输出百分号，用%%
printf "monthly interest rate: %.2f%%\n",5.25/12;
[root@mysql1 perl]# ./test1.pl   
hello, gw; your password expires in 36500 days!
2.5 3 1.0683e+29
in 17 days!
    42
2001
     wilma
flintsone      
   42.666667
      42.667
          43
monthly interest rate: 0.44%