1 2 3 456 7 8 9 10 ... 11 / 11 页下一页

ChinaUnix技术实践之三——Perl编程大赛 [复制链接]

yifangyou

小富即安

论坛徽章:: 27

41楼 [报告]

发表于 2011-02-26 23:33 |只看该作者

本帖最后由 yifangyou 于 2011-02-27 00:00 编辑

####################################################
#系统环境：windows xp sp3,centos 5
#编译环境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
#执行: perl 5.pl "E:\tmp" 或者 perl 5.pl
#题目：
#5. 用最短和优的perl代码对当前目录下的文件和子目录按修改时间进行排序。
#
####################################################
#全局结果集
our %files;
#读取目录名
my $inputdir=$ARGV[0];
if($inputdir eq ""){
$inputdir=".";
}
#当前目录下的文件和子目录按修改时间进行排序
get_sub_files($inputdir);
#对散列的修改时间字段进行排序
printf "%10s %s\n", $files{$_},$_ foreach sort {$files{$a} <=> $files{$b};} keys %files;
#my @f =sort {$files{$a} <=> $files{$b};} keys %files;
#foreach my $f ( @f ){
# printf "%10s %s\n", $f,$files{$f};
#}
#递归获取该目录下的所有目录和文件，以及对应的修改时间
sub get_sub_files{
my $dir = shift @_;
#打开目录
opendir(DIR,"$dir") || die "Error in opening dir $dir\n";
my @files =readdir(DIR);
closedir(DIR);
#遍历所有文件和目录
for $file (@files){
#排除当前遍历的目录和上一级的目录
if(!($file eq "" || $file eq "." || $file eq "..")){
my $nextfile="$dir/$file";
$files{$nextfile}=(stat($file))[9];
#若是目录则递归变量下一级
if(-d $nextfile){
get_sub_files($nextfile);
}
}
}
}

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

yifangyou

小富即安

论坛徽章:: 27

42楼 [报告]

发表于 2011-02-26 23:36 |只看该作者

本帖最后由 yifangyou 于 2011-02-26 23:58 编辑

####################################################
#系统环境：windows xp sp3,centos 5
#编译环境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
#执行: perl 6.pl 1,2,3,5,6,7,8,24,25,26,2
#题目：
#6.传入一串数字并返回所有大于平均值的数字。
#
####################################################
sub get_big_avg {
my $total = 0;
#计算总和
for my $n (@_) {
$total+=$n;
}
my $num=@_;
#计算平均值
my $avg=$total/$num;
@result=();
#比较获取大于平均值的数字
for my $n (@_) {
if($n > $avg){
push(@result,$n);
}
}
return @result;
}
#例子
#print "result:".join(",",join_int(1,2,3,5,6,7,8))."\n";
#判断输入合法性
if(!($ARGV[0]=~/(\d+,)*\d+/)){
die("please add a number list param like 1,2,3,5,6,7,8\n");
}
#分割成数组
@input_list=split(/,/,$ARGV[0]);
print "input :".join(",",@input_list)."\n";
print "result:".join(",",get_big_avg(@input_list))."\n";

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

yifangyou

小富即安

论坛徽章:: 27

43楼 [报告]

发表于 2011-02-26 23:37 |只看该作者

本帖最后由 yifangyou 于 2011-02-27 16:22 编辑

####################################################
#系统环境：centos 5
#编译环境：v5.8.8 built for i386-linux-thread-multi
#执行: perl 7.pl
#题目：
#7.让用户不断猜测范围从1到100的秘密数字，直到猜中为止。程序应该以魔术公式lnt（1+rand 100）来随机产生秘密数字。
#当用户猜错时，程序应相应“too high”或者“too low”。
#如果用户quit或者exit或者键入一个空白行程序就中止。当然如果用户猜到了，程序也应该中止。
#
####################################################
$min_number=1;
$max_number=100;
#获取随机数
$rand_number=int($min_number+rand($max_number));
print "program have create a randrom num between $min_number and $max_number,enter a number to guess it\n";
print "or enter 'quit' or 'exit' or blank line to exit\n";
$guess_time=0;
while(<STDIN>){
#获取输入并转小写
$enter_str = lc($_);
#去掉空白字符
$enter_str =~ s/\s//g;
#判断是否是整数
if(!($enter_str=~/\d+/)){
#判断是否退出
if($enter_str eq "exit" || $enter_str eq "quit" || $enter_str eq ""){
#退出
print("sorry,you lose $guess_time times\n");
die("exit ok\n");
}
print("please enter the number between $min_number and $max_number or enter 'quit' or 'exit' or blank line to exit\n");
}else{
$guess_time++;
#判断是否相等
if($enter_str==$rand_number){
#相等则退出
print("you win the number is $rand_number,you have guess $guess_time times\n");
die("exit ok\n");
}else{
#提示输入的是大还是小
if($enter_str > $rand_number){
print("too high,you lose $guess_time times\n");
}else{
print("too low,you lose $guess_time times\n");
}
}
}
}

