求书一本《Perl 语言入门（第三版）》

jayeley

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

11^# jayeley 发表于 2008-11-20 19:56

#!usr/local/bin/perl

use strict;
use warnings;

test('', 'test1');
test('', 'test2');

sub test{
my ($p1, $p2) = @_;

my $address_txt = "p1\n" if($p1);
$address_txt .= "$p2\n" if($p2);

print "$address_txt\n";
}

上面的运行结果大家猜猜是什么？为什么？

tmp

UID: 34600
帖子: 13
积分: 29
在线时间: 10 分钟

12^# tmp 发表于 2008-11-21 09:06

额, 日, 为什么?

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

13^# MMMIX 发表于 2008-11-21 09:56

QUOTE:

原帖由 ynchnluiti 于 2008-11-20 18:19 发表
PERLDOC_PAGER='more +/sort' perldoc perlvar
PERLDOC_PAGER='less -iRs +/sort' perldoc perlvar

(谁知道怎么直接搜$a )

perldoc 会直接调用你设置的 pager，一般为 more，可通过环境变量 PAGER 设置。你在你所使用的 pager 里面怎么搜索，在 perldoc 里面就可以怎么搜索。

详见 perldoc perldoc

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

14^# MMMIX 发表于 2008-11-21 10:08

QUOTE:

原帖由 jayeley 于 2008-11-20 19:56 发表
my $address_txt = "p1\n" if($p1);

这个语句的行为是未定义的，详见 perlsyn 中的 Statement Modifiers

tmp

UID: 34600
帖子: 13
积分: 29
在线时间: 10 分钟

15^# tmp 发表于 2008-11-21 11:43

o, 应该这样 0_0

[Copy to clipboard] [ - ]

CODE:

my $address_txt;
$address_txt = "p1\n" if($p1);
$address_txt .= "$p2\n" if($p2);

jayeley

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

16^# jayeley 发表于 2008-11-21 14:18

QUOTE:

原帖由 tmp 于 2008-11-21 11:43 发表
o, 应该这样 0_0

my $address_txt;
$address_txt = "p1\n" if($p1);
$address_txt .= "$p2\n" if($p2);

我知道你这样可以，我是问我那样为什么会出问题！
我要找到问题的本质，而不是仅仅解决问题！

tmp

UID: 34600
帖子: 13
积分: 29
在线时间: 10 分钟

17^# tmp 发表于 2008-11-21 15:44

10楼大侠说了