| author | kleing |
| Sun, 12 Feb 2006 10:42:19 +0100 | |
| changeset 19022 | 0e6ec4fd204c |
| parent 13262 | bbfc360db011 |
| permissions | -rwxr-xr-x |
#!/usr/bin/perl -w sub doit { my ($file) = @_; open (FILE, $file) || die $!; undef $/; $text = <FILE>; $/ = "\n"; close FILE || die $!; $_ = $text; s/text_raw\{\*([^*]|\*[^}])*\*\}//sg; # actual work done here s/text\{\*([^*]|\*[^}])*\*\}//sg; # actual work done here s/\(\*<\*\)//sg; s/\(\*>\*\)//sg; $result = $_; if ($text ne $result) { print STDERR "fixing $file\n"; # if (! -f "$file~~") { # rename $file, "$file~~" || die $!; # } open (FILE, "> Demo/$file") || die $!; print FILE $result; close FILE || die $!; } } foreach $file (@ARGV) { eval { &doit($file); }; if ($@) { print STDERR "*** doit $file: ", $@, "\n"; } }