初学perl,一个有关print的问题。

vim7

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

1^# vim7 发表于 2007-09-05 04:13

初学perl,一个有关print的问题。

在《perl语言入门》中有一道练习题，需要输入一个key，然后根据key判断对应该的value.
我在程序中这样写：

#!perl

%hash =
(
"fred" => "flintstone",
"arney" => "rubble",
"wilma" => "flintstone",
);

print "Please Enter the Name:";
$name = <STDIN>;
chomp($name);
if(exists $hash{$name})
{
print "$name is $hash{$name}";
}

然后执行时总是先出现空白，你输入key后，Please Enter the Name:才会出现。我现在想让程序一运行立马出现：Please Enter the Name:然后我再输入name,应该怎么改。还有为什么这段程序会这样？print要等输入name后才执行。
谢谢大家。

flw

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

2^# flw 发表于 2007-09-05 08:54

在程序开始处加上 $|=1
或者 print 的字符串末尾加上 "\n"

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

3^# windows.li 发表于 2007-09-05 12:42

"在程序开始处加上 $|=1"?
FLW老大,偶还没有尝试过这个方法,呵呵.能否给点"$|=1"的相关资料?偶在<perl入门第4版>上没有见到过啊,谢谢您!

hutule110

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

4^# hutule110 发表于 2007-09-05 14:12

$| 关闭缓冲区:当$|设置为真的时候,perl将关闭缓冲区,这意味这脚本的东西将立即出现在服务器上.(《perl技术内幕》)

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

5^# nkcsx 发表于 2007-09-05 14:48

QUOTE:

原帖由 windows.li 于 2007-9-5 13:42 发表
"在程序开始处加上 $|=1"?
FLW老大,偶还没有尝试过这个方法,呵呵.能否给点"$|=1"的相关资料?偶在[perl入门第4版]上没有见到过啊,谢谢您!

Learning Perl 第四版第79页（5.9末尾）的例子

[Copy to clipboard] [ - ]

CODE:

select LOG;
$| = 1; #don’t keep LOG entries sitting in the buffer
select STDOUT;
#...time passes, babies learn to work, tectonic plates shift, and then … .
print LOG “This gets written to the LOG at once!\n”

milkharbor

UID: 16969
帖子: 172
积分: 395
在线时间: 1 天 16 小时

6^# milkharbor 发表于 2007-09-05 17:47

可是这段代码没有问题啊，应该可以直接显示啊
而且我在自己的机器上试的时候就是一切正常啊
呵呵

dr609

UID: 9726
帖子: 112
积分: 257
在线时间: 17 小时

7^# dr609 发表于 2007-09-05 23:41

原来这样啊。

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

8^# perljoker 发表于 2007-09-06 09:36

我这里显示也是正常的，先出子句

hutule110

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

9^# hutule110 发表于 2007-09-06 10:15

QUOTE:

原帖由 perljoker 于 2007-9-6 09:36 发表
我这里显示也是正常的，先出子句

我的也是的,楼主能说明你的perl运行环境吗

vim7

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

10^# vim7 发表于 2007-09-06 14:13

我检查了一下，这可能和我的运行环境有关，我用的LINUX，用VIM写代码并在其中调试，
我在.vimrc文件里添加了以下内容：

"about perl program
“设置make调用的是perl命令
set makeprg=perl
"用<F9>保存并更新当前文件
map <F9> <ESC>:w<cr>:e %<cr>
”用<F10>来运行当前文件。
map <F10> :make %<cr>

这样当我写完代码后，按<F9>再按<F10>，就会出现这样的结果。
如果直接在终端执行不会出现这样结果。
按FLW的方法己经解决了，谢谢大家了。