| 1 | |
| 2 | |
| 3 | print "\nModifying the '.t' files...\n\n"; |
| 4 | |
| 5 | use File::Basename; |
| 6 | use File::Copy; |
| 7 | |
| 8 | ## Change the below line to the folder you want to process |
| 9 | $DirName = "/perl/scripts/t"; |
| 10 | |
| 11 | $FilesTotal = 0; |
| 12 | $FilesRead = 0; |
| 13 | $FilesModified = 0; |
| 14 | |
| 15 | opendir(DIR, $DirName); |
| 16 | @Dirs = readdir(DIR); |
| 17 | |
| 18 | foreach $DirItem(@Dirs) |
| 19 | { |
| 20 | $DirItem = $DirName."/".$DirItem; |
| 21 | push @DirNames, $DirItem; # All items under $DirName folder is copied into an array. |
| 22 | } |
| 23 | |
| 24 | foreach $FileName(@DirNames) |
| 25 | { |
| 26 | if(-d $FileName) |
| 27 | { # If an item is a folder, then open it further. |
| 28 | |
| 29 | opendir(SUBDIR, $FileName); |
| 30 | @SubDirs = readdir(SUBDIR); |
| 31 | close(SUBDIR); |
| 32 | |
| 33 | foreach $SubFileName(@SubDirs) |
| 34 | { |
| 35 | if(-f $SubFileName) |
| 36 | { |
| 37 | &Process_File($SubFileName); # If file, process it. |
| 38 | } |
| 39 | else |
| 40 | { |
| 41 | $SubFileName = $FileName."/".$SubFileName; |
| 42 | push @DirNames, $SubFileName; # If sub-folder, push it into the array. |
| 43 | } |
| 44 | } |
| 45 | } |
| 46 | else |
| 47 | { |
| 48 | if(-f $FileName) |
| 49 | { |
| 50 | &Process_File($FileName); # If file, process it. |
| 51 | } |
| 52 | } |
| 53 | } |
| 54 | |
| 55 | close(DIR); |
| 56 | |
| 57 | print "\n\n\nTotal number of files present = $FilesTotal\n"; |
| 58 | print "Total number of '.t' files read = $FilesRead\n"; |
| 59 | print "Total number of '.t' files modified = $FilesModified\n\n"; |
| 60 | |
| 61 | |
| 62 | |
| 63 | |
| 64 | # Process the file. |
| 65 | sub Process_File |
| 66 | { |
| 67 | local($FileToProcess) = @_; # File name. |
| 68 | local($Modified) = 0; |
| 69 | |
| 70 | if(!(-w $FileToProcess)) { |
| 71 | # If the file is a read-only file, then change its mode to read-write. |
| 72 | chmod(0777, $FileToProcess); |
| 73 | } |
| 74 | |
| 75 | ## For example: |
| 76 | ## If the value of $FileToProcess is '/perl/scripts/t/pragma/warnings.t', then |
| 77 | ## $dir = '/perl/scripts/t/pragma/' |
| 78 | ## $base = 'warnings' |
| 79 | ## $ext = '.t' |
| 80 | $dir = dirname($FileToProcess); # Get the folder name |
| 81 | $base = basename($FileToProcess); # Get the base name |
| 82 | ($base, $dir, $ext) = fileparse($FileToProcess, '\..*'); # Get the extension of the file passed. |
| 83 | |
| 84 | |
| 85 | # Do the processing only if the file has '.t' extension. |
| 86 | if($ext eq '.t') { |
| 87 | |
| 88 | open(FH, "+< $FileToProcess") or die "Unable to open the file, $FileToProcess for reading and writing.\n"; |
| 89 | @ARRAY = <FH>; # Get the contents of the file into an array. |
| 90 | |
| 91 | foreach $Line(@ARRAY) # Get each line of the file. |
| 92 | { |
| 93 | if($Line =~ m/\@INC = /) |
| 94 | { # If the line contains the string (@INC = ), then replace it |
| 95 | |
| 96 | # Replace "@INC = " with "unshift @INC, " |
| 97 | $Line =~ s/\@INC = /unshift \@INC, /; |
| 98 | |
| 99 | $Modified = 1; |
| 100 | } |
| 101 | |
| 102 | if($Line =~ m/push \@INC, /) |
| 103 | { # If the line contains the string (push @INC, ), then replace it |
| 104 | |
| 105 | # Replace "push @INC, " with "unshift @INC, " |
| 106 | $Line =~ s/push \@INC, /unshift \@INC, /; |
| 107 | |
| 108 | $Modified = 1; |
| 109 | } |
| 110 | } |
| 111 | |
| 112 | seek(FH, 0, 0); # Seek to the beginning. |
| 113 | print FH @ARRAY; # Write the changed array into the file. |
| 114 | close FH; # close the file. |
| 115 | |
| 116 | $FilesRead++; # One more file read. |
| 117 | |
| 118 | if($Modified) { |
| 119 | print "Modified the file, $FileToProcess\n"; |
| 120 | $Modified = 0; |
| 121 | |
| 122 | $FilesModified++; # One more file modified. |
| 123 | } |
| 124 | } |
| 125 | |
| 126 | $FilesTotal++; # One more file present. |
| 127 | } |
| 128 | |