mirror of
https://github.com/swc-project/swc.git
synced 2024-12-20 20:22:26 +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>"
|