大家来说说 $test[1] $test-&gt;[1] $$test[1]

kinpoo

UID: 42055
帖子: 166
积分: 381
在线时间: 1 天 13 小时

1^# kinpoo 发表于 2008-01-22 22:14

大家来说说 $test[1] $test-&gt;[1] $$test[1]

仅仅是讨论

不讨论实用不实用

不与其他语言争好坏

此段代码纯属本人无聊之作不适合实际应用

有兴趣的随便说说可先不运行自己谢谢结果先

#! /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;

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-01-22 22:45

我习惯用 ->，不习惯用 ${ ... }。

duhast

UID: 4411
帖子: 83
积分: 190
在线时间: 9 小时

3^# duhast 发表于 2008-01-22 23:47

you are killing yourself

使用->

hutule110

UID: 7208
帖子: 177
积分: 407
在线时间: 1 天 18 小时

4^# hutule110 发表于 2008-01-23 09:03

我直接晕了

kinpoo

UID: 42055
帖子: 166
积分: 381
在线时间: 1 天 13 小时

5^# kinpoo 发表于 2008-01-23 09:10

$test[1]
$$test[1]
感觉比较混乱一不小心就结合错了~

orangetouch

UID: 41428
帖子: 181
积分: 416
在线时间: 1 天 20 小时

6^# orangetouch 发表于 2008-01-23 09:34

QUOTE:

原帖由 kinpoo 于 2008-1-23 09:10 发表
$test[1]
$$test[1]
感觉比较混乱一不小心就结合错了~

嗯,所以我都会回上{}
${$test[1]}

kinpoo

UID: 42055
帖子: 166
积分: 381
在线时间: 1 天 13 小时

7^# kinpoo 发表于 2008-01-23 09:39

QUOTE:

原帖由 orangetouch 于 2008-1-23 09:34 发表

嗯,所以我都会回上{}
${$test[1]}

加上你就错了

大家来说说 $test[1] $test-&amp;gt;[1] $$test[1]

大家来说说 $test[1] $test-&amp;gt;[1] $$test[1]

大家来说说 $test[1] $test->[1] $$test[1]

大家来说说 $test[1] $test->[1] $$test[1]