refactor/replace_cvs/replace_cvs.pl

#!/usr/bin/perl

##    -----------------------------------------------------------------------------------------
##    $Id: replace_cvs.pl,v 1.1 2002/10/17 04:45:45 joko Exp $
##    -----------------------------------------------------------------------------------------
##    $Log: replace_cvs.pl,v $
##    Revision 1.1  2002/10/17 04:45:45  joko
##    + new
##
##
##    -----------------------------------------------------------------------------------------

use strict;
use warnings;

use Carp;
use File::Find;
use Getopt::Long;

my $basedir;
my $pattern_substitution;
my $pattern_filename;
my $verbose;
my $dryrun;

GetOptions(
  'basedir=s' => \$basedir,
  'file-pattern=s' => \$pattern_substitution,
  'substitution-pattern=s' => \$pattern_filename,
  'dry-run=s' => \$dryrun,
  #'interactive=s' => \$verbose,
  'verbose=s' => \$verbose,
  #'report=s' => \$verbose,
  'usage' => \&usage,
  'help' => \&usage,
);

sub usage {
  print <<EOU;

  replace.pl -- replaces contents in files by applying regular expression
  
    --substitution-pattern: give regex-pattern for substitution (e.g. "s/world/earth/")
    --file-pattern: 
    --basedir

EOU

}


my $pattern = shift;
if (!$pattern) { 
  print ("no pattern!");
  #usage();
  exit;
}

my $path = shift;
if (!$path) { 
  print ("no path!");
  #usage();
  exit;
}

#my $pattern_file = '/CVS/Root';
my $pattern_file = '.*';

sub replaceInFile {
  my $filename = shift;
  my $filename_bak = $filename . ".bak";
  open(RH, $filename);
  open(WH, '>' . $filename_bak);
  while(<RH>) {
    eval($pattern);
    #print $_, "\n";
    print WH $_;
  }
  close(WH);
  close(RH);
  
  #unlink $filename;
  #rename $filename_bak, $filename;
  
}

sub wanted {
  if ($File::Find::name =~ m/$pattern_file$/) {
    print $File::Find::name, "\n";
    replaceInFile($File::Find::name);
    #exit;
  }
}

sub main {
  find(\&wanted, $path);
}

main();
1	joko	1.1	#!/usr/bin/perl
2
3			## -----------------------------------------------------------------------------------------
4			## $Id: replace_cvs.pl,v 1.1 2002/10/17 04:45:45 joko Exp $
5			## -----------------------------------------------------------------------------------------
6			## $Log: replace_cvs.pl,v $
7			## Revision 1.1 2002/10/17 04:45:45 joko
8			## + new
9			##
10			##
11			## -----------------------------------------------------------------------------------------
12
13			use strict;
14			use warnings;
15
16			use Carp;
17			use File::Find;
18			use Getopt::Long;
19
20			my $basedir;
21			my $pattern_substitution;
22			my $pattern_filename;
23			my $verbose;
24			my $dryrun;
25
26			GetOptions(
27			'basedir=s' => \$basedir,
28			'file-pattern=s' => \$pattern_substitution,
29			'substitution-pattern=s' => \$pattern_filename,
30			'dry-run=s' => \$dryrun,
31			#'interactive=s' => \$verbose,
32			'verbose=s' => \$verbose,
33			#'report=s' => \$verbose,
34			'usage' => \&usage,
35			'help' => \&usage,
36			);
37
38			sub usage {
39			print <<EOU;
40
41			replace.pl -- replaces contents in files by applying regular expression
42
43			--substitution-pattern: give regex-pattern for substitution (e.g. "s/world/earth/")
44			--file-pattern:
45			--basedir
46
47			EOU
48
49			}
50
51
52			my $pattern = shift;
53			if (!$pattern) {
54			print ("no pattern!");
55			#usage();
56			exit;
57			}
58
59			my $path = shift;
60			if (!$path) {
61			print ("no path!");
62			#usage();
63			exit;
64			}
65
66			#my $pattern_file = '/CVS/Root';
67			my $pattern_file = '.*';
68
69			sub replaceInFile {
70			my $filename = shift;
71			my $filename_bak = $filename . ".bak";
72			open(RH, $filename);
73			open(WH, '>' . $filename_bak);
74			while(<RH>) {
75			eval($pattern);
76			#print $_, "\n";
77			print WH $_;
78			}
79			close(WH);
80			close(RH);
81
82			#unlink $filename;
83			#rename $filename_bak, $filename;
84
85			}
86
87			sub wanted {
88			if ($File::Find::name =~ m/$pattern_file$/) {
89			print $File::Find::name, "\n";
90			replaceInFile($File::Find::name);
91			#exit;
92			}
93			}
94
95			sub main {
96			find(\&wanted, $path);
97			}
98
99			main();
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26