#!/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使う前に読んでほしいエントリ
11 лет назад
Комментариев нет:
Отправить комментарий