想了个方法。
foreach i (`ls e:/work`)
echo $i  >  c:/tmp/1.txt
sed 's/\..*//g' c:/tmp/1.txt > c:/tmp/2.txt
mv $i  `cat c:/tmp/2.txt`
end