Re: [gentoo-user] perl adepts here?--was--usb device mp3 playlist maker

Re: [gentoo-user] perl adepts here?--was--usb device mp3 playlist maker

[maxim wexler]

--- maxim wexler <blissfix@yahoo.com> wrote:

> 
> --- maxim wexler <blissfix@yahoo.com> wrote:
> 
> > Hi group,
> > 
> > I have a generic mp3 usb 256M player. Does anybody
> > know of a program or script that will load it with
> > tunes, in a random arrangement from a dir full of
> > mp3s?
> > 
> > Maxim
> > 
> 
> There's this thing which looks promising(awkward
> name,
> though). 
> 
> http://osx.freshmeat.net/projects/cpshufflesature/
> 
> The URL says osx but the site says "OS Independant".
> 
> I ran it according to directions at the "Demo" link,
> but:
> 
> heathen@localhost ~ $ ./cpShuffleSature_stable -t
> /usb
> -f '\.mp(3|e?g)$' -s 'music/mp3' -m 256M
> Can't locate Carp/Assert.pm in @INC (@INC contains:
> /etc/perl
> /usr/lib/perl5/vendor_perl/5.8.8/i686-linux
> /usr/lib/perl5/vendor_perl/5.8.8
> /usr/lib/perl5/vendor_perl/5.8.6
> /usr/lib/perl5/vendor_perl/5.8.6/i686-linux
> /usr/lib/perl5/vendor_perl
> /usr/lib/perl5/site_perl/5.8.8/i686-linux
> /usr/lib/perl5/site_perl/5.8.8
> /usr/lib/perl5/site_perl
> /usr/lib/perl5/5.8.8/i686-linux /usr/lib/perl5/5.8.8
> /usr/local/lib/site_perl .) at
> ./cpShuffleSature_stable line 58.
> BEGIN failed--compilation aborted at
> ./cpShuffleSature_stable line 58.
> 
> My perl seems up-to-date and here's Carp.pm:
> 
> heathen@localhost ~ $ ls -l
> /usr/lib/perl5/5.8.8/Carp.pm
> -r--r--r-- 1 root root 8840 Jul  7  2006 
> 
> lines 57-59:
> 
> #Linux Debian: libcarp-assert-perl
> #use Carp::Assert;
> no Carp::Assert; # line commented out => debug mode
> 
> I swapped comments with the same result.
> 
> mw
> 

Oh, and here's where Assert.pm lives. I did a search
in the code for "Assert.pm" but it didn't show so I
don't know where the program expects to find it or how
to tell it where to look.

slocate Assert.pm
/usr/lib/perl5/5.8.8/Test/Harness/Assert.pm
/usr/lib/perl5/vendor_perl/5.8.8/Test/Harness/Assert.pm
heathen@localhost ~ $  

mw


      ___________________________________________________________________________________
You snooze, you lose. Get messages ASAP with AutoCheck
in the all-new Yahoo! Mail Beta.
http://advision.webevents.yahoo.com/mailbeta/newmail_html.html
-- 
gentoo-user@gentoo.org mailing list

Re: [gentoo-user] perl adepts here?--was--usb device mp3 playlist maker

[maxim wexler]

> 
> 
> The module is "Carp::Assert". It is mapped to the
> file Carp/Assert.pm, which 
> you dont have installed, so
> 
> emerge -av Carp-Assert
> 
> hope this helps 
> 
> Dani
> 

Well, that went smoothly enough, but:

