熟睡中被义子侵犯中字,午夜免费男女aaaa片,天天躁日日躁aaaaxxxx

yifangyou

小富即安

論壇徽章:: 27

41樓 [報(bào)告]

發(fā)表于 2011-02-26 23:33 |只看該作者

本帖最后由 yifangyou 于 2011-02-27 00:00 編輯

####################################################
#系統(tǒng)環(huán)境：windows xp sp3,centos 5
#編譯環(huán)境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
#執(zhí)行: perl 5.pl "E:\tmp" 或者 perl 5.pl
#題目：
#5. 用最短和優(yōu)的perl代碼對(duì)當(dāng)前目錄下的文件和子目錄按修改時(shí)間進(jìn)行排序。
#
####################################################
#全局結(jié)果集
our %files;
#讀取目錄名
my $inputdir=$ARGV[0];
if($inputdir eq ""){
$inputdir=".";
}
#當(dāng)前目錄下的文件和子目錄按修改時(shí)間進(jìn)行排序
get_sub_files($inputdir);
#對(duì)散列的修改時(shí)間字段進(jìn)行排序
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};
#}
#遞歸獲取該目錄下的所有目錄和文件，以及對(duì)應(yīng)的修改時(shí)間
sub get_sub_files{
my $dir = shift @_;
#打開(kāi)目錄
opendir(DIR,"$dir") || die "Error in opening dir $dir\n";
my @files =readdir(DIR);
closedir(DIR);
#遍歷所有文件和目錄
for $file (@files){
#排除當(dāng)前遍歷的目錄和上一級(jí)的目錄
if(!($file eq "" || $file eq "." || $file eq "..")){
my $nextfile="$dir/$file";
$files{$nextfile}=(stat($file))[9];
#若是目錄則遞歸變量下一級(jí)
if(-d $nextfile){
get_sub_files($nextfile);
}
}
}
}

復(fù)制代碼

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

yifangyou

小富即安

論壇徽章:: 27

42樓 [報(bào)告]

發(fā)表于 2011-02-26 23:36 |只看該作者

本帖最后由 yifangyou 于 2011-02-26 23:58 編輯

####################################################
#系統(tǒng)環(huán)境：windows xp sp3,centos 5
#編譯環(huán)境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
#執(zhí)行: perl 6.pl 1,2,3,5,6,7,8,24,25,26,2
#題目：
#6.傳入一串?dāng)?shù)字并返回所有大于平均值的數(shù)字。
#
####################################################
sub get_big_avg {
my $total = 0;
#計(jì)算總和
for my $n (@_) {
$total+=$n;
}
my $num=@_;
#計(jì)算平均值
my $avg=$total/$num;
@result=();
#比較獲取大于平均值的數(shù)字
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");
}
#分割成數(shù)組
@input_list=split(/,/,$ARGV[0]);
print "input :".join(",",@input_list)."\n";
print "result:".join(",",get_big_avg(@input_list))."\n";

復(fù)制代碼

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

yifangyou

小富即安

論壇徽章:: 27

43樓 [報(bào)告]

發(fā)表于 2011-02-26 23:37 |只看該作者

本帖最后由 yifangyou 于 2011-02-27 16:22 編輯

####################################################
#系統(tǒng)環(huán)境：centos 5
#編譯環(huán)境：v5.8.8 built for i386-linux-thread-multi
#執(zhí)行: perl 7.pl
#題目：
#7.讓用戶不斷猜測(cè)范圍從1到100的秘密數(shù)字，直到猜中為止。程序應(yīng)該以魔術(shù)公式lnt（1+rand 100）來(lái)隨機(jī)產(chǎn)生秘密數(shù)字。
#當(dāng)用戶猜錯(cuò)時(shí)，程序應(yīng)相應(yīng)“too high”或者“too low”。
#如果用戶quit或者exit或者鍵入一個(gè)空白行程序就中止。當(dāng)然如果用戶猜到了，程序也應(yīng)該中止。
#
####################################################
$min_number=1;
$max_number=100;
#獲取隨機(jī)數(shù)
$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>){
#獲取輸入并轉(zhuǎn)小寫
$enter_str = lc($_);
#去掉空白字符
$enter_str =~ s/\s//g;
#判斷是否是整數(shù)
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");
}
}
}
}

