[perl] dwie tablice przechowujące nazwy miesięcy i dni

Linux Opublikowano: 30/05/2009

O autorze

Jestem webmasterem/webdeveloperem
z pasji. Lubię to co robię i chcę dzielić się wiedzą z innymi osobami.
Specjalizuję się w technologiach związanymi z CSS, JS, PHP.

Napisz skrypt w języku Perl zawierający dwie tablice przechowujące odpowiednio nazwy miesięcy i ilości dni w miesiącach. Kod skryptu ma wypisać nazwy i ilości dni tych miesięcy, których długość nazwy jest większa niż 6.

#!/usr/bin/perl -w
 
@miesiace = (   "Styczeń",
                "Luty",
                "Marzec",
                "Kwiecień",
                "Maj",
                "Czerwiec",
                "Lipiec",
                "Sierpień",
                "Wrzesień",
                "Październik",
                "Listopad",
                "Grudzień"      );
 
@dni = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 
for($i = 0; $i < 12; $i++)
{
  if(length($miesiace[$i]) > 6)
  {
    print $miesiace[$i]. " - liczba dni: " .$dni[$i]. "n";
  }
}