#!/usr/bin/perl
use strict;
my $q=0;
our $a=1;
our $z=555;
{
my $q="null";
local $a="five";
print '$q = ',$q,"\t\$a = ",$a,"\t\$z = ",$z,"\n--\n";
}
print '$q = ',$q,"\t\$a = ",$a,"\t\$z = ",$z,"\n--\n";
Прочитай скрипт, запусти, помедитируй. Всё ли понятно?
[Perl]Archive::Zip使う前に読んでほしいエントリ
12 лет назад
Комментариев нет:
Отправить комментарий