百度脚本笔试题两道

 原贴:http://roclinux.cn/?p=800

百度脚本笔试题两道

《北邮人技术笔试》, 不能不懂脚本

最近碰到两道脚本题：

1、写脚本实现，可以用shell、perl等。在目录/tmp下找到100个以abc开头的文件，然后把这些文件的第一行保存到文件new中。
2、写脚本实现，可以用shell、perl等。把文件b中有的，但是文件a中没有的所有行，保存为文件c，并统计c的行数。
解答思路：

1：觉得用shell更好一些，代码如下

#!/bin/sh
for filename in `find /tmp -type f -name "abc*"|head -n 100`
do
sed -n '1p' $filename>>new
done

注释：第一，用到了find命令，其中-type f表示选取普通文件，-name用于设定文件名；第二，head -n 100命令用于取出前100项。第三，sed -n ‘1p’用于取出文件的第一行内容。第四，>>new表示追加到文件new中。
2：第二个题目还是用perl更方便一些，代码如下：
[rocrocket@wupengchong shellstudy]$ cat roc.pl

#!/usr/bin/perl -w
open B,"<b" or die "b error.($!)";
open C,">c" or die "c error.($!)";
my $find=0;
my ($myb,$mya);
while(<B>){
	$find=0;
	chomp($myb=$_);
	print "B ",$myb,"/n";
	open A,"<a" or die "a error.($!)";
	while(<A>){
		chomp($mya=$_);
		print "A ",$mya,"/n";
		if($mya=~/$myb/){
			$find=1;
			print "FIND!/n";
		}
	}
	if($find==0){
		print C $myb,"/n";
	}
}
close A;
close B;
close C;
$linenum=`cat c|wc -l`;
print "c line count:",$linenum;

第二题一直没有很好的思路，就只好用笨方法实现了。
看看哪位能有更好的方法和思路？希望能留言交流：D
当然shell、perl、python都欢迎！
over~

我猜您对这些文章感兴趣：

• 类似于90后表情的死机脚本
• 写个shell脚本对文件进行批量改名
• 工作差不多了，以后就是Linux了
• 《Perl语言入门》，这书不错
• 休息五分钟，学几个bash快捷键

Posted by rocrocket @ 7:52 pm

Tags: perl, shell, 北邮, 百度, 笔试, 脚本

203人阅读过了这篇文章。

如果您还满意我的文章，请您订阅我的博客。点击“我要订阅”即可。谢谢:)

<<返回主页

7 Responses

• Shell.E.Xu Says:
  October 26th, 2008 at 9:53 pm

  with open(”b”,”r”) as f:
  set1 = set(f.readlines ());
  with open(”a”,”r”) as f:
  set2 = set(f.readlines ());
  count = 0;
  with open(”c”, w) as f:
  for line in list(set1 - set2):
  f.write (line);
  count += 1;
  print count;

• Shell.E.Xu Says:
  October 26th, 2008 at 9:55 pm

  TMD又没有格式，凑合看看吧。
  用了2.6的with语法，简洁多了。2.5以下需要启用或者干脆自己close。
  其实核心就一句set1 - set2

• dongbin Says:
  October 26th, 2008 at 9:57 pm

  find /tmp -type f -name “abc*”|head -n 100|xargs head -q -n 1

• dongbin Says:
  October 26th, 2008 at 10:05 pm

  第二题 Ruby实现：

  #!/usr/bin/ruby

  File.open(ARGV[2]) do |f|
  f.write((File.readlines(ARGV[0]) - File.readlines(ARGV[1])).join(”/n”))
  end

• dongbin Says:
  October 26th, 2008 at 10:06 pm

  第二题Ruby实现

  File.open(ARGV[2]) do |f|
  f.write((File.readlines(ARGV[0]) - File.readlines(ARGV[1])).join(”/n”))
  end

• dongbin Says:
  October 26th, 2008 at 10:07 pm

  第二题Ruby实现:

  File.open(ARGV[2]) do |f|
  f.write((File.readlines(ARGV[0]) - File.readlines(ARGV[1])).join(”/n”))
  end

• sanding Says:
  November 21st, 2008 at 3:52 pm

  不懂perl。。。
  awk ‘NR==FNR{a[$0]=1}NR!=FNR&&!a[$0]{print > “c”}’ a b