復(fù)制代碼

第8題

#!/usr/bin/perl
####################################################
#系統(tǒng)環(huán)境：centos 5
#編譯環(huán)境：perl, v5.8.8 built for i386-linux-thread-multi
#執(zhí)行: perl 8.pl 或者 perl 8.pl 1234 (端口)
#題目：
#8. 寫一個(gè)簡(jiǎn)單的TCP Echo Server，在linux/unix環(huán)境運(yùn)行，偵聽(tīng)在特定端口，接受用戶的網(wǎng)絡(luò)輸入，并返回同樣的數(shù)據(jù)給對(duì)方，能接受quit命令。
#基本要求：
#（1）無(wú)阻塞IO。
#（2）daemon方式運(yùn)行。
#（3）能接受kill -HUP重啟信號(hào)
# 發(fā)送hup信號(hào)命令：kill -s hup 進(jìn)程號(hào)
#
####################################################
#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;#默認(rèn)端口
our $zombies = 0;
our $script = File::Basename::basename($0);
our $logfile="/tmp/8.log";
our $read_handles;
# 獲取重新啟動(dòng)命令
our $SELF = "perl ".catfile $FindBin::Bin, $script;
our $isrestart=0; #標(biāo)識(shí)是否重新啟動(dòng)
$SIG{CHLD} = sub {$zombies++};
$SIG{HUP} = sub {
logs("get HUP,restart server");
$isrestart=1;
stopServer();
};
#從參數(shù)獲取端口
if(isPort($ARGV[0])){
$server_port=$ARGV[0];
}
#deamon方式
daemonize();
#啟動(dòng)服務(wù)
startServer();
exit;
#函數(shù)部分-----------------------------------------------
sub isPort{
my $port=shift(@_);
if($port=~/d+/){
#判斷端口合法性，必須是整數(shù)，并且大于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: $!";
}
# 停止或者重新啟動(dòng)server
sub stopServer{
$server->close();
$read_handles->remove($server);
# 清除所有的客戶端
foreach $fd ($read_handles->handles){
$read_handles->remove($fd);
close $fd;
}
logs("server shutdown");
# 判斷是否重新啟動(dòng)
if($isrestart==1){
$isrestart=0;
# 重新啟動(dòng)
logs($SELF, @ARGV);
exec($SELF, @ARGV) or die "Couldn't restart: $!\n";
}
exit; # 退出
}
# 啟動(dòng)server
sub startServer{
# 創(chuàng)建套接字
$server = IO::Socket::INET->new(
LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10,# 或者 SOMAXCONN
Blocking => 0)# 設(shè)置非阻塞
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被關(guān)閉了
stopServer();
last;
}
}else{
$msg = <$fd>;
if($msg){
#獲取輸入并轉(zhuǎn)小寫
$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();
}

復(fù)制代碼

####################################################
#系統(tǒng)環(huán)境：centos 5
#編譯環(huán)境：perl, v5.8.8 built for i386-linux-thread-multi
#執(zhí)行: perl 8_client.pl 或者 perl 8_client.pl 127.0.0.1 5555
#題目：
#測(cè)試題目8的客戶端，輸入end:退出客戶端；輸入quit：發(fā)quit命令給服務(wù)端并退出客戶端；
#
####################################################
use IO::Socket::INET;
our $server_ip="127.0.0.1"; #默認(rèn)IP
our $server_port=5555; #默認(rèn)端口
$msg="Why don't you call me anymore?\n";
#從參數(shù)獲取server的ip
if(isIP($ARGV[0])){
$server_ip=$ARGV[0];
}
#從參數(shù)獲取端口
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";
# 通過(guò)套接字發(fā)送某些東西，
while(<STDIN>){
#獲取輸入并轉(zhuǎn)小寫
$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";
# 讀取遠(yuǎn)端響應(yīng)
$answer = <$socket>;
if($answer eq ""){
last;
}
print "answer:$answer\n";
}
# 然后在結(jié)束之后終止聯(liá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;
}

復(fù)制代碼

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

