-
- if ( $_ =~ /mtime: / ){
- $songs{$key}="$file|$Time|$Artist|$Title|$Album|$Track|$Date|$Genre";
- push(@artist,$Artist);push(@album,$Album);push(@year,$Date);push(@genre,$Genre);
- $key="";$file="";$Time="";$Artist="";$Title="";$Album="";$Track="";$Date="";$Genre="";
- }
- elsif ( $_ =~ /key: / ){my @temp = split(/: /,$_);$key=$temp[1];}
- elsif ( $_ =~ /file: / ){my @temp = split(/: /,$_);$file=$temp[1];}
- elsif ( $_ =~ /Time: / ){my @temp = split(/: /,$_);$Time=$temp[1];}
- elsif ( $_ =~ /Artist: / ){my @temp = split(/: /,$_);$Artist=$temp[1];}
- elsif ( $_ =~ /Title: / ){my @temp = split(/: /,$_);$Title=$temp[1];}
- elsif ( $_ =~ /Album: / ){my @temp = split(/: /,$_);$Album=$temp[1];}
- elsif ( $_ =~ /Track: / ){my @temp = split(/: /,$_);$Track=$temp[1];}
- elsif ( $_ =~ /Date: / ){my @temp = split(/: /,$_);$Date=$temp[1];}
- elsif ( $_ =~ /Genre: / ){my @temp = split(/: /,$_);$Genre=$temp[1];}
- else {next;}
- }
-
- my %hash = map{ $_, 1 }@artist;
- @artist = sort keys %hash;
- my %hash = map{ $_, 1 }@album;
- @album = sort keys %hash;
- my %hash = map{ $_, 1 }@year;
- @year = sort keys %hash;
- my %hash = map{ $_, 1 }@genre;
- @genre = sort keys %hash;
-
- my $artistcount = $#artist+1;
- my $albumcount = $#album+1;
- my $yearcount = $#year+1;
- my $genrecount = $#genre+1;
+ if ( $_ =~ /mtime: / ){
+ $songs{$key}="$file|$Time|$Artist|$Title|$Album|$Track|$Date|$Genre";
+ push(@artist,$Artist);push(@album,$Album);push(@year,$Date);push(@genre,$Genre);
+ $key="";$file="";$Time="";$Artist="";$Title="";$Album="";$Track="";$Date="";$Genre="";
+ }
+ elsif ( $_ =~ /key: / ){my @temp = split(/: /,$_);$key=$temp[1];}
+ elsif ( $_ =~ /file: / ){my @temp = split(/: /,$_);$file=$temp[1];}
+ elsif ( $_ =~ /Time: / ){my @temp = split(/: /,$_);$Time=$temp[1];}
+ elsif ( $_ =~ /Artist: / ){my @temp = split(/: /,$_);$Artist=$temp[1];}
+ elsif ( $_ =~ /Title: / ){my @temp = split(/: /,$_);$Title=$temp[1];}
+ elsif ( $_ =~ /Album: / ){my @temp = split(/: /,$_);$Album=$temp[1];}
+ elsif ( $_ =~ /Track: / ){my @temp = split(/: /,$_);$Track=$temp[1];}
+ elsif ( $_ =~ /Date: / ){my @temp = split(/: /,$_);$Date=$temp[1];}
+ elsif ( $_ =~ /Genre: / ){my @temp = split(/: /,$_);$Genre=$temp[1];}
+ else {next;}
+ }
+
+ my %hash = map{ $_, 1 }@artist;
+ @artist = sort keys %hash;
+ my %hash = map{ $_, 1 }@album;
+ @album = sort keys %hash;
+ my %hash = map{ $_, 1 }@year;
+ @year = sort keys %hash;
+ my %hash = map{ $_, 1 }@genre;
+ @genre = sort keys %hash;
+
+ my $artistcount = $#artist+1;
+ my $albumcount = $#album+1;
+ my $yearcount = $#year+1;
+ my $genrecount = $#genre+1;