Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub get_user_album_name
- {
- my $pwd = getcwd();
- my @dirs = fileparse($pwd);
- chomp($uploaded_album_name = $dirs[0]);
- $uploaded_album_name=~ s/\b(\w)/\U$1/g;
- $uploaded_album_name =~ s/[^a-zA-Z0-9]//g;
- print "Looks like you want to upload name tags from local album: $uploaded_album_name \n";
- debug_print ("User entered album name : $uploaded_album_name \n");
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement