diff options
| author | Daniel Stenberg <daniel@haxx.se> | 2003-02-15 17:37:23 +0000 |
|---|---|---|
| committer | Daniel Stenberg <daniel@haxx.se> | 2003-02-15 17:37:23 +0000 |
| commit | 8cc69d8080ac707b6b204282bb62f9351b213dbb (patch) | |
| tree | fd0d02049a039182dd80bc441841769d88c82c86 | |
| parent | 4be0983fe52258669b3d2a76d5e6a717e278fb95 (diff) | |
| download | rockbox-8cc69d8080ac707b6b204282bb62f9351b213dbb.zip rockbox-8cc69d8080ac707b6b204282bb62f9351b213dbb.tar.gz rockbox-8cc69d8080ac707b6b204282bb62f9351b213dbb.tar.bz2 rockbox-8cc69d8080ac707b6b204282bb62f9351b213dbb.tar.xz | |
extract the names better from the CREDITS file
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3274 a1c6a512-1295-4272-9138-f99709370657
| -rw-r--r-- | apps/credits.pl | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/apps/credits.pl b/apps/credits.pl index 3d3945d..942a96b 100644 --- a/apps/credits.pl +++ b/apps/credits.pl @@ -1,10 +1,13 @@ +# __________ __ ___. +# Open \______ \ ____ ____ | | _\_ |__ _______ ___ +# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / +# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < +# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ +# \/ \/ \/ \/ \/ +# $Id$ +# while (<STDIN>) { - chomp; # strip record separator - my @Fld = split(' ', $_, 9999); - if ($a && length($Fld[1])) { - print "\"$_\",\n"; - } - if (/Friend/) { - $a++; + if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) { + print "\"$1\",\n"; } } |