#!/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.