Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

compact filenames to < 64 characters

by RuyLopez (Novice)
on Jul 02, 2002 at 10:14 UTC ( #178812=snippet: print w/replies, xml ) Need Help??
Description: Sometimes I'm asked to make cd's of files with hugely descriptive long long filenames , but I can't write filenames over 64 chars to cd.
This script compacts such filenames by firstly removing whitespace, then a wordlist, and if still too long it deletes the end of the name (not including the extension).
It works recursively from the directory specified at command line.
rl.
#!/usr/bin/perl -w
use File::Find;

find(\&crusher, $ARGV[0]);

sub crusher{
    $nlength = length($_);
    if ($nlength > 64){
        ($fname, $extension) = split(/\./,$_, 2);
        $fname =~ s/\W//g;                                        
        $fname =~ s/(the|this|that|at|on|in|of|to|by|with)//ig;    
        if (length($fname) + length($extension) > 63){        
            $fkeep=  (63 - length($extension));
            $fname = substr($fname, 0, $fkeep);                
        }
    $newname = join ".", ($fname,$extension);
    rename($_, $newname) or warn "couldn't rename : $! \n";
    }
}
Replies are listed 'Best First'.
Re: compact filenames to < 64 characters
by gav^ (Curate) on Jul 02, 2002 at 12:26 UTC
    You might want to consider the case where a filename contains a '.'

    gav^

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://178812]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2020-10-22 12:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (225 votes). Check out past polls.

    Notices?