以下是引用限量版猪头在2009-9-17 12:55的发言：


    Perl 速度快。那是由于，所有的Perl 开发者都使用Perl，他们希望它快。如果某人想加一个很酷的功能到Perl 中，但它会
    降低其它程序的速度，Larry 基本上会拒绝添加它除非找到一个方法使它足够快

starwing@starwing-desktop:~$ cat site_inurl.txt

site:www.baidu.com inurl:/more
site:zhidao.baidu.com inurl:/browse/
site:www. inurl:www20041223am

starwing@starwing-desktop:~$ cat url.txt

http://www.baidu.com/more/
http://www.baidu.com/guding/more.html
http://www.baidu.com/events/20060105/photomore.html
http://hi.baidu.com/browse/
http://hi.baidu.com/baidu/
http://www.
http://www.

starwing@starwing-desktop:~$ cat test.rb
#! /usr/bin/ruby
site = {}
File.new("site_inurl.txt").each do |line|
    site[$1] = $2 if line =~ /^site:(.+) inurl:(.+)/
end
File.new("url.txt").each do |line|
    if line =~ /^http:\/\/([^\/]+)/
    print line if site[$1] && line.match(site[$1])
    end
end
starwing@starwing-desktop:~$ ./test.rb
http://www.baidu.com/more/
http://www.baidu.com/guding/more.html
http://www.
starwing@starwing-desktop:~$

以下是引用StarWing83在2009-9-17 14:19的发言：

不好意思，ruby同样功能的程序貌似可以更短……
 

以下是引用StarWing83在2009-9-17 14:41的发言：

可是我没有用一行阿。ruby里面有stmt if expr这种语法，这个算一个语句的。否则就要写end，不方便。这是特性阿
 
不过就算分开写，这个代码的字节数比你的少是真的吧？（仅仅讨论语言特性而已）

#!/bin/bash
sed -r s/site:\(\.+\)\\sinurl:\(.+\)/\\1\\\\.*\\2/ig site_inurl >temp
while read line
do
grep $line url
done<temp
rm temp

-BASH-4.0.23$ cat url
http://www.baidu.com/more/
http://www.baidu.com/guding/more.html
http://www.baidu.com/events/20060105/photomore.html
http://hi.baidu.com/browse/
http://hi.baidu.com/baidu/
http://www.
http://www.

-BASH-4.0.23$ cat site_inurl
site:www.baidu.com inurl:/more
site:zhidao.baidu.com inurl:/browse/
site:www. inurl:www20041223am