Am Montag 13 April 2009 02:33:19 schrieb David Haller: Hallo David,

Am Don, 09 Apr 2009, Al Bogner schrieb:

...

Ich überlege ein simples Shell-Skript um meine CDs neu zu ordnen.

Problem sind die CDs mit mehreren Künstlern (Various), wobei ich hier einen Kompromiss eingehe und definiere, dass die CD durch den Albumtitel bestimmt ist, mehrmals ein Album "Best of" ist also ein Problem, das ich vernachlässige.

Abgefragt wird so:

find "$SEARCHDIR" -type f -name "*.mp3" | while IFS= read -r MP3FILE; do echo `/usr/bin/exiftool -q -q -s -s -s -Album "$MP3FILE"`" | "`/usr/bin/exiftool -q -q -s -s -s -Artist "$MP3FILE"` | tee -a "$ALL" done

Gibt es ein Möglichkeit beim find eine Dual-Core CPU zu nutzen?

AFAIK nein. Das würde eh nur was bringen, wenn alle Dateiinfos im Cache sind, da Festplatte + Dateisystem das ganze begrenzen. Beobachte doch mal mit top oder so, was so ein find an CPU (nicht) braucht. Das 'exiftool' könnte man wohl parallelisieren und/oder ins awk-Script (s.u.) aufnehmen (dort allerdings AFAIK nicht parallelisierbar, in Perl ginge das).

Vielleicht kann exiftool mittlerweile auch Delimiter. Mehrere Felder abfragen ist ja kein Problem. exiftool -q -q -s -s -s -Album -Artist 01_theme_from_harrys_game- clannad-1989_past_present.mp3 1989 - Past Present Clannad Das würde alles natürlich gewaltig beschleunigen, dass das am meisten Zeit braucht.

BTW: mit id3info z.B. kannst du Album und "Artist" mit einer Abfrage rausziehen. Und '|' ist als Trennzeichen nicht so praktisch (wenn auch schön lesbar).

Das Trennzeichen wäre mir egal, notfalls kann man es ja zum Schluss ersetzen. Die Frage ist nur welches Trennzeichen. Es darf in der CDDB nicht vorkommen. Wie würdest du die find-Schleife lösen? Wichtig ist, dass id3info mit UTF-8 klar kommt. man id3info No manual entry for id3info id3info -h id3info 3.8.3 Usage: id3info [OPTIONS]... [FILES]... -h --help Print help and exit -V --version Print version and exit -a --assign Test the assignment operator (default=off) -w --warning Turn on warnings (for debugging) (default=off) -n --notice Turn on notices (for debugging) (default=off) Ich werde daraus nicht schlau, wie die Syntax genau lautet.

...

Ich denke, dass es das einfachste ist, "Artist" durch etwas zu ersetzen, zB "Various", dann kann ich alle Sampler zusammenfassen und den Text einfach sortieren. Doch wie mache das am effizientesten? Letztlich soll noch das 1. Feld und das 2. Feld getauscht werden. Mein Verdacht ist, dass es mit awk eine Lösung geben könnte, aber damit bin ich zuwenig vertraut.

Ergebnis sollte sein:

Enya | Shepherd Moons Enya | The Celts Máire Brennan | Máire Various | The Best Folk

$ echo 'Máire | Máire Brennan Shepherd Moons | Enya The Best Folk | Dublin City Ramblers The Best Folk | Jim McCann The Best Folk | Mary Black The Best Folk | Paddy Reilly The Best Folk | Ronnie Drew & The Dubliners The Best Folk | Stocktons Wing The Best Folk | The Dubliners The Best Folk | The Fureys & Davey Arthur The Celts | Enya ' | sort | ~/bin/albumsort Enya | Shepherd Moons Enya | The Celts Máire Brennan | Máire Various | The Best Folk

==== albumsort ==== #!/usr/bin/gawk -f BEGIN { FS=" *\\| *"; OFS=" | "; }

function output() { if (various == 1 && $1 != lastalbum) { print "Various", lastalbum | "sort"; } else { print lastartist, lastalbum | "sort"; } }

lastalbum { if( $1 == lastalbum ) { various = 1; } else { output(); various = 0; } }

{ lastalbum = $1; lastartist = $2; }

END { output(); } ========

In einem Perlscript könnte man übrigens das find (File::Find), das Tag-Abfragen (z.B. Audio::TagLib*, MP3::ID3Lib, MPEG::ID3v2Tag oder auch per Image::ExifTool::ID3) und Nachbearbeiten (samt sortieren) in einem Aufwasch erledigen. Theoretisch auch unter Ausnutzung von mehreren CPUs, aber ich glaube nicht, daß das was bringen würde, da das Dateisystem die Geschwindigkeit begrenzt.

