20070702 replace spaces in a file with underscores - plembo/onemoretech GitHub Wiki

title: replace spaces in a file with underscores link: https://onemoretech.wordpress.com/2007/07/02/replace-spaces-in-a-file-with-underscores/ author: lembobro description: post_id: 679 created: 2007/07/02 16:16:00 created_gmt: 2007/07/02 16:16:00 comment_status: open post_name: replace-spaces-in-a-file-with-underscores status: publish post_type: post

replace spaces in a file with underscores

Helpful for making those Windoze to UNIX transitions:

#!/usr/bin/perl -w
use File::Path;
@files = glob( "*" );
foreach $files (@files){
    $old = $files;
    $files =~ s/s/_/g;
    rename( $old, $files);
}