复制代码

第8题

#!/usr/bin/perl
####################################################
#系统环境：centos 5
#编译环境：perl, v5.8.8 built for i386-linux-thread-multi
#执行: perl 8.pl 或者 perl 8.pl 1234 (端口)
#题目：
#8. 写一个简单的TCP Echo Server，在linux/unix环境运行，侦听在特定端口，接受用户的网络输入，并返回同样的数据给对方，能接受quit命令。
#基本要求：
#（1）无阻塞IO。
#（2）daemon方式运行。
#（3）能接受kill -HUP重启信号
# 发送hup信号命令：kill -s hup 进程号
#
####################################################
#use POSIX ();
use FindBin ();
use File::Basename ();
use File::Spec::Functions;
use IO::Socket::INET;
use IO::Select;
use Carp;
our $server;
our $server_port=5555;#默认端口
our $zombies = 0;
our $script = File::Basename::basename($0);
our $logfile="/tmp/8.log";
our $read_handles;
# 获取重新启动命令
our $SELF = "perl ".catfile $FindBin::Bin, $script;
our $isrestart=0; #标识是否重新启动
$SIG{CHLD} = sub {$zombies++};
$SIG{HUP} = sub {
logs("get HUP,restart server");
$isrestart=1;
stopServer();
};
#从参数获取端口
if(isPort($ARGV[0])){
$server_port=$ARGV[0];
}
#deamon方式
daemonize();
#启动服务
startServer();
exit;
#函数部分-----------------------------------------------
sub isPort{
my $port=shift(@_);
if($port=~/d+/){
#判断端口合法性，必须是整数，并且大于1024
if($port > 1024){
return $port;
}
}
return 0;
}
#记录日志
sub logs{
my $msg=shift;
open(LOGFILE,">>$logfile") or die("cannot open $logfile");
my($sec,$min,$hour,$mday,$mon,$year)=localtime();
print LOGFILE sprintf("%04d-%02d-%02d %02d:%02d:%02d ",($year< 2000?($year+1900):$year),($mon+1),$mday,$hour,$min,$sec),$msg,"\n";
close(LOGFILE);
}
#deamon方式
sub daemonize {
chdir '/' or croak "Can't chdir to /: $!";
open STDIN, '/dev/null' or croak "Can't read /dev/null: $!";
open STDOUT, '>/dev/null' or croak "Can't write to /dev/null: $!";
defined(my $pid = fork) or croak "Can't fork: $!";
exit if $pid;
setsid or croak "Can't start a new session: $!";
open STDERR, '>&STDOUT' or croak "Can't dup stdout: $!";
}
# 停止或者重新启动server
sub stopServer{
$server->close();
$read_handles->remove($server);
# 清除所有的客户端
foreach $fd ($read_handles->handles){
$read_handles->remove($fd);
close $fd;
}
logs("server shutdown");
# 判断是否重新启动
if($isrestart==1){
$isrestart=0;
# 重新启动
logs($SELF, @ARGV);
exec($SELF, @ARGV) or die "Couldn't restart: $!\n";
}
exit; # 退出
}
# 启动server
sub startServer{
# 创建套接字
$server = IO::Socket::INET->new(
LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10,# 或者 SOMAXCONN
Blocking => 0)# 设置非阻塞
or die "Couldn't be a tcp server on port $server_port: $!\n";
$read_handles = IO::Select->new();
$read_handles->add($server);
local $| = 1;
logs("server start ok binding port $server_port\n");
my $fds;
while (1) {
($fds) =IO::Select->select($read_handles, undef, undef,0 );
foreach $fd ( @$fds ){
if( $fd== $server ){
if($server->opened){
#server收到新的客户端连接
my $client = $server->accept();
$read_handles->add($client);
}else{
#server被关闭了
stopServer();
last;
}
}else{
$msg = <$fd>;
if($msg){
#获取输入并转小写
$enter_str = lc($msg);
#去掉回车
chomp $enter_str;
# 判断是否退出
if($enter_str eq "quit"){
logs("server quit");
stopServer();
}
$fd->print($msg);
}else{
# client has finished/closed
$read_handles->remove($fd);
close $fd;
}
}
}
}
stopServer();
}