heathen@localhost ~ $ ls /usr/lib/perl5/*8/Carp
Heavy.pm

and now it wants something else:

heathen@localhost ~ $ ./cpShuffleSature_stable -t /usb
-f '\.mp(3|e?g)$' -s 'music/mp3' -m 256M
Can't locate Filesys/DiskFree.pm in @INC (@INC
contains: /etc/perl
/usr/lib/perl5/vendor_perl/5.8.8/i686-linux
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl/5.8.6
/usr/lib/perl5/vendor_perl/5.8.6/i686-linux
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/site_perl/5.8.8/i686-linux
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl
/usr/lib/perl5/5.8.8/i686-linux /usr/lib/perl5/5.8.8
/usr/local/lib/site_perl .) at
./cpShuffleSature_stable line 81.
BEGIN failed--compilation aborted at
./cpShuffleSature_stable line 81.

I did emerge -pv DiskFree, Filesys-DiskFree, and it
came back "no ebuilds to satisfy..."

And nothing like that under /usr/portage/dev-perl

There was however a Filesys-DiskSpace which I had to
unmask before emerging. Didn't help though, same
result. 

Here's l.80-81 from the code. 

#Linux Debian: libfilesys-diskfree-perl
use Filesys::DiskFree;

Maybe it's a Debian thing and won't work in gentoo?

mw



       
____________________________________________________________________________________
Yahoo! oneSearch: Finally, mobile search 
that gives answers, not web links. 
http://mobile.yahoo.com/mobileweb/onesearch?refer=1ONXIC
-- 
gentoo-user@gentoo.org mailing list

Re: [gentoo-user] perl adepts here?--was--usb device mp3 playlist maker

[maxim wexler]

--- "D. Bolliger" <info@dbolliger.ch> wrote:

> maxim wexler am Mittwoch, 27. Juni 2007 18:55:
> > > The module is "Carp::Assert". It is mapped to
> the
> > > file Carp/Assert.pm, which
> > > you dont have installed, so
> > >
> > > emerge -av Carp-Assert
> > >
> > > hope this helps
> > >
> > > Dani
> 
> Hello maxim
> 
> (sorry, I'm not native english speaking)
> 
> > Well, that went smoothly enough, but:
> >
> > heathen@localhost ~ $ ls /usr/lib/perl5/*8/Carp
> > Heavy.pm
> 
> I don't understand what you want to say with the ls
> above.
> 

I meant that after emerging Carp-Assert there is only
Heavy.pm under the Carp dir. You seem to imply that I
should also find Assert.pm.

> $ equery belongs /usr/lib/perl5/5.8.8/Carp/Heavy.pm
> [ Searching for file(s)
> /usr/lib/perl5/5.8.8/Carp/Heavy.pm in *... ]
> dev-lang/perl-5.8.8-r2
> (/usr/lib/perl5/5.8.8/Carp/Heavy.pm)
> 
> So, Carp::Heavy is a core module, installed with
> perl.
> 
> > and now it
> 
> With "it", you mean ./cpShuffleSature_stable, and
> that's your program?

Yes.

> 
> (I don't have it :-), but:)
> 
> > wants something else: 
> >
> > heathen@localhost ~ $ ./cpShuffleSature_stable -t
> /usb
> > -f '\.mp(3|e?g)$' -s 'music/mp3' -m 256M
> > Can't locate Filesys/DiskFree.pm in @INC (@INC
> > contains: /etc/perl
> [snip]
> > BEGIN failed--compilation aborted at
> > ./cpShuffleSature_stable line 81.
> >
> > I did emerge -pv DiskFree, Filesys-DiskFree, and
> it
> > came back "no ebuilds to satisfy..."
> 
> Another way to find a certain module is 
> 
> $ equery -s diskfree
> Searching...
> [ Results for search key : Diskfree ]
> [ Applications found : 1 ]
> 
> *  app-admin/gtkdiskfree
>       Latest version available: 1.9.3-r1
>       Latest version installed: [ Not Installed ]
>       Size of files: 249 kB
>       Homepage:     
> http://gtkdiskfree.tuxfamily.org/
>       Description:   Graphical tool to show free
> disk space
>       License:       GPL-2
> 

Not here:

heathen@localhost ~ $ equery -s diskfree
!!! No command or unknown command given
Usage: equery <global-opts> command <local-opts>
where <global-opts> is one of
 -q, --quiet   - minimal output
 -C, --nocolor - turn off colours
 -h, --help    - this help screen
 -V, --version - display version info
where command(short) is one of
 belongs(b) <local-opts> files... - list all packages
owning files...
 changes(c)  - not implemented yet
 check(k) pkgspec - check MD5sums and timestamps of
pkgspec's files
 depends(d) <local-opts> pkgspec - list all direct
dependencies matching pkgspec
 depgraph(g) <local-opts> pkgspec - display a
dependency tree for pkgspec
 files(f) <local-opts> pkgspec - list files owned by
pkgspec
 glsa(a)  - not implemented yet
 hasuse(h) <local-opts> pkgspec - list all packages
with useflag
 list(l) <local-opts> pkgspec - list all packages
matching pkgspec
 size(s) <local-opts> pkgspec - print size of files
contained in package pkgspec
 stats(t)  - not implemented yet
 uses(u) <local-opts> pkgspec - display USE flags for
pkgspec
 which(w) pkgspec - print full path to ebuild for
package pkgspec


http://search.cpan.org/search?query=Filesys%3A%3ADiskfree&mode=module
> => first result.
> 
> It seems rather old, and I don't have it installed.
> 
> It should be posible, although I didn't test it,
> with g-cpan:
> 
> $ g-cpan -i Filesys::DiskFree
> 

Interesting, I tried the above two times. First time
it took a long while then:

<snip>
Filesys-DiskFree-0.06/eg/silly
Filesys-DiskFree-0.06/Changes
Filesys-DiskFree-0.06/test.pl
Filesys-DiskFree-0.06/README
 * g-cpan: Generating ebuild for Filesys::DiskFree
 * g-cpan: Ebuild generated for Filesys-DiskFree
 * g-cpan: Nothing to install!!


localhost heathen # g-cpan -i Filesys::DiskFree
CPAN: Storable loaded ok
Going to read /var/tmp/g-cpan/.cpan/Metadata
  Database was generated on Wed, 27 Jun 2007 20:10:07
GMT
 * g-cpan: Ebuild already exists for Filesys-DiskFree
Calculating dependencies... done!

Second time:


>>> Emerging (1 of 1) perl-gcpan/Filesys-DiskFree-0.06
to /
 * Filesys-DiskFree-0.06.tar.gz MD5 ;-) ...           
                                                  [ ok
]
 * Filesys-DiskFree-0.06.tar.gz RMD160 ;-) ...        
                                                  [ ok
]
 * Filesys-DiskFree-0.06.tar.gz SHA1 ;-) ...          
                                                  [ ok
]
 * Filesys-DiskFree-0.06.tar.gz SHA256 ;-) ...        
                                                  [ ok
]
 * Filesys-DiskFree-0.06.tar.gz size ;-) ...          
                                                  [ ok
]
 * checking ebuild checksums ;-) ...                  
                                                  [ ok
]
 * checking auxfile checksums ;-) ...                 
                                                  [ ok
]
 * checking miscfile checksums ;-) ...                
                                                  [ ok
]
 * checking Filesys-DiskFree-0.06.tar.gz ;-) ...      
                                                  [ ok
]
>>> Unpacking source...
>>> Unpacking Filesys-DiskFree-0.06.tar.gz to
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/work
>>> Source unpacked.
>>> Compiling source in
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/work/Filesys-DiskFree-0.06
...
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/work/Filesys-DiskFree-0.06
 * Using ExtUtils::MakeMaker
Checking if your kit is complete...
Looks good
Writing Makefile for Filesys::DiskFree
cp DiskFree.pm blib/lib/Filesys/DiskFree.pm
>>> Source compiled.
>>> Test phase [not enabled]:
perl-gcpan/Filesys-DiskFree-0.06

>>> Install Filesys-DiskFree-0.06 into
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/image/
category perl-gcpan
Installing
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/image/usr/lib/perl5/vendor_perl/5.8.8/Filesys/DiskFree.pm
Writing
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/image//usr/lib/perl5/vendor_perl/5.8.8/i686-linux/auto/Filesys/DiskFree/.packlist
Appending installation info to
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/image//usr/lib/perl5/5.8.8/i686-linux/perllocal.pod
 * Cleaning out stray man files
>>> Completed installing Filesys-DiskFree-0.06 into
/var/tmp/portage/perl-gcpan/Filesys-DiskFree-0.06/image/

>>> Merging perl-gcpan/Filesys-DiskFree-0.06 to /
--- /usr/
--- /usr/lib/
--- /usr/lib/perl5/
--- /usr/lib/perl5/5.8.8/
--- /usr/lib/perl5/5.8.8/i686-linux/
--- /usr/lib/perl5/vendor_perl/
--- /usr/lib/perl5/vendor_perl/5.8.8/
--- /usr/lib/perl5/vendor_perl/5.8.8/Filesys/
>>>
/usr/lib/perl5/vendor_perl/5.8.8/Filesys/DiskFree.pm
--- /usr/lib/perl5/vendor_perl/5.8.8/i686-linux/
--- /usr/lib/perl5/vendor_perl/5.8.8/i686-linux/auto/
---
/usr/lib/perl5/vendor_perl/5.8.8/i686-linux/auto/Filesys/
>>>
/usr/lib/perl5/vendor_perl/5.8.8/i686-linux/auto/Filesys/DiskFree/
>>>
/usr/lib/perl5/vendor_perl/5.8.8/i686-linux/auto/Filesys/DiskFree/.packlist
--- /usr/share/
--- /usr/share/doc/
>>> /usr/share/doc/Filesys-DiskFree-0.06/
>>> /usr/share/doc/Filesys-DiskFree-0.06/README.bz2
>>> /usr/share/doc/Filesys-DiskFree-0.06/Changes.bz2
>>> /usr/share/doc/Filesys-DiskFree-0.06/MANIFEST.bz2
 * Man pages are not installed for most modules now.
 * Please use perldoc instead.
>>> perl-gcpan/Filesys-DiskFree-0.06 merged.

>>> No packages selected for removal by clean
>>> Auto-cleaning packages...

>>> No outdated packages were found on your system.
 * GNU info directory index is up-to-date.

 
So the first time it only made the ebuild and the
second time, installed it?

 
OK, I'm running the program NOW. The cursor dropped to
the next line and stopped there. It appears to be
copying tunes, but it's verrrrrrry slllloowwwwww.
Takes about a minute per tune. Looks like it stopped
at eleven out of ~70. No, it's up to 17 now -- after
20mins -- not good.

> I don't understand the following :-)
> 
> > There was however a Filesys-DiskSpace which I had
> to
> > unmask before emerging. Didn't help though, same
> > result.

When I first tried emerging Filesys-DiskSpace the
error was "masked by ~x86 keyword". So I 

#echo "dev-perl/Filesys-DiskSpace ~x86" >>
/etc/portage/package.keywords
                                                      
                                  
and the file was emerged.




       
____________________________________________________________________________________Ready for the edge of your seat? 
Check out tonight's top picks on Yahoo! TV. 
http://tv.yahoo.com/
-- 
gentoo-user@gentoo.org mailing list