Commit | Line | Data |
---|---|---|
2986a63f JH |
1 | |
2 | ||
3 | print "\nModifying the '.t' files...\n\n"; | |
4 | ||
5 | use File::Basename; | |
6 | use File::Copy; | |
7 | ||
225a5dca | 8 | ## Change the below line to the folder you want to process |
2986a63f JH |
9 | $DirName = "/perl/scripts/t"; |
10 | ||
11 | $FilesTotal = 0; | |
12 | $FilesRead = 0; | |
13 | $FilesModified = 0; | |
14 | ||
225a5dca | 15 | opendir(DIR, $DirName); |
2986a63f JH |
16 | @Dirs = readdir(DIR); |
17 | ||
18 | foreach $DirItem(@Dirs) | |
19 | { | |
20 | $DirItem = $DirName."/".$DirItem; | |
225a5dca | 21 | push @DirNames, $DirItem; # All items under $DirName folder is copied into an array. |
2986a63f JH |
22 | } |
23 | ||
24 | foreach $FileName(@DirNames) | |
25 | { | |
26 | if(-d $FileName) | |
225a5dca | 27 | { # If an item is a folder, then open it further. |
2986a63f | 28 | |
225a5dca | 29 | opendir(SUBDIR, $FileName); |
2986a63f JH |
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; | |
225a5dca | 42 | push @DirNames, $SubFileName; # If sub-folder, push it into the array. |
2986a63f JH |
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 | ||
2986a63f JH |
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 | ||
225a5dca | 75 | ## For example: |
2986a63f JH |
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' | |
225a5dca JH |
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. | |
2986a63f JH |
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 | ||
2986a63f JH |
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. | |
2986a63f JH |
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 |