2008 年脚本编写比赛

我的高级第三题竟然对了     

不是因为题出错了  随便给个答案就行吧

看前面的讨论, 29楼起.

Sudden Death Challenge 最后一题很有趣:>
Event 10: Triple Word Scramble
http://www.microsoft.com/technet ... es08/sdevent10.mspx

交卷有些晚  

我看不太懂 最后的奖品是什么  哪位给翻译翻译

是过了60分就给张 奖状 吗？   是不是还可能抽取到一个玩具？

有奖品吗，什么东西？

初级组  活动 3
                                                                                
文本拼接
复制文件夹中每个文本文件的第一行并将其放入新文件中。
                                                                                
请多多指教 ! Thanks !
                                                                                
#!/usr/bin/perl -w                                                           
use strict;
                                                                                
my $dir = '/##/';
my $tmpfile = '/##/tempresult/tmp.txt';                                                                                
my @FILES= readdir DIR;
opendir(DIR, $dir) || die("Cannot open directory");
for (my $i=0;$i<=$#FILES;$i++){                                      
     open(FILE, "<", "$dir$FILES[$i]")  or die "can't open $dir$FILES[$i]: $!";
     open(NEW, ">>", $tmpfile);
     my @lines =<FILE>;                                                                             
     print NEW "$lines[0]";                                                                                
}
close(FILE);
close(NEW);                                                                              
closedir(DIR);

#Although it looks very easy, I do my best. Thanks for the design!

估计c用多了
perl里面很少有三个参数的for循环
一般是用foreach搞定
还有你的代码没有考虑到文件夹下有子文件夹的情况
测试样本是有子文件夹的
可以用递规
或者直接用
File::Find模块

我靠
以前第三题挂掉的
现在居然又对了
居然一路绿灯

Many thanks!

问一下  国家的积分是怎么算出来的   怎么中国才那么少   Macedonia排第一  Macedonia是国家吗？  日本怎么都排在中国前面   日本人什么时候tnnd会编程了     不爽