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