AI-MicroStructure
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
bin/micro-rename view on Meta::CPAN
#!/bin/bash
IFS_BAK=$IFS;
IFS=$'\n';
# blank-rename.sh
#
# Substitutes underscores for blanks in all the filenames in a directory.
filename=$1
ONE=1 # For getting singular/plural right (see below).
number=0 # Keeps track of how many files actually renamed.
FOUND=0 # Successful return value.
fname=$1 # Yes, this filename needs work.
n=`echo $fname | sed -e "s/ /_/g" | sed -e "s/'//g" | sed -e "s/&/and/g" | tr A-Z a-z | sed -e "s/)/_/g" | sed -e "s/(/_/g" | sed -e "s/\[//g" | sed -e "s/\]//g" | sed -e "s/\,//g" | sed -e "s/\;//g"` #
# | sed -e "s/[/_/g" | sed -e "s/]//g" | sed -e "s/)//g" | sed -e "s/(//g"`
mv "$1" "$n" > /dev/null;
IFS=$IFS_BAK;
exit 0
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.506 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )