[PerlChina] Re: 腾讯互动娱乐mysql DBA四面面经

vincent wrote:
> 20090611腾讯四面面经
> 1月11号面了腾讯，今天得到结果是fail，呵呵现在把面经写出来给大家分享一下。免得大家跟我一样变成炮灰~。
> 跟论坛里面robin订好是下午两点的时间，由于天气比较恶劣，到东站迟了十来分钟，错过了12点去深圳的一班，只能坐12：20一班的车，到深圳已经
> 1点30，快速换乘地铁，到世
>
> 界之窗时前给robin打了一个电话，下了地铁，打的士前往到科技中一路的华强发展大厦时，已经两点半多，相当的汗颜。感觉robin人很不错，递了一
> 份试卷给我做，大约四页左
>
> 右，第一大题是几道选择题,隐约记得一道是linux那个目录不能备份，其余没有什么印象了，呵呵真不好意思。第二大题是几道填空题，这两道大题都是考
> 一些很基本的linux和数
>
> 据库的知识，会者不难，不会嘛就只能干瞪眼了，由于三年来大部分时间都是在linux上做开发，基本上条件反射地填上去了，剩下几条有点模糊的就连猜带
> 蒙填上去了。接下来两
>
> 题是编程题，一题是把某个目录下后缀为.sh的文件后缀改为.shell,因为之前跟robin说过熟perl，所以特意标明了让我用perl来做，呵
> 呵.
> #!/usr/bin/perl -w
> use strict;
> use Symbol;
>
>
> my $fh=gensym();
> ##默认是当前的目录了
> opendir($fh,"")||die;
> my @files=grep(/\.sh/,readdir($fh));
> closedir($fh);
>
> foreach my $file(@files)
> {
> my $new=~s/\.sh/\.shell/g;
> rename($file,$new);
> }

不一定用 readdir, File::Find 就很好用。

# untested....
perl -MFile::Find -wle "
find( sub { my $n=$File::Find::name; if($n=~/\.sh/){ $n=~s/sh$/shell/;
rename $File::Find::name, $n}}, '.')"

吸取教训，希望你下次能面试成功！

Qiang(James)

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---