复制代码

####################################################
#系统环境：centos 5
#编译环境：perl, v5.8.8 built for i386-linux-thread-multi
#执行: perl 8_client.pl 或者 perl 8_client.pl 127.0.0.1 5555
#题目：
#测试题目8的客户端，输入end:退出客户端；输入quit：发quit命令给服务端并退出客户端；
#
####################################################
use IO::Socket::INET;
our $server_ip="127.0.0.1"; #默认IP
our $server_port=5555; #默认端口
$msg="Why don't you call me anymore?\n";
#从参数获取server的ip
if(isIP($ARGV[0])){
$server_ip=$ARGV[0];
}
#从参数获取端口
if(isPort($ARGV[1])){
$server_port=$ARGV[1];
}
$socket = IO::Socket::INET->new(PeerAddr =>$server_ip,
PeerPort => $server_port,
Proto => "tcp",
Type => SOCK_STREAM,
Timeout=>1)
or die "Couldn't connect to $server_ip:$server_port: $!\n";
$socket->autoflush(1);
print "enter something to send to server,enter 'quit' to shutdown server or enter 'end' to quit client\n";
# 通过套接字发送某些东西，
while(<STDIN>){
#获取输入并转小写
$enter_str = lc($_);
#去掉回车
chomp $enter_str;
#判断是否退出
if($enter_str eq "end" || $enter_str eq "quit" ){
#退出客户端
print "exit ok\n";
if($enter_str eq "quit"){
$socket->print($_);
print "send ok:$_\n";
}
last;
}
$socket->print($_);
print "send ok:$_\n";
# 读取远端响应
$answer = <$socket>;
if($answer eq ""){
last;
}
print "answer:$answer\n";
}
# 然后在结束之后终止联接。
close($socket);
sub isPort{
my $port=shift(@_);
if($port=~/d+/){
#判断输入合法性
if($port > 1024){
return $port;
}
}
return 0;
}
sub isIP {
my $ip=shift(@_);
if($ip=~/d{3}\.d{3}\.d{3}\.d{3}/){
my @ipn=split(".",$ip);
for my $n (@ipn){
if($n > 255){
return 0;
}
}
}else{
return 0;
}
return 1;
}

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

rubylc_unix

腰缠万贯

论坛徽章:: 1

44楼 [报告]

发表于 2011-02-27 09:20 |只看该作者

6

#!/usr/bin/perl -w
my $sum = 0;
my $average;
foreach(@ARGV)
{
$sum += $_;
}
$average = $sum / @ARGV;
foreach(@ARGV)
{
if($_ > $average)
{
print $_;
print "\n";
}
}

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

guap514

丰衣足食

论坛徽章:: 0

45楼 [报告]

发表于 2011-02-27 09:49 |只看该作者

第一题

sub func{
$x = ...
$x;
}

复制代码

其他的太难不会

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

rubylc_unix

腰缠万贯

论坛徽章:: 1

46楼 [报告]

发表于 2011-02-27 10:20 |只看该作者

7.

#!/usr/bin/perl -w
my $key = int(1 + rand 100);
print"please input a number\n";
while(my $guess = <STDIN>)
{
chomp ($guess);
if( $guess eq "quit" || $guess eq "exit" || $guess =~/\s+/ )
{
exit(1);
}
elsif($guess > $key)
{
print "too high,please input again\n";
}
elsif($guess < $key)
{
print "too low,please input again\n";
}
elsif($guess == $key)
{
print "you got it,bye!\n";
exit;
}
}

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

