DateTime-Calendar-FrenchRevolutionary
3 results

 view release on metacpan or  search on metacpan

eg/prt_cal  view on Meta::CPAN 


sub prt_cal {
  my $year   = $_[0];           # French revolutionary year
  my $year_1 = $year + 1791;    # first corresponding Gregorian year
  my $year_2 = $year + 1792;    # second corresponding Gregorian year

  # HTML header
  print <<"EOT";
<html>
<head><title>$labels{calendar}</title>
<meta http-equiv='content-type' content='Text/html; charset=utf-8' />
</head>
<body>
EOT
  print qq(<p align='center'><img src='$pict'>\n) if $pict;
  # Column headers for the first six months
  print <<"EOT";
<h2 align='center'>@{[ Roman $year ]}</h2>
<h3 align='center'>$year_1-$year_2</h3>
<table border width='90%'>
<tr align='center'>

eg/result/cal229_en.html  view on Meta::CPAN 

<html>
<head><title>Calendar</title>
<meta http-equiv='content-type' content='Text/html; charset=utf-8' />
</head>
<body>
<h2 align='center'>CCXXIX</h2>
<h3 align='center'>2020-2021</h3>
<table border width='90%'>
<tr align='center'>
<td>Vendémiaire<br>Sep-Oct</td>
<td>Brumaire<br>Oct-Nov</td>
<td>Frimaire<br>Nov-Dec</td>
<td>Nivôse<br>Dec-Jan</td>

eg/result/cal229_fr.html  view on Meta::CPAN 

<html>
<head><title>Calendrier</title>
<meta http-equiv='content-type' content='Text/html; charset=utf-8' />
</head>
<body>
<h2 align='center'>CCXXIX</h2>
<h3 align='center'>2020-2021</h3>
<table border width='90%'>
<tr align='center'>
<td>Vendémiaire<br>sep-oct</td>
<td>Brumaire<br>oct-nov</td>
<td>Frimaire<br>nov-déc</td>
<td>Nivôse<br>déc-jan</td>



( run in 2.100 seconds using v1.01-cache-2.11-cpan-524268b4103 )