全局变量到底怎么用? 真晕了,perl神经病

y6cmE

UID: 17426
帖子: 10
积分: 23
在线时间: 10 分钟

11^# y6cmE 发表于 2007-04-27 20:09

[Copy to clipboard] [ - ]

CODE:

### aaa.pl
$aa = 'Hello';
$bb = 'world';
$cc = 'Hello c';
1;
### bbb.pl
require 'aaa.pl';
our $aa;
our $bb;
our $cc;

print $aa;
print $bb;
print $cc;

呵呵，$a与$b在 Perl 有妙用，测试程序最好不要用。

azhoulinux

UID: 17105
帖子: 1
积分: 2
在线时间: 10 分钟

12^# azhoulinux 发表于 2007-04-27 21:25

azhoulinux@azhou:/tmp$ cat a.pl b.pl
#!/usr/bin/perl

$a='aa';
$b='bb';
$c='cc';

#!/usr/bin/perl

require 'a.pl';

print $a;
print $b;
print $c;
azhoulinux@azhou:/tmp$ perl b.pl
aabbccazhoulinux@azhou:/tmp$

Osment

UID: 20892
帖子: 1
积分: 2
在线时间: 10 分钟

13^# Osment 发表于 2007-04-27 21:34

$a,$b算Perl的保留变量。。。。所以。。Perl 的确是“神经病”。

xki

UID: 9802
帖子: 74
积分: 170
在线时间: 7 小时

14^# xki 发表于 2007-04-28 09:56

因为你用了use strict
要么别用它，要么别用$a、$b

ghostsaint

UID: 6991
帖子: 186
积分: 427
在线时间: 1 天 23 小时

15^# ghostsaint 发表于 2007-04-28 10:22

谢谢大家, 学习了.

第一次知道Perl还有$a, $b 这么奇怪的保留变量

福瑞哈哥

UID: 28819
帖子: 3
积分: 6
在线时间: 10 分钟

16^# 福瑞哈哥发表于 2007-04-28 10:25

QUOTE:

原帖由 ghostsaint 于 2007-4-28 10:22 发表
谢谢大家, 学习了.

第一次知道Perl还有$a, $b 这么奇怪的保留变量

$a, $b只在几个有限的地方生效，你的无法打印$c跟这个无干啊。

shhgs

UID: 13488
帖子: 22
积分: 50
在线时间: 10 分钟

17^# shhgs 发表于 2007-04-28 12:42

sort { $a <=> $b } @arrays

damofeixue

UID: 35394
帖子: 14
积分: 32
在线时间: 10 分钟

18^# damofeixue 发表于 2007-04-30 09:23

$a $b确实属于保留变量，如楼上说贴，在sort hash的时候也有效。

Perl语言入门－第四版，书不错，系统看看吧～

Perl小手

UID: 42937
帖子: 123
积分: 282
在线时间: 20 小时

19^# Perl小手发表于 2007-04-30 09:59

错误提示要求requires explicit package name,
你就 explicit package name即可啊.perl可是好东西.

cat set.pl
#!/usr/bin/perl
package mypack;
$a = "Hello";
$b = "world";
$c = "Hello c";

cat call.pl
#!/usr/bin/perl
use strict;
require "set.pl";
print "$mypack::a\n";
print "$mypack::b\n";
print "$mypack::c\n";

dbwyl

UID: 26113
帖子: 2
积分: 4
在线时间: 10 分钟

20^# dbwyl 发表于 2007-04-30 11:28

#!/usr/bin/perl
use strict;
require "set.pl";

print "dd=$main::aa\n";
print "$main::bb\n";
print "$main::cc\n";