[Metalab] stricken
Michael Bauer
mihi at lo-res.org
Thu Jun 8 01:00:10 CEST 2006
hi,
hab leider mit den Jahren stricken verlernt, kann mir das jemand wieder
beibringen?
gruss mihi
ps.: Strickrunden jetzt!
--
/usr/bin/perl -e '1==$#ARGV||die "usage: $0 <iPod Volume> <searchstring>";
open(D,"$ARGV[0]/iPod_Control/iTunes/iTunesDB")||die $!;$_=join "",<D>;
s/\:/\//g;s/[^\w \.\/]//g;foreach(split /mh(it|sd)/){if(/$ARGV[1]/){
s/.*mhod.//;system("open \"$ARGV[0]$_\"")}}; # TO COPY IS OUR RIGHT!'
More information about the Metalab
mailing list