| 231 |
$_ = "$one $two"; |
$_ = "$one $two"; |
| 232 |
redo; # Process the joined lines |
redo; # Process the joined lines |
| 233 |
} |
} |
| 234 |
|
|
| 235 |
# .EX/.EE are used in the pcredemo page to bracket the entire program, |
# .EX/.EE are used in the pcredemo page to bracket the entire program, |
| 236 |
# which is unmodified except for turning backslash into "\e". |
# which is unmodified except for turning backslash into "\e". |
| 237 |
|
|
| 238 |
elsif (/^\.EX\s*$/) |
elsif (/^\.EX\s*$/) |
| 239 |
{ |
{ |
| 240 |
print TEMP "<PRE>\n"; |
print TEMP "<PRE>\n"; |
| 241 |
while (<STDIN>) |
while (<STDIN>) |
| 242 |
{ |
{ |
| 243 |
last if /^\.EE\s*$/; |
last if /^\.EE\s*$/; |
| 244 |
s/\\e/\\/g; |
s/\\e/\\/g; |
| 245 |
s/&/&/g; |
s/&/&/g; |
| 246 |
s/</</g; |
s/</</g; |
| 247 |
s/>/>/g; |
s/>/>/g; |
| 248 |
print TEMP; |
print TEMP; |
| 249 |
} |
} |
| 250 |
} |
} |
| 251 |
|
|
| 252 |
# Ignore anything not recognized |
# Ignore anything not recognized |
| 253 |
|
|