user-pic

求解释 简单perl 脚本

Vote 0 Votes

求解释 简单perl 脚本
#!/usr/bin/perl
$|=1;
my %logged_in;

while(<>) {
 if (!defined($logged_in{$_})) {
   $logged_in{$_} = 1;
   print "ERR\n";
 } else {
   print "OK\n";
 }
}
怎么看到里面的内容?

1 Reply

| Add a Reply

Add a Reply

Forum Groups

Good Perl Books

Perl 學習手札

作者:簡信昌

Perl 學習手札 , 一本优秀的中文Perl在线学习资料。

Perl 程序讨论区

12 50

Last Topic: [注意]本区文章归档区 by 路杨 on Oct 16, 2006

事物处理及其他

113 1410

Last Topic: 踩个脚印 by 眼睛oo on Dec 4, 2010

测试私密区

测试私密区

18 88

Notice: 用于测试程序或者不可告人之秘密。不要问我要密码哦。。[此为原LB_ES论坛系统保留项,只限原有权限朋友进入,不再接受注册]

OpenID accepted here Learn more about OpenID