Lines Matching full:file
35 use File::Find;
53 my $file = $_;
55 if ($file eq "icu") {
56 $File::Find::prune = 1;
60 if ($file =~ /^\../) {
61 $File::Find::prune = 1;
65 return if $file =~ /^ChangeLog/;
66 return if -d $file;
68 push @paths, $File::Find::name;
148 for my $file (sort @paths) {
149 my $f = $file;
151 if ($f ne $file) {
152 $newFile{$file} = $f;
159 for my $file (sort @paths) {
160 if ($newFile{$file}) {
161 my $newFile = $newFile{$file};
162 print "Renaming $file to $newFile\n";
164 system "git mv $file $newFile";
166 system "svn move $file $newFile";
171 # change all file contents
173 for my $file (sort @paths) {
174 $file = $newFile{$file} if $newFile{$file};
178 open FILE, $file or die;
179 $contents = <FILE>;
180 close FILE;
195 open FILE, ">", $file or die;
196 print FILE $newContents;
197 close FILE;
