Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

extract the names better from the CREDITS file

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@3274 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Daniel Stenberg 2003-02-15 17:37:23 +00:00
parent 4be0983fe5
commit 8cc69d8080
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
apps/credits.pl
View file

@ -1,10 +1,13 @@
# __________ __ ___.
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
# \/ \/ \/ \/ \/
# $Id$
#
while (<STDIN>) { while (<STDIN>) {
chomp; # strip record separator if(($_ =~ /^([A-Z]+[\S ]+)/) && ($_ !~ /^People/)) {
my @Fld = split(' ', $_, 9999); print "\"$1\",\n";
if ($a && length($Fld[1])) {
print "\"$_\",\n";
}
if (/Friend/) {
$a++;
} }
} }