diff options
Diffstat (limited to 'build_playlists.plx')
| -rwxr-xr-x | build_playlists.plx | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/build_playlists.plx b/build_playlists.plx index 3e43098..d860d7d 100755 --- a/build_playlists.plx +++ b/build_playlists.plx @@ -141,11 +141,15 @@ else { $tag_hash{$tags_of_interest[$j]} = $db_output[$j]; } + # TODO break up by semicolon (signifying array of tag values) # Determine output_file $output_file = $output_pattern; $output_file =~ s/[{]([^}]*)[}]/$tag_hash{$1}/g; - # TODO remove illegal filename characters + # remove illegal filename characters, replace them with underscore + $output_file =~ s/[\/<>:"\\|?*]/_/g; + print "$output_file\n"; + # Open the file for writing open FH, ">> $output_file" or die $!; # DEBUG |