?????????? ????????? - ??????????????? - /home/.cpan/build/YAML-LibYAML-v0.902.0-0/t/glob.t
???????
use FindBin '$Bin'; use lib $Bin; use TestYAMLTests tests => 2; no warnings 'once'; $main::G1 = "Hello"; is Dump(*G1), <<'...', "Dump a scalar glob"; --- !!perl/glob NAME: G1 PACKAGE: main SCALAR: Hello ... eval '@main::G1 = (1..3)'; is Dump(*G1), <<'...', "Add an array to the glob"; --- !!perl/glob ARRAY: - 1 - 2 - 3 NAME: G1 PACKAGE: main SCALAR: Hello ... exit; eval '@main::G1 = (1..3)'; my $g = *G1; is Dump(\$g), <<'...', "Ref to glob"; --- !!perl/ref =: !!perl/glob ... my $array = [\$g, \$g, \*G1]; is Dump($array), <<'...', "Globs and aliases"; --- - &1 !!perl/glob ARRAY: - 1 - 2 - 3 NAME: G1 PACKAGE: main SCALAR: Hello - *1 ...
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????