| 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, |
| 236 |
|
# which is unmodified except for turning backslash into "\e". |
| 237 |
|
|
| 238 |
|
elsif (/^\.EX\s*$/) |
| 239 |
|
{ |
| 240 |
|
print TEMP "<PRE>\n"; |
| 241 |
|
while (<STDIN>) |
| 242 |
|
{ |
| 243 |
|
last if /^\.EE\s*$/; |
| 244 |
|
s/\\e/\\/g; |
| 245 |
|
s/&/&/g; |
| 246 |
|
s/</</g; |
| 247 |
|
s/>/>/g; |
| 248 |
|
print TEMP; |
| 249 |
|
} |
| 250 |
|
} |
| 251 |
|
|
| 252 |
# Ignore anything not recognized |
# Ignore anything not recognized |
| 253 |
|
|