#!/usr/bin/perl
# 216 Pad a string on both sides
sub center {
my ($s, $m, $c) = @_;
$c //= ' ';
my $r = $c x $m;
my $p = int($m/2 - $slen/2); }
printf "width %3d: %s\n", 10, center
("abcd",10,"X"); # the result should be "XXXabcdXXX".
foreach my $m ( 0..12 ) {
printf "width %3d: %s\n", $m, center
('xyz', $m, '-'); }
printf "width %3d: %s\n", 12, center
('xyz', 12) . '<-- c defaults to space';
IyEvdXNyL2Jpbi9wZXJsCgojIDIxNiBQYWQgYSBzdHJpbmcgb24gYm90aCBzaWRlcwoKc3ViIGNlbnRlciB7CiAgICBteSAoJHMsICRtLCAkYykgPSBAXzsKICAgIG15ICRzbGVuID0gbGVuZ3RoICRzOwogICAgcmV0dXJuICRzIGlmICRzbGVuID4gJG07CiAgICAkYyAvLz0gJyAnOwogICAgbXkgJHIgPSAkYyB4ICRtOwogICAgbXkgJHAgPSBpbnQoJG0vMiAtICRzbGVuLzIpOwogICAgc3Vic3RyKCRyLCAkcCwgJHNsZW4sICRzKTsKICAgIHJldHVybiAkcjsgICAgCn0KCnByaW50ZiAid2lkdGggJTNkOiAlc1xuIiwgMTAsIGNlbnRlcigiYWJjZCIsMTAsIlgiKTsKIyB0aGUgcmVzdWx0IHNob3VsZCBiZSAiWFhYYWJjZFhYWCIuCgpmb3JlYWNoIG15ICRtICggMC4uMTIgKSB7CiAgICBwcmludGYgIndpZHRoICUzZDogJXNcbiIsICRtLCBjZW50ZXIoJ3h5eicsICRtLCAnLScpOyAgICAKfQoKcHJpbnRmICJ3aWR0aCAlM2Q6ICVzXG4iLCAxMiwgY2VudGVyKCd4eXonLCAxMikgLiAnPC0tIGMgZGVmYXVsdHMgdG8gc3BhY2UnOwo=