rubylc_unix

腰纏萬(wàn)貫

論壇徽章:: 1

44樓 [報(bào)告]

發(fā)表于 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";
}
}

復(fù)制代碼

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

guap514

豐衣足食

論壇徽章:: 0

45樓 [報(bào)告]

發(fā)表于 2011-02-27 09:49 |只看該作者

第一題

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

復(fù)制代碼

其他的太難不會(huì)

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

rubylc_unix

腰纏萬(wàn)貫

論壇徽章:: 1

46樓 [報(bào)告]

發(fā)表于 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;
}
}

復(fù)制代碼

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

rubylc_unix

腰纏萬(wàn)貫

論壇徽章:: 1

47樓 [報(bào)告]

發(fā)表于 2011-02-27 10:51 |只看該作者

本帖最后由 rubylc_unix 于 2011-02-27 11:00 編輯

5.

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

復(fù)制代碼

實(shí)戰(zhàn)分享：從技術(shù)角度談機(jī)器學(xué)習(xí)入門| 【大話IT】RadonDB低門檻向MySQL集群下戰(zhàn)書 | ChinaUnix打賞功能已上線！ | 新一代分布式關(guān)系型數(shù)據(jù)庫(kù)RadonDB知多少？

lkk2003rty

巨富豪門

論壇徽章:: 0

48樓 [報(bào)告]

發(fā)表于 2011-02-27 22:57 |只看該作者

本帖最后由 lkk2003rty 于 2011-03-14 15:14 編輯

1. 請(qǐng)正確的精簡(jiǎn)如下代碼。

sub myfunc {
# $x = ...;

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

sub myfunc{
$x?1:return;
}

復(fù)制代碼

2. $x=()結(jié)果是什么？列表位于標(biāo)量上下文是什么情況？()是不是用來(lái)創(chuàng)建空的list？請(qǐng)解釋原因。
$x是undef
比如$x = (1, 2, 3)會(huì)使x被賦值為列表最后一個(gè)元素3
是的，可以用諸如@x = ();這樣的語(yǔ)句來(lái)清空數(shù)組
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";

復(fù)制代碼

4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？
$x[1]是數(shù)組x的第二個(gè)元素7，是一個(gè)標(biāo)量
@x[1]是只有數(shù)組x第二元素7著一個(gè)元素的列表，是一個(gè)列表
5. 用最短和優(yōu)的perl代碼對(duì)當(dāng)前目錄下的文件和子目錄按修改時(shí)間進(jìn)行排序。

#!/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};
}

復(fù)制代碼

6.傳入一串?dāng)?shù)字并返回所有大于平均值的數(shù)字。

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";'

復(fù)制代碼

7.讓用戶不斷猜測(cè)范圍從1到100的秘密數(shù)字，直到猜中為止。程序應(yīng)該以魔術(shù)公式lnt（1+rand 100）來(lái)隨機(jī)產(chǎn)生秘密數(shù)字。當(dāng)用戶猜錯(cuò)時(shí)，程序應(yīng)相應(yīng)“too high”或者“too low”。如果用戶quit或者exit或者鍵入一個(gè)空白行程序就中止。當(dāng)然如果用戶猜到了，程序也應(yīng)該中止。

#!/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";
}
}

復(fù)制代碼

8. 寫一個(gè)簡(jiǎn)單的TCP Echo Server，在linux/unix環(huán)境運(yùn)行，偵聽(tīng)在特定端口，接受用戶的網(wǎng)絡(luò)輸入，并返回同樣的數(shù)據(jù)給對(duì)方，能接受quit命令。
基本要求：
（1）無(wú)阻塞IO。
（2）daemon方式運(yùn)行。
（3）能接受kill -HUP重啟信號(hào)。
代碼太長(zhǎng)了傳文件上來(lái)吧測(cè)試環(huán)境是 Linux Zealot 2.6.32.11-99.fc12.i686 #1 SMP Mon Apr 5 16:32:08 EDT 2010 i686 i686 i386 GNU/Linux
服務(wù)器端要以root啟動(dòng)。。。
ser.pl是服務(wù)端的代碼
cli.pl是客戶端的代碼