File Rename Example
File Rename Example
- Useful for renaming files for DOS naming rules
- Returns Error Codes
- 1 for Success
- 0 for Failure
- rename() Won’t work across file system boundaries
foreach ( @ARGV ){
if ( /gmif1[0-9]{5}/i ){
$currentname=$_; tr/[A-Z]/[a-z]/;
s/(gmi)f1([0-9]{5})/\1\2.txt/;
}
if ( /sett[0-9]{4}/i ){
$currentname=$_; tr/[A-Z]/[a-z]/;
s/(sett)([0-9]{4})/\1\2.txt/;
}
rename ($currentname, $_);
}