use MP3::Tag;
use File::Find;
my $path = $ARGV 0 ;
print "#EXTM3U\n";
find (\&d, $path);
exit;
sub d {
my $file = $File::Find::name;
if ($file =~ /$path\/(.*\.mp3)/) {
my $mp3 = MP3::Tag->new($file);
$comment = $mp3->comment();
($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
print "#EXTINF:-1,$artist/$title ($album)\n$1\n";
}
}
Ein kleiner Tracker fürs Handy. Das Programm versucht alle drei Minuten die aktuelle Position zu ermitteln und legt diese als GPX und als CSV Datei in dem Bilderverzeichnis des Handys ab. Die Position wird über GPS oder das Mobilfunk-Netz bestimmt (je nach dem was das Handy unterstützt).
Das Handy muß JavaME mit der Location Based API 1.0.1 unterstützen.
Getestet habe ich es bisher nur mit einem Sony Ericson W750.
Das Programm befindet sich momentan noch in einer sehr frühen Entwicklungsstatus. Die Benutzung ist auf eigene Verantwortung!
Ihr könnt den Tracker kostenlos hier runterladen:
Falls das Programm auch auf eurem Handy läuft, würde ich mich über eine kurze Rückmeldung freuen (email: tracker <at> andl.de )
Powered by WordPress ( WordPress Deutschland )
