Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #
- use strict;
- use warnings;
- use Time::Piece;
- use Time::Seconds;
- if ($#ARGV != 0) {
- print "usage: imgtemplate daynumber\n";
- exit;
- }
- my $day = $ARGV[0];
- my $imgnumber = 97 + 24*$day;
- my $timeval = -24 + 24*$day;
- my $i=0;
- my $datetime = Time::Piece->strptime("2013-03-24", "%Y-%m-%d");
- $datetime += ONE_DAY*$day;
- print "====Day $day, ", $datetime->fullday, ", ", $datetime->fullmonth, " ", $datetime->mday, ", ", $datetime->year, "====\n";
- print "{| class=\"wikitable plainlinks table-padding mw-collapsible mw-collapsed\"\n";
- print "|-\n";
- print "!Image\n";
- print "!Time\n";
- print "!Original image hash\n";
- print "|-\n";
- for ($i=0; $i<=23; $i++)
- {
- if($i < 10)
- {
- print "|[[Media:time", $imgnumber, ".png|", $timeval, ":00]]||", $day, "/0", $i, ":00||\n";
- }
- else
- {
- print "|[[Media:time", $imgnumber, ".png|", $timeval, ":00]]||", $day, "/", $i, ":00||\n";
- }
- print "|-\n";
- $imgnumber++;
- $timeval++;
- }
- print "|}\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement