How to find untagged audio files? Post: 302482649

Sponsored Content

Top Forums UNIX for Dummies Questions & Answers How to find untagged audio files? Post 302482649 by radoulov on Wednesday 22nd of December 2010 07:14:08 AM

12-22-2010

Registered User

OK, now let's clear the code a little bit:

Code:

find . -type f -name '*.[Mm][Pp]3' -exec id3 -Rl {} + -o \
  -name '*.[Ff][Ll][Aa][Cc]' -exec metaflac --show-md5sum  \
    --with-filename --export-tags-to=- {} + |
  awk 'BEGIN {
    mp3n        = split("album artist title track",       mp3_tags)
    flacn       = split("album artist title tracknumber", flac_tags)
    ignorepatt  = "^ *(unknown|track *[0-9]*)* *$"    
    }
  
  /^Filename/ || $1 ~ /\.[Ff][Ll][Aa][Cc]$/ {
    fn && check_tags(fn ~ /\.[Ff][Ll][Aa][Cc]$/ ? "flac" : x)
    fn = /^Filename/ ? $2 : $1; f = x        
     }
  
  { 
    if (split($0, tmp, "=") == 2) { $1 = tmp[1]; $2 = tmp[2] }
    tags[tolower($1)] = $2 
      }
  
  END { check_tags(fn ~ /\.[Ff][Ll][Aa][Cc]$/ ? "flac" : x) }
  
  func check_tags(ty,   f) {
    if (ty == "flac") {
      for (i = 1; i <= flacn; i++) {
        if (tolower(tags[flac_tags[i]]) ~ ignorepatt) {
          invalid_tags[flac_tags[i]] = tags[flac_tags[i]]; f || f++ 
          }
        }
      }    
    else {
      for (i = 1; i <= mp3n; i++) {
        if (tolower(tags[mp3_tags[i]]) ~ ignorepatt) {
          invalid_tags[flac_tags[i]] = tags[flac_tags[i]]; f || f++
          }
        }
      }  
    if (f) {
      print RS, fn, "has missing/invalid tags:"
        for (t in invalid_tags)
          printf "%s -> %s\n", t, invalid_tags[t]
       }
    split(x, tags); split(x, invalid_tags)   
    }' FS=:

radoulov

View Public Profile for radoulov

Find all posts by radoulov

7 More Discussions You Might Find Interesting

1. Programming

Playing Audio files in C

Hi All, Looking for an assistance on how to access the speakers of my machine and play audio files using C. Any tutorials will be of great help. Regards, Sayantan.

2. UNIX for Dummies Questions & Answers

Find Audio Files With Specific Bandwidth?

Hi, I would like to write a shell script that will: -search the files of a specific user to find any audio files with a bandwidth iqual or greater than 192 kps - on the results i should see the file name along with all the whole file route and each file's size So I guess i should be using...

3. Shell Programming and Scripting

Script to list files not present in audio.txt file

I am having following folder structure. /root/audios/pop /root/audios/jazz /root/audios/rock Inside those pop, jazz, rock folders there are following files, p1.ul, p2.ul, p3.ul, j1.ul, j2.ul, j3.ul, r1.ul, r2.ul, r3.ul And I have a file named as "audio.txt" in the path /root/audios,...

4. Shell Programming and Scripting

Manipulating audio files server side

Hi All, I have next to zero knowledge on what I am about to ask so I will just ask it in plain English :) I am wondering how best to go about manipulating audio files server side. The manipulations required are join files one after the other, eg, audio1 + audio2 + audio3 + audio4 = audio5 ...

5. Slackware

Problems with audio recording in Audacity 2.0.5. Slackware64 14.1; Intel HD Audio.

I'm trying to record audio using Audacity 2.0.5 installed from SlackBuilds. My system is 64-bit Slackware 14.1 and a sound card is Intel HD Audio. I didn't change my sound system to OSS. (Default sound system in Slackware 14.1 is ALSA, isn't it?) First, I set Internal Microphone slider in KMix...

6. UNIX for Dummies Questions & Answers

Remove untagged and junk data from an XML

Hi All , I have seen a lot of code samples which suggest how to remove the junk data from and XML , I need a code in unix which removes the junk characters as well as the valid characters those are not in XML tags , for example my XML is as follows : <?xml version="1.0"...

7. Shell Programming and Scripting

Need a script for automation the convert a lot number audio files to another format

I have a lot number audio files in the MP3 proprietary format, I want to convert them to 'opus' the free and higher quality format, with keep metadata also. My selection command-line programs are SoX (Sound eXchange) for convert MP3 files to 'AIFF' format in order to keep quality and metadata*...

LEARN ABOUT DEBIAN

mp3::tag::cddb_file

MP3::Tag::CDDB_File(3pm)				User Contributed Perl Documentation				  MP3::Tag::CDDB_File(3pm)

NAME

       MP3::Tag::CDDB_File - Module for parsing CDDB files.

SYNOPSIS

	 my $db = MP3::Tag::CDDB_File->new($filename, $track); # Name of audio file
	 my $db = MP3::Tag::CDDB_File->new_from($record, $track); # Contents of CDDB

	 ($title, $artist, $album, $year, $comment, $track) = $db->parse();

       see MP3::Tag

DESCRIPTION

       MP3::Tag::CDDB_File is designed to be called from the MP3::Tag module.

       It parses the content of CDDB file.

       The file is found in the same directory as audio file; the list of possible file names is taken from the field "cddb_files" if set by
       MP3::Tag config() method.

       parse()
	     ($title, $artist, $album, $year, $comment, $track) =
		$db->parse($what);

	   parse_filename() extracts information about artist, title, track number, album and year from the CDDB record.  $what is optional; it
	   maybe title, track, artist, album, year, genre or comment. If $what is defined parse() will return only this element.

	   Additionally, $what can take values "artist_collection" (returns the value of artist in the disk-info field DTITLE, but only if author
	   is specified in the track-info field TTITLE), "title_track" (returns the title specifically from track-info field - the "track" may
	   fall back to the info from disk-info field), "comment_collection" (processed EXTD comment), "comment_track" (processed EXTT comment).

	   The returned year and genre is taken from DYEAR, DGENRE, EXTT, EXTD fields; recognized prefixes in the two last fields are YEAR, ID3Y,
	   ID3G.  The declarations of this form are stripped from the returned comment.

	   An alternative syntax "Recorded"/"Recorded on"/"Recorded in"/ is also supported; the format of the date recognized by ID3v2::year(), or
	   just a date field without a prefix.

       title()
	    $title = $db->title();

	   Returns the title, obtained from the 'Tracktitle' entry of the file.

       artist()
	    $artist = $db->artist();

	   Returns the artist name, obtained from the 'Performer' or 'Albumperformer' entries (the first which is present) of the file.

       track()
	    $track = $db->track();

	   Returns the track number, stored during object creation, or queried from the parent.

       year()
	    $year = $db->year();

	   Returns the year, obtained from the 'Year' entry of the file.  (Often not present.)

       album()
	    $album = $db->album();

	   Returns the album name, obtained from the 'Albumtitle' entry of the file.

       comment()
	    $comment = $db->comment();

	   Returns the 'Trackcomment' entry of the file.  (Often not present.)

       genre()
	    $genre = $db->genre($filename);

perl v5.14.2							    2009-04-15						  MP3::Tag::CDDB_File(3pm)