Last change
on this file since 1309 was
1208,
checked in by garnier, 15 years ago
|
CVS update
|
-
Property svn:executable set to
*
|
File size:
953 bytes
|
Rev | Line | |
---|
[1208] | 1 | #!/usr/local/bin/perl |
---|
| 2 | # |
---|
| 3 | # Merge html files into one so that MSWord can read |
---|
| 4 | # it and generate a ps file. |
---|
| 5 | # |
---|
| 6 | |
---|
| 7 | $file = $ARGV[0]; # Name the file |
---|
| 8 | |
---|
| 9 | open(INFO, "<$file" ) ; # Open the file |
---|
| 10 | @lines = <INFO> ; # Read it into an array |
---|
| 11 | close(INFO) ; # Close the file |
---|
| 12 | |
---|
| 13 | foreach $line (@lines) # assign @lines to $line, one at a time |
---|
| 14 | { # braces {} are required, bracket code |
---|
| 15 | |
---|
| 16 | $line =~ s#"introductionToGeant4.src/#"../html/introductionToGeant4.src/#; |
---|
| 17 | ### $line =~ s#"../../../../resources/#"../../../resources/#; |
---|
| 18 | |
---|
| 19 | if ($file =~ "index.html") |
---|
| 20 | { |
---|
| 21 | if ($line =~ /About the authors/) |
---|
| 22 | { |
---|
| 23 | $line = '<I>About the authors</I></A> |
---|
| 24 | <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> |
---|
| 25 | <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR> |
---|
| 26 | <BR><BR><BR><BR><BR><BR> |
---|
| 27 | '; |
---|
| 28 | |
---|
| 29 | } |
---|
| 30 | } |
---|
| 31 | |
---|
| 32 | print "$line" ; # print formatted lines to screen |
---|
| 33 | } |
---|
| 34 | |
---|
| 35 | # |
---|
| 36 | # DONE |
---|
| 37 | # |
---|
| 38 | |
---|
| 39 | |
---|
Note: See
TracBrowser
for help on using the repository browser.