Perl Gui interface to Phillips GoGear

chiron on 2006-10-20T18:58:25

About two years ago i bought a philips gogear mp3 player, it was ok, the main downside was lame software to load music on to it.

About a year ago it broke, i found it two weeks ago and through the magic of fist i fixed it ( apparently the hd needle gets stuck easily ).

I couldn't stand the software so i decided to write my own, not too hard i thought it uses sqlite, however i spent ages on working out the logic, in the end i ended up using a much better script from use.perl.org/user/domm/ for the logic.

I then added the gui front end, making it easier to add & remove songs.

I spent some time then making it cross-platform as apparently activestate perl is happy with storing querys into an array, for use in a foreach ie:

my @ret = $main->getOpenFile(-multiple => 9999999, -filetypes => $types);
foreach my $path (@ret) {


However perl on linux isn't and i had to use:

my $ret = $main->getOpenFile(-multiple => 9999999, -filetypes => $types);
foreach my $path (@$ret) {


Hopefully it works ok, here it is. Thanks to Domm at http://use.perl.org/user/domm/ for the original logic in his script here.

NOTE: God help me if someone actually opens more than 9999999 files