Advertisement
Guest User

Untitled

a guest
Jun 26th, 2011
411
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.37 KB | None | 0 0
  1. sub get_user_album_name
  2. {
  3.         my $pwd = getcwd();
  4.         my @dirs = fileparse($pwd);
  5.         chomp($uploaded_album_name = $dirs[0]);
  6.         $uploaded_album_name=~ s/\b(\w)/\U$1/g;
  7.         $uploaded_album_name =~ s/[^a-zA-Z0-9]//g;
  8.         print "Looks like you want to upload name tags from local album: $uploaded_album_name \n";
  9.         debug_print ("User entered album name : $uploaded_album_name \n");
  10. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement