Search Results

Oops!!..
This should work.


perl -le 'foreach(@ARGV){if($_ =~/\$/){$a =$_; $a=~s/\$/\\\$/g;$_=~s/\$//g; print `mv $a $_`}}' *

Or try..
!#/bin/ksh
for file in `ls -1 *\$*` # Note ls -1(one) and not the alphabet L
do
NEW_FILE=$(echo "$file" | sed 's/\$//g')
mv "$file" "$NEW_FILE"
echo "Moved file: $file"...