Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/cgi-bin/Japan/Theme/bearth/bin/adddate.pl

Perl Script | 2017-09-21 | 614b | 33 lines

#!/usr/local/bin/perl

$be_font_dir = '.' unless $be_font_dir = $ENV{'BE_FONT_DIR'};

$char{'0'} = '0.pnm';
$char{'1'} = '1.pnm';
$char{'2'} = '2.pnm';
$char{'3'} = '3.pnm';
$char{'4'} = '4.pnm';
$char{'5'} = '5.pnm';
$char{'6'} = '6.pnm';
$char{'7'} = '7.pnm';
$char{'8'} = '8.pnm';
$char{'9'} = '9.pnm';
$char{'/'} = 'slash.pnm';
$char{':'} = 'colon.pnm';
$char{'.'} = 'dot.pnm';
$char{'-'} = 'hyfun.pnm';
$char{'('} = 'oblace.pnm';
$char{')'} = 'cblace.pnm';

while(<>) {
    if (/^DisplayDate\s*=\s*(.*)$/) {
    $date = $1;
    last;
    }
}

foreach $c (split(//, $date)) {
    print "$be_font_dir/$char{$c} ";
}