Fixed Date Labels

Build a deterministic month label from fixed scalar values.

fixed_date_labels.pl

use strict;
use warnings;

sub month_name {
    my ($month) = @_;
    return "Jan" if $month == 1;
    return "Dec" if $month == 12;
    return "Apr";
}

my $month = ;
my $day = 9;
my $label = sprintf("%s %02d, 2026", month_name($month), $day);

print "month=$month\n";
print "day=$day\n";
print "label=$label\n";

use strict;
use warnings;

sub month_name {
    my ($month) = @_;
    return "Jan" if $month == 1;
    return "Dec" if $month == 12;
    return "Apr";
}

my $month = ;
my $day = 9;
my $label = sprintf("%s %02d, 2026", month_name($month), $day);

print "month=$month\n";
print "day=$day\n";
print "label=$label\n";

use strict;
use warnings;

sub month_name {
    my ($month) = @_;
    return "Jan" if $month == 1;
    return "Dec" if $month == 12;
    return "Apr";
}

my $month = ;
my $day = 9;
my $label = sprintf("%s %02d, 2026", month_name($month), $day);

print "month=$month\n";
print "day=$day\n";
print "label=$label\n";

fixed-date-labels Fixed date labels avoid current-clock and locale dependencies.