NAME

App::perlmv::scriptlets::std - A collection of perlmv scriptlets

VERSION

version 0.45

SCRIPTLETS

dedup-space

Replace multiple spaces into a single space, example (<space> signifies actual space): "1<space><space>2.txt " -> "1<space>2.txt"

keep-one-ext

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.

pinyin

Rename Chinese characters in filename into their pinyin. Requires Lingua::Han::Pinyin.

remove-common-prefix

Remove prefix that are common to all args, e.g. (file1, file2b) -> (1, 2b)

remove-common-suffix

Remove suffix that are common to all args, while preserving extension, e.g. (1-radiolab.mp3, 2-radiolab.mp3) -> (1.mp3, 2.mp3)

remove-ext

Remove the last file extension, e.g. (1, 2.mp3, 3.tar.gz) -> (1, 2, 3.tar)

remove-all-ext

Remove all file extensions, e.g. (file.html.gz) -> (file)

to-number

Rename files into numbers. Ex: (file1.txt, foo.jpg, quux.mpg) -> (1.txt, 2.jpg, 3.mpg). See also: to-number-ext.

to-number-ext

Rename files into numbers. Preserve extensions. Ex: (file1.txt, foo.jpg, quux.mpg) -> (1.txt, 2.jpg, 3.mpg)

to-timestamp

Rename files into timestamp. Ex: file1.txt -> 2010-05-13-10_43_49. See also: to-timestamp-ext.

to-timestamp-ext

Rename files into timestamp. Preserve extensions. Ex: file1.txt -> 2010-05-13-10_43_49.txt

trim

Remove leading and trailing blanks, example: " abc def .txt " -> "abc def.txt"

unaccent

Remove accents in filename, e.g. accéder.txt -> acceder.txt. Requires Text::Unaccent::PurePerl.

HAVE MORE?

If you have cool scriptlets to share, feel free to contact me so I can include them here.

AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

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.

cpanm App::perlmv

perl -MCPAN -e shell
install App::perlmv