PerlGtk.pl

 
################################################
#Program napisany na potrzeby portalu perlgtk.pl
#Programował wrares
#Licencja Perla lub GPL
#2009/03/16
################################################
#!/usr/bin/perl -w

#Deklaracja modułów 
use strict;
use warnings;

#Deklaracja zmiennych oraz zerowanie 
my (@dni, @niedziela, $niedziela) = ();

#Teraz wpiszmy do tablicy wszystkie numery dni z miesiąca operatorem zakresu  
@dni = 1..31;

#Najprostszy sprawdzian funkcją print
print "@dni";  #(1)

##################################################
#Teraz użyjemy funkcji grep do wyciągania numerów dni które
#spełniają kryterium niedzieli
##################################################

@niedziela = grep {
        
     if ($_ =~ /4$/) {
           
        $_;                        
    }
        
} @dni;

print "@niedziela"; #(2)

$niedziela = @niedziela;

print $niedziela; #(3)

#################################
#A teraz zastosujemy funkcję map
#################################

@niedziela = map {
        
     if ($_ =~ /4$/) {
           
        $_;                        
    }
        
} @dni;

print "@niedziela"; #(4)

$niedziela = @niedziela;

print $niedziela; #(5)