===========================================================
把五个数字 56789, 放到[][][] * [][], 令结果最大.
===========================================================
#!/usr/bin/perl
use strict;
#把五个数字 56789, 放到[][][] * [][], 令结果最大.
my @files = glob ("{5,6,7,8,9}" x 5);
my $max = 0;
my $exp = "";
foreach (@files){
my %h = ();
my $r = 0;
while (/(d)/g){
$h{$1}++;
if ($h{$1} > 1){
$r = 1;
last;
}
}
next if ($r);
my $t_num = substr($_, 0, 3) * substr($_, 3, 2);
if ($t_num > $max){
$max = $t_num;
$exp = $_;
}
}
if ($exp){
print "found $exp = $maxn";
}
beckheng
发表于:2006.12.12 17:31
::分类:
(
来来去去果D
)
::阅读:(671次)
::
评论
(5)
===========================================================
用DIV的绝位定位时的注意事项.
===========================================================
有一个系统用了AJAX.其中为了友好,在某个功能请求时,用DIV动态显示出一个图片,表明正在操作.后来才发现了一个BUG,因为我忘记了在设置其LEFT与TOP属性后还原其值,结果在一个大数据显示的时候,页面变得较长,但是如果突然数据量降下来的时候,本来不能滚动栏则可以显示全部内容的,但是因为这个DIV的原因,页面还保持了跟之前一样的显示大小.
beckheng
发表于:2006.11.23 15:46
::分类:
(
杂项
)
::阅读:(641次)
::
评论
(0)
===========================================================
sprintf的教训
===========================================================
如果使用sprintf("asdfsdf $var")这类的话,因为$var是一个变量,那么当它包含%号的时候,这个语句就会演变为sprintf("asdfsdf %"),那么这个时候又会发生一次值的替换了.
刚吃了一次亏.以后要尽量避免在sprintf的format string里包含有变量.
beckheng
发表于:2006.11.23 11:17
::分类:
(
杂项
)
::阅读:(1082次)
::
评论
(0)
===========================================================
PERL,执行ORACLE存储过程.
===========================================================
如果是存储过程的话,可以使用
$dbh->do("
BEGIN
procName;
END
");
beckheng
发表于:2006.11.22 17:28
::分类:
(
编程
)
::阅读:(1002次)
::
评论
(2)
===========================================================
PERL,Simple DNS Lookups
===========================================================
有些事情,还是写一下印象深刻点.即使你曾经试过一两次,在隔一段时间后你就会发现忘记了.
就像今天有人说起如何对IP地址进行域名反向查询一样.
use Socket;
@addresses = gethostbyname($name) or die "Can't resolve $name: $!n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
反向查询
use Socket;
$name = gethostbyaddr(inet_aton($address), AF_INET)
or die "Can't resolve $address: $!n";
beckheng
发表于:2006.11.22 17:17
::分类:
(
编程
)
::阅读:(537次)
::
评论
(0)
===========================================================
周末都要係屋企加班,还要係加到成十一點果只.
===========================================================
最近公司提出一個改善計劃,但是整個計劃的時間是很趕的,即係加班就必然個啦.我負責果部分可以在家完成,甘就申請返屋企搞啦.
結果搞到周六同周日響屋企都搞到成十一點先休息,但甘只係完成左大部分個工作嗟.
無可否認甘,我認爲呢類的工作安排其實係好唔合理架.但係無計,爲左呃餐飯食下,唯有頂硬上啦.
beckheng
发表于:2006.11.13 23:36
::分类:
(
来来去去果D
)
::阅读:(536次)
::
评论
(0)
===========================================================
Shit,今天犯了一个比较严重的错误.
===========================================================
使用rsync命令同步文件,因为destination少指出了最终目录名称+使用了--delete选项,结果导致destination下的很多文件都被删除了,幸好醒觉.用CTRL+C终止了进程.但因为原来指出的destination是/var,所以还是很仔细地检查了一下,究竟删除了多少文件,幸好发现被删掉的都是无关紧要的.虽然虚惊一场,但还是买个教训.以后使用rsync的时候第一次操作尽量先不使用--delete选项.还有就是紧记destination一定要明确指出最终目录.
beckheng
发表于:2006.11.13 10:47
::分类:
(
杂项
)
::阅读:(693次)
::
评论
(0)
===========================================================
PERL,调用包的函数
===========================================================
如果你的程序的结构化比较好(例如将功能分类写在package里),但是你不想在每个package都use Encode qw(from_to),那么你可以在主程序里use Encode qw(from_to);然后在package里通过Encode::from_to方式显式调用这个子例程,那么就可以了.
通过用Benchmark进行200万的测试,发现这种调用方式与from_to方式各有秋色.
beckheng
发表于:2006.11.11 13:36
::分类:
(
编程
)
::阅读:(1556次)
::
评论
(1)
===========================================================
用CGI模块轻松将URI还原
===========================================================
$query = CGI->new();
$query->unescape("%CC%FA%B3%DD%CD%AD%D1%C0%BC%CD%CF%FE%E1%B02++%D5%D4");
beckheng
发表于:2006.11.06 17:18
::分类:
(
编程
)
::阅读:(501次)
::
评论
(1)
===========================================================
我家小龟.
===========================================================
哈.觉得蛮有意思的.在阳台养了三只.是老婆的,养了十几年的了.找时间再帮它们拍拍照.
beckheng
发表于:2006.11.05 14:34
::分类:
(
来来去去果D
)
::阅读:(58558次)
::
评论
(0)
===========================================================
受限制环境安装模块方法 之二
===========================================================
大家可能对hoowa的<受限制环境安装模块方法>还有点印象.
如果不记得,可以参考:
http://www.perlchina.org/archive/archive.php?action=archive&page=26
以下我所提出的过程虽然跟hoowa的不一样,但其实大ch家的目的是一样,都是为了你在受限制环境里有自己的libaray目录.这个目录就存储了你需要的module.
我的方法在linux下测试通过,但相信针对*nix系统没有问题.但对于是否所有模块适用,我也存在疑问.如果你用我提到的方法的时候不成功,请将你想使用的模块的名字告诉我一下,我会尝试找出其它方法来解决.
先说一下不使用cpan方式安装perl module的方式(呵,这里费话一下):
perl Makefile.PL
make
make test
make install
好了,上面几个步骤除了最后一步我们执行的时候会受限(no root access level),其它的步骤都没问题的.可能大家已经想到了吧(嘿嘿),不错,我的做法就是不执行make test(有时执行make test失败,但你make install后模块也是能用的)与make install,直接建立一个目录,例如mylib在我的可存储目录下,然后将blib/lib/*都copy到mylib下,然后再将 blib/arch/auto也copy到mylib下.
因为blib/lib/*下有一个auto目录,建议上面步骤的顺序不要乱.
上面的方法使我能在某个供应商主机上使用到Apache::DBI, Template, CGI-Session这些模块.
写完后,似乎觉得以前有人提出过这种解决方法了...
beckheng
发表于:2006.11.04 22:19
::分类:
(
杂项
)
::阅读:(465次)
::
评论
(0)
===========================================================
最近工作都提不起精神
===========================================================
哎...何苦何必,但工作还是要按时完全才能拿工资啊.
beckheng
发表于:2006.11.02 22:26
::分类:
(
来来去去果D
)
::阅读:(385次)
::
评论
(1)
===========================================================
對TVS-4唔係好滿意架地方.
===========================================================
TVS-4經常播返D舊電視劇同埋D舊電影.不過我對佢還系有D吾滿意架地方,事關:
1.TVS-4播放的電視劇,有D會將人地的名改左,例如最近播的<有情歲月>,可能是從香港翡翠台引進的吧,以前睇果陣,人地係叫做<流金歲月>.
2.又系關於<流金歲月>的.TVS-4懶醒甘將人地架字幕中的英文名用左中文名代替,無細原汁原味的感覺.
beckheng
发表于:2006.10.31 23:59
::分类:
(
杂项
)
::阅读:(484次)
::
评论
(1)
===========================================================
今日在Q群的一個數學題
===========================================================
由caca發出來的,題目是移動一個數字使等式101-102=1成立.因爲以前好似見過類似的,所以比較快答出來,其實答案就係將2上移,變爲10的平方,甘樣就變爲101-100=1了!
後來心血來朝,用PERL計算了一下在10000000範圍內有多少個這樣的數,結果發現只有101跟102.
下面附上計算的PERL代碼,直接在命令下執行即可.
perl -e 'for (1 .. 10000000){my $j = $_ + 1;if (($_ - int($j / 10) ** ($j % 10)) == 1){print "$_ - $j = 1n";}}'
beckheng
发表于:2006.10.31 13:04
::分类:
(
编程
)
::阅读:(502次)
::
评论
(0)
===========================================================
有D失憶甘款.
===========================================================
梗係記得有D嘢想寫下來,到準備開波的時候就唔記得內容.睇來係有少少失憶甘款.麻煩. 查看全文
beckheng
发表于:2006.10.30 21:14
::分类:
(
来来去去果D
)
::阅读:(426次)
::
评论
(0)
