Mercurial > ec-dotfiles
view bin/basicopt @ 397:f6d29c03142f
Added perl rename from debian system.
author | Edho Arief <edho@myconan.net> |
---|---|
date | Thu, 09 Aug 2012 17:16:29 +0700 |
parents | 5bafb912837e |
children | 7f5234a312f7 |
line wrap: on
line source
#!/bin/sh get_filename() { printf "%s\n" "$*" | sed -e 's/^\(.*\)\.[^.]*$/\1/' } get_extension() { if [ -n "$(printf "%s\n" "$*" | sed -e 's/^[^.]*//')" ]; then printf "%s\n" "$*" | sed -e 's/^.*\(\.[^.]*$\)/\1/' else printf "%s\n" "" fi }