a guest Jun 26th, 2011 171 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand