|
|
|
| "
"
|
| content="text/html; charset=utf-8"
| http-equiv="Content-Type"
| "
"
|
| "Тег 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>"