rubylc_unix

腰缠万贯

论坛徽章:: 1

47楼 [报告]

发表于 2011-02-27 10:51 |只看该作者

本帖最后由 rubylc_unix 于 2011-02-27 11:00 编辑

5.

#!/usr/bin/perl -w
print for ( system "tree -t");

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lkk2003rty

巨富豪门

论坛徽章:: 0

48楼 [报告]

发表于 2011-02-27 22:57 |只看该作者

本帖最后由 lkk2003rty 于 2011-03-14 15:14 编辑

1. 请正确的精简如下代码。

sub myfunc {
# $x = ...;

if ( $x ) {
return 1;
} else {
return;
}
}
答

sub myfunc{
$x?1:return;
}

复制代码

2. $x=()结果是什么？列表位于标量上下文是什么情况？()是不是用来创建空的list？请解释原因。
$x是undef
比如$x = (1, 2, 3)会使x被赋值为列表最后一个元素3
是的，可以用诸如@x = ();这样的语句来清空数组
3. 1,2,3,5,6,7,8 如何合并成1-3,5-8？

#!/usr/bin/perl -w
my @arr = (1, 2, 3, 5, 6, 7, 8);
my $str = shift( @arr );
my $pre = $str;
my $flag = 0;
foreach(@arr)
{
if($_ == $pre + 1)
{
$pre = $_;
$flag = 1;
next;
}
$str .= "-".$pre.",".$_;
$pre = $_;
$flag = 0;
}
if($flag == 1)
{
$str .= "-".$pre;
}
print "$str\n";

复制代码

4.@x=(5,7,9); $x[1]与@x[1]的区别是什么？
$x[1]是数组x的第二个元素7，是一个标量
@x[1]是只有数组x第二元素7着一个元素的列表，是一个列表
5. 用最短和优的perl代码对当前目录下的文件和子目录按修改时间进行排序。

#!/usr/bin/perl -w
my $dh;
my %files;
opendir($dh,".") or die "Can't opendir \".\":$!";
foreach my $file(readdir $dh) {
$files{$file} = (stat($file))[9];
}
foreach my $key(sort ascd(keys %files)) {
print "$key\n";
}
sub ascd {
$files{$a} <=> $files{$b};
}

复制代码

6.传入一串数字并返回所有大于平均值的数字。

echo "12 23 24 54 64 3 234 3 2" | perl -ane '$ave = 0; foreach(@F){ $ave += $_; } $ave /= @F; @big = grep {$_ > $ave} @F;print "@big";'

复制代码

7.让用户不断猜测范围从1到100的秘密数字，直到猜中为止。程序应该以魔术公式lnt（1+rand 100）来随机产生秘密数字。当用户猜错时，程序应相应“too high”或者“too low”。如果用户quit或者exit或者键入一个空白行程序就中止。当然如果用户猜到了，程序也应该中止。

#!/usr/bin/perl -w
use 5.010;
my $num = int (1+rand 100);
print $num."\n";
print "Input your guess number!\n";
while(<>)
{
given($_)
{
when( /^(quit)?(exit)?\s*\n$/ )
{
last;
}
when( /^\s*\d+\s*\n$/ )
{
chomp;
if($num < $_)
{
print "Too low\n";
} elsif($num > $_)
{
print "Too high\n";
} else {
print "Bingo!U got it!";
}
next;
}
print "Error input!\n";
}
}

复制代码

8. 写一个简单的TCP Echo Server，在linux/unix环境运行，侦听在特定端口，接受用户的网络输入，并返回同样的数据给对方，能接受quit命令。
基本要求：
（1）无阻塞IO。
（2）daemon方式运行。
（3）能接受kill -HUP重启信号。
代码太长了传文件上来吧测试环境是 Linux Zealot 2.6.32.11-99.fc12.i686 #1 SMP Mon Apr 5 16:32:08 EDT 2010 i686 i686 i386 GNU/Linux
服务器端要以root启动。。。
ser.pl是服务端的代码
cli.pl是客户端的代码