Vielen Dank David, wie immer super! Fällt dir noch was ein, wie man "Various" ans Ende bringt? Irgendein Sonderzeichen davor half nicht. Al PS: Habe es mir angetan 3 Rechner umzubauen. Dabei bekam ich den starken Verdacht, dass die Rechner, die manchmal unerklärlich einfrieren nur im Runlevel 5 Probleme machen, im Runlevel 3 habe ich das noch nie beobachtet. Vielleicht ein Einergiesparproblem? Es scheint unabhängig von nv bzw. nvidia zu sein. -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org

Am Montag, 13. April 2009 14:51:42 schrieb Heinz Diehl:

On 13.04.2009, Al Bogner wrote:

...

Habe es mir angetan 3 Rechner umzubauen. Dabei bekam ich den starken Verdacht, dass die Rechner, die manchmal unerklärlich einfrieren nur im Runlevel 5 Probleme machen, im Runlevel 3 habe ich das noch nie beobachtet.

http://www.mersenne.org/freesoft/

Lass# doch mal einen "torture test" damit laufen, dann siehst du es recht schnell.

Bitte für neue Probleme einen neuen Therad dafür aufmachen, sonst findet man das später nicht mehr :/ Grüße & schöne Ostertage Michael

So ein Phänomen hab ich auch, allerdings erst nach den letzten beiden Updates bei denen auch jeweile ein Kernel update gemacht wurde. Ich habe eine AMD 64 bit Dualcore CPU und eine ATI 4650 Grafikkarte. Bei mir bleibt das System auch beim booten hängen wenn es in Level 5 durchstarten soll und zwar wenn er die Grafik einschaltet (X startet). Wenn ich schrittweise boote, zum Beispiel zuerst in Level 2, dann mit root anmelden und init 5 eingeben dann läuft es hoch. Das scheint gut reproduzierbar denn bei 2 von 2 Versuchen hats "geklappt". Öfter wollte ich das nicht machen weil man ja jedesmal "hart" abschalten muss und jedesmal ein fsck die Dateisysteme reparieren muss. Ab und zu hab ich dann auch den Fall dass das System "mittendrin" einfriert. So wie ich das sehe passiert es jedesmal wenn Grafik und gleichzeitig Netzaktivitäten laufen. Das ist auch in dem genannten Fall bei booten so: das System will gerade die Ethernetinterfaces initialisieren und gleichzeitig die Grafik einschalten (bei einem Dual core laufen einige init Prozesse parallel). Wenn ich zuerst in level 2 boote dann sind die Ethernetinterfaces initialisiert (bzw. der Versuch sie zu initialisieren ist zu Ende) bevor ich in level 5 und damit in den Grafikmodus umschalte. Wenn ich mir die CPU Temperatur ansehe (ich hab einen extra Temperaturfühler mit Anzeige zur Lüftersteuerung), dann sieht es so aus als wenn der Kernel in einem Loop ist - die CPU Temeperatur steigt nämlich in den beiden Fällen deutlich an. Viele Grüsse, Werner M. Skiba schrieb:

Am Montag, 13. April 2009 14:51:42 schrieb Heinz Diehl:

...

On 13.04.2009, Al Bogner wrote:

...

Habe es mir angetan 3 Rechner umzubauen. Dabei bekam ich den starken Verdacht, dass die Rechner, die manchmal unerklärlich einfrieren nur im Runlevel 5 Probleme machen, im Runlevel 3 habe ich das noch nie beobachtet. http://www.mersenne.org/freesoft/

Lass# doch mal einen "torture test" damit laufen, dann siehst du es recht schnell.

Bitte für neue Probleme einen neuen Therad dafür aufmachen, sonst findet man das später nicht mehr :/

Grüße & schöne Ostertage Michael

-- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org

Hallo Al, Am Mon, 13 Apr 2009, Al Bogner schrieb:

Am Montag 13 April 2009 02:33:19 schrieb David Haller:

...

Am Don, 09 Apr 2009, Al Bogner schrieb:

...

Ich überlege ein simples Shell-Skript um meine CDs neu zu ordnen.

Problem sind die CDs mit mehreren Künstlern (Various), wobei ich hier einen Kompromiss eingehe und definiere, dass die CD durch den Albumtitel bestimmt ist, mehrmals ein Album "Best of" ist also ein Problem, das ich vernachlässige.

Abgefragt wird so:

find "$SEARCHDIR" -type f -name "*.mp3" | while IFS= read -r MP3FILE; do echo `/usr/bin/exiftool -q -q -s -s -s -Album "$MP3FILE"`" | "`/usr/bin/exiftool -q -q -s -s -s -Artist "$MP3FILE"` | tee -a "$ALL" done [..] Vielleicht kann exiftool mittlerweile auch Delimiter. Mehrere Felder abfragen ist ja kein Problem.

exiftool -q -q -s -s -s -Album -Artist 01_theme_from_harrys_game- clannad-1989_past_present.mp3

1989 - Past Present Clannad

Die Ausgabe könnte man verwenden. exiftool scheint ein '-' auszugeben, wenn ein Feld leer/unbekannt ist o.ä, d.h. die Ausgabe ist wohl immer zweizeilig? Das könnte man (im awk) passend behandeln.

Das würde alles natürlich gewaltig beschleunigen, dass das am meisten Zeit braucht.

Geht auch perl-intern. Und id3(info) wären vermutlich auch schneller als exiftool (hab da jetzt keinen Vergleich, das exiftool hier auf der ollen Kiste meint nur "Error: Unknown image type" wenn ich's auf ein mp3 ansetze, Ausgabe "-\n-" ;) Aber wenn man (eigenes script oder halt exiftool) sowieso ein perl laufen hat, kann man Image::ExifTool auch "intern" aufrufen, d.h. effizient ohne extra Prozess. Und die Vor- und Nachbehandlung und den ganzen Rest auch gleich miterledigen (s.u.) ;)

...

BTW: mit id3info z.B. kannst du Album und "Artist" mit einer Abfrage rausziehen. Und '|' ist als Trennzeichen nicht so praktisch (wenn auch schön lesbar).

Das Trennzeichen wäre mir egal, notfalls kann man es ja zum Schluss ersetzen. Die Frage ist nur welches Trennzeichen. Es darf in der CDDB nicht vorkommen.

k.A. was in der CDDB alles vorkommt -- nur sollte das Zeichen nicht in der Shell _und_ in div. Scriptsprachen eine Sonderbedeutung haben und somit mehrfach escaped werden müssen, wenn man's z.B. in ner Regex angeben will ... Im Zweifelsfall ASCII-NUL, ansonsten TAB, ' ', ',', ':', ';', oder ein sonst nur selten verwendetes Sonderzeichen (wie z.B. '§', '¶', '¡' oder '¿' (je nach Zeichensatz zu ergänzen / ersetzen). Ich mag '¡' weil rel. leserlich ;) ¡Dios mio! ;)

Wie würdest du die find-Schleife lösen? Wichtig ist, dass id3info mit UTF-8 klar kommt.

Ich würde (mal wieder) alles in nem perl-script erledigen... ==== #!/usr/bin/perl -w use strict; use File::Find; use MP3::Tag; use Ogg::Vorbis::Header::PurePerl; ## Ogg::Vorbis::Header ist ## evtl. schneller ... my %info; sub wanted { -f $File::Find::name || return; if( m/\.mp3$/i ) { if(my $id3 = MP3::Tag->new($File::Find::name) ) { $info{$File::Find::name}{artist} = $id3->artist(); $info{$File::Find::name}{album} = $id3->album(); } } if( m/\.ogg$/i ) { if( my $ogg = Ogg::Vorbis::Header::PurePerl->new($File::Find::name)) { $info{$File::Find::name}{artist} = $ogg->{COMMENTS}->{artist}->[0]; $info{$File::Find::name}{album} = $ogg->{COMMENTS}->{album}->[0]; } } } scalar(@ARGV) or push(@ARGV, "."); ### DEFAULT setzen find( { wanted => \&wanted, no_chdir => 1, follow => 1 }, @ARGV ); use Data::Dumper; print Dumper(\%info); ==== Aufruf mit den zu durchsuchenden Verzeichnissen, default '.' (s. kommentierte Zeile). Mit dem Hash %info kann man dann alles mögliche anstellen -- oder evtl. einiges schon direkt in der wanted-Funktion miterledigen. Kommt halt darauf an, was hinten rausfallen soll. Und ja, ggfs. kann man auch von/nach UTF-8 oder sonstwas konvertieren. Ebenso wie eine Behandlung weiterer Dateiarten und ggfs. nach Dateiinhalt (langsamer) statt nach Dateiendung. Es gibt auch Perl-Module, die das zumindest für mp3, ogg und flac wohl schon können (Audio::File und Audio::Tag oder so), eines davon greift auf oben verwendete Module zurück (d.h. man erspart sich, selber die Unterscheidung der Dateitypen zu machen). Ich hab auch schon ein bissl mehr als das oben, nur hänge ich etwas, da ich nicht weiß, was du eigentlich als Ausgabe willst. -> PM?

id3info -h [..] Ich werde daraus nicht schlau, wie die Syntax genau lautet.

$ id3info foo.mp3 $ id3 -l foo.mp3 [.. awkscript ..]

Vielen Dank David, wie immer super!

*g*

Fällt dir noch was ein, wie man "Various" ans Ende bringt? Irgendein Sonderzeichen davor half nicht.

Normal sollte ein '~' oder '}' oder so helfen (siehe 'man ascii'), das man vorne anfügt und nach dem 'sort' wieder entfernt. Elegant ist das aber nicht. Achso, die Sortierung hängt von LC_COLLATE ab, setze im Zweifel explizit 'export LC_COLLATE=POSIX', wenn du reproduzierbare Ergebnisse haben willst. Evtl. ist aber sogar ein spezfisches 'sort' in Perl effektiver, falls du nicht sowieso alles in einem perlscript abhandelst. Du kannst in perl so sortieren wie auch immer du willst -- und innerhalb eines größeren Scripts (oder als Modul) ist das auch schön effizient. Wenn du extra ein perl startest kommt es auf die Relation zur Menge der Eingabedaten an und den Zweck an. Einen Interpret "Various" kann man so jedenfalls "nach hinten" schieben. Und mit/in Perl kann man generell prima Dateien suchen, verwursten, Meta-Daten auslesen, verwursten, beliebig sortieren[3], ausgeben ... Es gibt nicht ohne Grund das Tool 'find2perl' ;) find2perl . -type f -name "*.mp3" Die find2perl-Ausgabe verwendet in diesem Beispiel allerdings ein paar Sachen, die unnötig sind, und andererseits fehlen welche (vgl. oben) -- die Ausgabe ist eben als Gerüst gedacht. -dnh PS:

Habe es mir angetan 3 Rechner umzubauen. Dabei bekam ich den starken Verdacht, dass die Rechner, die manchmal unerklärlich einfrieren nur im Runlevel 5 Probleme machen, im Runlevel 3 habe ich das noch nie beobachtet. Vielleicht ein Einergiesparproblem?

Möglich. Und oder ohne "-spar-" (s.u.) ;)

Es scheint unabhängig von nv bzw. nvidia zu sein.

Frieren die Kisten auch ein, wenn du in den RL3 bootest und X dann per startx startest? Nur unter Last oder erst nach x min "idle"? Ansonsten sind generell erstmal die HW / die Treiber verdächtig. Hast du evtl. neue HW in den Kisten? Netzteil ist bei letzterem dann auch verdächtig (ne HDD mehr, die beim Anlaufen bis zu ~30W brauchen kann, kann "zuviel" sein -- oder eben wenn die GraKa loslegt o.ä.). Sowas ähnliches hatte ich IIRC auch (im alten Rechner, als dann 4 Festplatten + DVD-Brenner + TV-Karte drinsteckten), allerdings mehr beim Booten[2] (allerdings mit ner GraKa, die (konstant) nur ein paar wenige Watt (<10W, eher <5W) schluckt, d.h. mit ner neueren GraKa kann diese dann beim Start von X mehr Strom brauchen und somit (erst) der Auslöser sein, was bei mir schon die Platten beim booten waren). Mit nem neuen Netzteil läufts => Überschlagsrechnung bzgl. (Spitzen-) Strombedarf... Oder eine Unverträglichkeit zwischen Steckkarten[1]. Im Zweifelsfall dann mal testhalber den Rechner "abspecken"... Aber ich denke, es gibt einige andere Sachen, die du (einfacher) testen solltest, bevor die zeitaufwendige Bastelei dran ist. Weiteres dann wohl besser im anderen Thread oder per PM, oder? Achso, ich hab noch ein bissl was nachzuholen, hoffe aber, daß ich morgen wieder etwas am Script weiterbasteln kann :) [1] der Dawi DC-154 SATA-Controller hat den alten Rechner reproduzierbar einfrieren lassen, wenn ein bissl was auf dem PCI-Bus los war (oder evtl. auch speziell wenn's zum ISA-Bus ging?), da mochte irgendwas den nicht (ISA/PCI). Im neuen Rechner läuft der Controller seit nun 2 Jahren zuverlässig ... Mach dir deinen eigenen Reim drauf ;) [2] Grub startete erst nachdem alle Platten liefen und ich nochmal nen Reset gemacht hab [3] Nur der Speicherbedarf setzt da Grenzen, da muß man ggfs. aufpassen bzw. passend programmieren. Aber im Vergleich zur Shell ist es i.d.R. kein Nachteil. -- Death: I am last minute stuff! -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um eine Liste aller verfuegbaren Kommandos zu bekommen, schicken Sie eine Mail an: opensuse-de+help@opensuse.org