Help for this page

Select Code to Download


  1. or download this
    while(<DATA>){
  # s/\.(?=.*?\.)/_/g;         # can you this if you know you have onl
+y the filename
...
test1.file1.new_20060411.zip
test2.file2.new_20060411.zip
test3.file3.new_20060411.zip
  2. or download this
    ls | perl -ne 'chomp; $f=$_; s#\.(?!.*?/)(?=.*?\.)#_#g; print "mv $f $
+_\n";'