<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>tmp.pl</title>
<style type="text/css">
<!--
body {
color: #000000;
background-color: #ffffff;
}
.cperl-hash {
}
.cperl-nonoverridable {
}
.function-name {
/* font-lock-function-name-face */
color: #0000ff;
font-weight: bold;
}
.keyword {
/* font-lock-keyword-face */
color: #00ffff;
font-weight: bold;
}
.string {
/* font-lock-string-face */
color: #00ff00;
}
.type {
/* font-lock-type-face */
color: #00ff00;
}
a {
color: inherit;
background-color: inherit;
font: inherit;
text-decoration: inherit;
}
a:hover {
text-decoration: underline;
}
-->
</style>
</head>
<body>
<pre>
<span class="keyword">my</span> <span class="cperl-hash">%all_mp3s</span> = ();
<span class="type">opendir</span>(MUSIC_DIR, $mp3_file_path) || <span class="keyword">die</span> <span class="string">"$mp3_file_path coud not be opened: $!"</span>;
<span class="keyword">while</span>( <span class="cperl-nonoverridable">defined</span> ( <span class="keyword">my</span> $artist_dir = <span class="type">readdir</span> MUSIC_DIR) ) {
<span class="keyword">next</span> <span class="keyword">if</span> $artist_dir =~ <span class="string">/^\./</span>;
<span class="keyword">next</span> <span class="keyword">if</span> !(<span class="function-name">-d</span> <span class="string">"$mp3_file_path/$artist_dir"</span>);
<span class="cperl-nonoverridable">print</span> <span class="string">"scanning dir $mp3_file_path/$artist_dir\n"</span>;
<span class="type">opendir</span>(ARTIST_DIR, <span class="string">"$mp3_file_path/$artist_dir"</span>) || <span class="keyword">die</span> <span class="string">"$mp3_file_path/$artist_dir coud not be opened: $!"</span>;
<span class="keyword">while</span>( <span class="cperl-nonoverridable">defined</span> ( <span class="keyword">my</span> $album_dir = <span class="type">readdir</span> ARTIST_DIR) ) {
<span class="keyword">next</span> <span class="keyword">if</span> $album_dir =~ <span class="string">/^\.\.?$/</span>;
<span class="cperl-hash">$all_mp3s</span>{<span class="string">"$artist_dir/$album_dir"</span>} = 0;
}
}
</pre>
</body>
</html>