mirror of
https://github.com/swc-project/swc.git
synced 2024-12-21 04:32:01 +03:00
49 lines
776 B
Plaintext
49 lines
776 B
Plaintext
| <!DOCTYPE html "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
||
| <html>
|
||
| <head>
|
||
| "
|
||
"
|
||
| <meta>
|
||
| content="text/html; charset=utf-8"
|
||
| http-equiv="Content-Type"
|
||
| "
|
||
"
|
||
| <title>
|
||
| "Тег PLAINTEXT"
|
||
| "
|
||
"
|
||
| "
|
||
"
|
||
| <body>
|
||
| "
|
||
"
|
||
| <p>
|
||
| "Пример программы"
|
||
| "
|
||
"
|
||
| <plaintext>
|
||
| "
|
||
<h1>Демонстрация метода Подборского</h1>
|
||
while (<>) {
|
||
$org=$_;
|
||
s/\\["']//g;
|
||
s/\/\/[^:].*//;
|
||
s/\/\*.*\*\///g;
|
||
if ($comment == 1) {
|
||
if (s/.*\*\///) {
|
||
$comment = 0;
|
||
}
|
||
else {
|
||
next;
|
||
}
|
||
}
|
||
if (s/\/\*.*//) {
|
||
$comment = 1;
|
||
}
|
||
if (/^\s*#/) {
|
||
next;
|
||
}
|
||
}</plaintext>
|
||
</body>
|
||
</html>"
|