主要是在技術上留下腳印,但偶爾還是會寫鬼東西。
#!/usr/bin/perl -w use File::Find; $start_dir = shift || '.'; find( sub{ if($_ =~ /\ /){ my $new=$_; $new=~s/\ /\_/g; print "$_ --> $new\r\n"; rename($_,$new); } }, $start_dir );
沒有留言:
張貼留言