W
Size: a a a
W
W
YK
W
W
W
YK
W
YK
W
W
W
YK
W
W
И
#!/usr/bin/perlA.pm
use strict;
use warnings;
use A;
our $deb = 'test';
...
use strict;B.pm
use warnings;
use B;
print $main::deb;
use strict;Мне казалось, что когда-то такое встречал, но не могу вспомнить, что нужно сделать чтобы сразу $deb писать в пакетах. Или так нельзя и я перегрелся?))
use warnings;
print $main::deb;
P
P
P
И