unixforum.org

Код: Выделить всё

for i in `find . -name "*.[mM][pP]3"`; do ...

Код: Выделить всё

[ "$f" == "$fn" ] || mv "$f" "$fn"

Код: Выделить всё

#!/usr/bin/perl -w
use Getopt::Std;
$fromenc=$opts{'f'} if defined $opts{'f'};
$toenc=$opts{'t'} if defined $opts{'t'};
if($toenc){}else{$toenc="utf-8"};
if($fromenc){}else{$fromenc="koi8-r"};
$filename=$ARGV[0];
$tags=`id3v2 -l "$filename"`;
($artist)=$tags=~/TIT2.+?:(.*)/;
($title)=$tags=~/TPE1.+?:(.*)/;
($album)=$tags=~/TALB.+?:(.*)/;
chomp($artist);
chomp($album);
chomp($title);
if($artist){$newartist=(`echo "$artist" | iconv -f $fromenc -t $toenc`)}else{$newartist=""};
if($title){$newtitle=(`echo "$title" | iconv -f $fromenc -t $toenc`)}else{$newtitle=""};
if($album){$newalbum=(`echo "$album" | iconv -f $fromenc -t $toenc`)}else{$newalbum=""};
`id3v2 -a "$newartist" -A "$newalbum" -t "$newtitle" "$filename"`;

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use Text::Iconv;

my %opts;
getopts('f:t:', \%opts);
my ($fromenc,$toenc) = ("koi8-r","utf-8");
$fromenc=$opts{'f'} if defined $opts{'f'};
$toenc=$opts{'t'} if defined $opts{'t'};

my $filename=$ARGV[0] or die "Usage: bla-bla-bla";

my $tags=`id3v2 -l "$filename"`;
my ($artist)=$tags=~/TIT2.+?:\s*(.*)/;
my ($title)=$tags=~/TPE1.+?:\s*(.*)/;
my ($album)=$tags=~/TALB.+?:\s*(.*)/;

my $iconv = new Text::Iconv($fromenc, $toenc);

my ($newartist,$newtitle,$newalbum) = (
    $artist? '-a "'.$iconv->convert($artist).'"': "",
    $title? '-t "'.$iconv->convert($title).'"': "",
    $album? '-A "'.$iconv->convert($album).'"': "",
);

`id3v2 $newartist $newalbum $newtitle "$filename"`;

Код: Выделить всё

#!/bin/sh

SPATH="music"
DPATH="music.new"
FENC="-f cp1251"
#TENC="-t utf8"
TENC=
rm .unprocessed
find "${SPATH}" -name '*.mp3' -type f | while read MP3FILE
do
unset TPE1 TALB TRCK TIT2 TYER Bitrate
EVAL=$(id3info "${MP3FILE}"|sed \
'/^===/{s!`!'\''!g;s!["$]!\&!g;'\
's!^=== \(....\)[^:]*: !\1="!;'\
's!$!"!;p};'\
'/Bitrate/{s!: !=!;p};'\
'd'| iconv -f cp1251)
eval "${EVAL}"
[ -z "${TPE1}" -o -z "${TALB}" -o -z "${TIT2}" ] && echo "${MP3FILE}" >>.unprocessed && continue
DP=$(echo "${DPATH}/${TPE1}/${TYER}${TYER:+\ -\ }${TALB}" | sed "s!\`!\'!g")
[ -n "${TRCK}" ] && TRCK=$(echo "0${TRCK}"|sed 's!.*\(..\)$!\1!')
DN=$(echo "${TRCK}${TRCK:+\ -\ }${TIT2}.mp3" | sed "s!\`!\'!g")
mkdir -p "${DP}" >/dev/null
echo "${DP}/${DN} - ${Bitrate}"
cp -i "${MP3FILE}" "${DP}/${DN}"
done