- 论坛徽章:
- 0
|
仅仅是讨论
不讨论实用不实用
不与其他语言争好坏
此段代码纯属本人无聊之作 不适合实际应用
有兴趣的随便说说 可先不运行 自己谢谢结果先
#! /usr/bin/perl
use strict;
use warnings;
my $EOL = "\x0A";
my @test = (1..3);
my $test = [4..6];
print $test[1], $EOL;
print $test->[1], $EOL;
print $$test[1], $EOL;
my @test1 = ([{0,[12,[34]]}]);
my $test1 = [[{0,[56,[78]]}]];
print $test1[0]->[0]->{0}->[1]->[0], $EOL;
print $test1->[0]->[0]->{0}->[1]->[0], $EOL;
print $$test1[0]->[0]->{0}->[1]->[0], $EOL;
print ${${${${$test1[0]}[0]}{0}}[1]}[0], $EOL;
print ${${${$$test1[0][0]}{0}}[1]}[0], $EOL;
print ${${${${$$test1[0]}[0]}{0}}[1]}[0], $EOL; |
[ 本帖最后由 kinpoo 于 2008-1-22 22:17 编辑 ] |
|