28 lines
947 B
Perl
28 lines
947 B
Perl
#!/usr/bin/perl
|
|
use strict; use warnings;
|
|
|
|
## Printf: Fancy-schmancy printing
|
|
# Der sitter du med et digert desimaltall, og vil printe det ut med to
|
|
# desimaler. Printf to the rescue!
|
|
my $tall = 3.1415;
|
|
printf("pi: %.2f\n", $tall);
|
|
|
|
# Eller du har en masse tallverdier med ulik lengde, og vil høyurejustere:
|
|
my @tall = (3, 1337, 25, 254);
|
|
foreach my $tall (@tall) {
|
|
printf("tall: %4d\n", $tall); # juksa litt: hardkodet inn maksbredde fire
|
|
}
|
|
|
|
# Eller du vil printe ut et tall i hex, oktal og desimal, null-paddet til
|
|
# åtte sifre:
|
|
printf("hex: %08x %08o %08d\n", 255, 255, 255);
|
|
|
|
# Du kan også lagre resultatet i en annen variabel med sprintf:
|
|
my $leet = sprintf("%03.2f", 13.37890);
|
|
print $leet, "\n";
|
|
# Dette er litt for omfattende til at vi kan herje veldig mye med det.
|
|
# "perldoc -f sprintf" har mer info.
|
|
#
|
|
# Pass på! Det er lurere å bruke print om du ikke trenger ekstra formatering!
|
|
# Printf er tregere, og det er lettere å gjøre feil.
|