#!/usr/bin/env perl
use utf8;
use Utils;
use strict;
use warnings;

MAIN:
{
	binmode(STDOUT, ":utf8");
	binmode(STDERR, ":utf8");
	binmode(STDIN, ":utf8");
	my $first = "First";
	my $middle = "Middle";
	my $lastname = "Last";
	my $left = "Left";
	my $center = "Center";
	my $right = "Right";
	my $favorite = "kerfuffle";
	my $i1 = 3261963;
	my $i2 = -42;
	my $fp1 = 3.1415926;
	my $fp2 = 2.99792458e9;
	my $fp3 = -1.234e-4;

	my $s = Utils::messageFormat("\{2\}, \{0\} \{1\}", $first, $middle, $lastname);
	print $s, "\n";
	$s = Utils::messageFormat("\{0\} \{1\} \{2\}", $left, $center, $right);
	print $s, "\n";
	$s = Utils::messageFormat("Favorite number is \{0\}", $i1);
	print $s, "\n";
	$s = Utils::messageFormat("Favorite FP is \{0\}", $fp1);
	print $s, "\n";

	my $c = ord(substr($favorite, 0, 1));
	print Utils::messageFormat("Favorite c is \{0:c\}", $c), "\n";
	print Utils::messageFormat("Favorite 11c is   |\{0:11c\}|", $c), "\n";
	print Utils::messageFormat("Favorite <11c is  |\{0:<11c\}|", $c), "\n";
	print Utils::messageFormat("Favorite ^11c is  |\{0:^11c\}|", $c), "\n";
	print Utils::messageFormat("Favorite >11c is  |\{0:>11c\}|", $c), "\n";
	print Utils::messageFormat("Favorite .<11c is |\{0:.<11c\}|", $c), "\n";
	print Utils::messageFormat("Favorite _^11c is |\{0:_^11c\}|", $c), "\n";
	print Utils::messageFormat("Favorite  >11c is |\{0: >11c\}|", $c), "\n";

	$c = 0x1F92F;
	print Utils::messageFormat("Favorite emoji c is \{0:c\}", $c), "\n";

	print Utils::messageFormat("Favorite s is \{0:s\}", $favorite), "\n";
	print Utils::messageFormat("Favorite .2s is \{0:.2s\}", $favorite), "\n";
	print Utils::messageFormat("Favorite 11s is     |\{0:11s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite 11.2s is   |\{0:11.2s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite <11.2s is  |\{0:<11.2s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite ^11.2s is  |\{0:^11.2s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite >11.2s is  |\{0:>11.2s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite .<11.2s is |\{0:.<11.2s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite *^11.2s is |\{0:*^11.2s\}|", $favorite), "\n";
	print Utils::messageFormat("Favorite ->11.2s is |\{0:->11.2s\}|", $favorite), "\n";

	print Utils::messageFormat("Favorite d is \{0:d\}", $i1), "\n";
	print Utils::messageFormat("Another d is \{0:d\}", $i2), "\n";
	print Utils::messageFormat("Favorite b is \{0:b\}", $i1), "\n";
	print Utils::messageFormat("Another B is \{0:b\}", $i2), "\n";
	print Utils::messageFormat("Favorite o is \{0:o\}", $i1), "\n";
	print Utils::messageFormat("Another o is \{0:o\}", $i2), "\n";
	print Utils::messageFormat("Favorite x is \{0:x\}", $i1), "\n";
	print Utils::messageFormat("Another X is \{0:X\}", $i2), "\n";
	print Utils::messageFormat("Favorite #b is \{0:#b\}", $i1), "\n";
	print Utils::messageFormat("Another #B is \{0:#b\}", $i2), "\n";
	print Utils::messageFormat("Favorite #o is \{0:#o\}", $i1), "\n";
	print Utils::messageFormat("Another #o is \{0:#o\}", $i2), "\n";
	print Utils::messageFormat("Favorite #x is \{0:#x\}", $i1), "\n";
	print Utils::messageFormat("Another #X is \{0:#X\}", $i2), "\n";
	print Utils::messageFormat("Favorite 11d is   |\{0:11d\}|", $i1), "\n";
	print Utils::messageFormat("Favorite +11d is  |\{0:+11d\}|", $i1), "\n";
	print Utils::messageFormat("Favorite 011d is  |\{0:011d\}|", $i1), "\n";
	print Utils::messageFormat("Favorite 011x is  |\{0:011x\}|", $i1), "\n";
	print Utils::messageFormat("Favorite #011x is |\{0:#011x\}|", $i1), "\n";

	print Utils::messageFormat("Favorite f is \{0:f\}", $fp1), "\n";
	print Utils::messageFormat("Another f is \{0:f\}", $fp2), "\n";
	print Utils::messageFormat("One more f is \{0:f\}", $fp3), "\n";
	print Utils::messageFormat("Favorite e is \{0:e\}", $fp1), "\n";
	print Utils::messageFormat("Another e is \{0:e\}", $fp2), "\n";
	print Utils::messageFormat("One more e is \{0:e\}", $fp3), "\n";
	print Utils::messageFormat("Favorite g is \{0:g\}", $fp1), "\n";
	print Utils::messageFormat("Another g is \{0:g\}", $fp2), "\n";
	print Utils::messageFormat("One more g is \{0:g\}", $fp3), "\n";
	print Utils::messageFormat("Favorite .2f is \{0:.2f\}", $fp1), "\n";
	print Utils::messageFormat("Another .2f is \{0:.2f\}", $fp2), "\n";
	print Utils::messageFormat("One more .2f is \{0:.2f\}", $fp3), "\n";
	print Utils::messageFormat("Favorite .2e is \{0:.2e\}", $fp1), "\n";
	print Utils::messageFormat("Another .2e is \{0:.2e\}", $fp2), "\n";
	print Utils::messageFormat("One more .2e is \{0:.2e\}", $fp3), "\n";
	print Utils::messageFormat("Favorite .2g is \{0:.2g\}", $fp1), "\n";
	print Utils::messageFormat("Another .2g is \{0:.2g\}", $fp2), "\n";
	print Utils::messageFormat("One more .2g is \{0:.2g\}", $fp3), "\n";
	print Utils::messageFormat("Favorite 15.2f is |\{0:15.2f\}|", $fp1), "\n";
	print Utils::messageFormat("Another 15.2e is  |\{0:15.2e\}|", $fp2), "\n";
	print Utils::messageFormat("One more 15.2g is |\{0:15.2g\}|", $fp3), "\n";
}