App::perlmv::scriptlets::std - A collection of perlmv scriptlets
Replace multiple spaces into a single space, example (<space> signifies actual space): "1<space><space>2.txt " -> "1<space>2.txt"
Remove all but the last file extension if there are more than one, e.g. (1.tar, 2.mp3.mp3) -> (1.tar, 2.mp3). TODO: treat tar.gz/tar.bz2/etc as one extension.
Rename Chinese characters in filename into their pinyin. Requires Lingua::Han::Pinyin.
Remove prefix that are common to all args, e.g. (file1, file2b) -> (1, 2b)
Remove suffix that are common to all args, while preserving extension, e.g. (1-radiolab.mp3, 2-radiolab.mp3) -> (1.mp3, 2.mp3)
Remove the last file extension, e.g. (1, 2.mp3, 3.tar.gz) -> (1, 2, 3.tar)
Remove all file extensions, e.g. (file.html.gz) -> (file)
Rename files into numbers. Ex: (file1.txt, foo.jpg, quux.mpg) -> (1.txt, 2.jpg, 3.mpg). See also: to-number-ext.
Rename files into numbers. Preserve extensions. Ex: (file1.txt, foo.jpg, quux.mpg) -> (1.txt, 2.jpg, 3.mpg)
Rename files into timestamp. Ex: file1.txt -> 2010-05-13-10_43_49. See also: to-timestamp-ext.
Rename files into timestamp. Preserve extensions. Ex: file1.txt -> 2010-05-13-10_43_49.txt
Remove leading and trailing blanks, example: " abc def .txt " -> "abc def.txt"
Remove accents in filename, e.g. accÃ©der.txt -> acceder.txt. Requires Text::Unaccent::PurePerl.
If you have cool scriptlets to share, feel free to contact me so I can include them here.
Steven Haryanto <email@example.com>
This software is copyright (c) 2013 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.