+ my $artist=$file->artist();
+ my $album=$file->album();
+ my $track=$file->track();
+ my $tracknum=$file->tracknum();
+ my $year=$file->year();
+ my $comment=$file->comment();
+ my $v1genre=$file->v1genre();
+ my @tags=$file->tags();
+ if($verbose)
+ {
+ print $file->path(), ":\n";
+ print "tracknum: $tracknum\n" if($tracknum);
+ print "artist: $artist\n" if($artist);
+ print "album: $album\n" if($album);
+ print "song: $track\n" if($track);
+ print "year: $year\n" if($year);
+ print "v1genre: $v1genre\n" if($v1genre);
+ print "comment: $comment\n" if($comment);
+ }
+ else
+ {
+ my @fields=($file->path(), $tracknum, $artist, $album, $track,
+ $year, $v1genre, $comment);
+ @fields=map { defined($_) ? $_ : ""; } @fields;
+ print join(':', @fields), "\n";
+ if(@tags)
+ {
+ print "tags:", join(", ", @tags), "\n";
+ }
+ }