用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - perl代码库

粘性小部件创建

2012-10-15 作者: 神马举报

[perl]代码库

#-----------------------------
print textfield ( "SEARCH" );
# previous SEARCH value is the default
#-----------------------------
# download the following standalone program
#!/usr/bin/perl -wT
# who.cgi - run who(1) on a user and format the results nicely

$ENV {IFS}='';
$ENV {PATH}='/bin:/usr/bin';

use CGI qw ( :standard );

# print search form
print header(), start_html ( "Query Users" ), h1 ( "Search" );
print start_form(), p ( "Which user?", textfield ( "WHO" ) );
submit(), end_form();

# print results of the query if we have someone to look for
$name = param ( "WHO" );
if ( $name )
{
	print h1 ( "Results" );
	$html = '';

# call who and build up text of response
	foreach ( `who` )
	{
		next unless /^$name\s/o;
# only lines matching $name
		s/&/&
		/g;
# escape HTML
		s/</&lt;
		/g;
		s/>/&gt;
		/g;
		$html .= $_;
	}
# nice message if we didn't find anyone by that name
	$html = $html || "$name is not logged in";

	print pre($html);
}

print end_html();

#-----------------------------


网友评论    (发表评论)

共1 条评论 1/1页

发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...