Perlowo 2012-03-13

local_var_1_1.pl

foreach my $n (1..3) {
    say $n;
}
# a tu już $n nie działa

local_var_1_10.pl

use IO::File;
do {
    my $fh = IO::File->new('/etc/passwd');
    # coś tam robimy na pliku
}
# pierwszy jest już zamknięty
{
    my $fh = IO::File->new('/etc/groups');
    # coś tam robimy na drugim pliku
}

local_var_1_2.pl

if (my $value = calculate() > 0) {
    say "$value is positive";
} elsif($value < 0) {
    say "$value is negative";
} else {
    say "zero";
}
# tu też już nie ma $value

local_var_1_3.pl

sub f {
    $_ = shift;
}

my $_ = 1;
f(2);
say $f;  # będzie 1, bez "my" byłoby 2

local_var_1_4.sh

$ perl -Mstrict -E '{ my $n = 1 }; say $n; say "zdechnie wcześniej"'
Global symbol "$n" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.

local_var_1_5.pl

my $file = '/etc/passwd';
open my $fh, $file or die $!;
print <$fh>;

local_var_1_6.pl

my $a, $b = 1, 2;
# lokalne $a jest niezdefiniowane
# globalne $b = 1
# wartość 2 jest użyte w pustym kontekście 

local_var_1_7.pl

my ($a, $b) = (1, 2);

local_var_1_8.pl

sub pow2 {
    my ($n) = @_;
    return $n ** 2;
}

local_var_1_9.pl

use IO::File;
my $fh = IO::File->new('/etc/passwd');
# coś tam robimy na pliku
my $fh = IO::File->new('/etc/groups');
# coś tam robimy na drugim pliku
# ale pierwszy jest wciąż niezamknięty!

start.pl

#!/usr/bin/perl
use Modern::Perl;
say foreach qw(3 2 1 start!);