credits.pl

来自「编译后直接运行的ＭＰ３播放器全部Ｃ语言源代码 一个包含FAT文件系统、系统」· PL 代码 · 共 14 行

#             __________               __   ___.
#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
#                     \/            \/     \/    \/            \/
# $Id: credits.pl,v 1.2 2003/02/15 17:37:23 bagder Exp $
#
while (<STDIN>) {
    if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) {
	print "\"$1\",\n";
    }
}