ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/sprintf

Text File | 1992-10-18 | 116 b | 5 lines

$width = 20; $value = sin(1.0);
foreach $precision (0..($width-2)) {
    printf "%${width}.${precision}f\n", $value;
}