mirror of
https://github.com/swc-project/swc.git
synced 2024-12-21 04:32:01 +03:00
33 lines
667 B
HTML
33 lines
667 B
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
|
||
"http://www.w3.org/TR/html4/strict.dtd">
|
||
<html>
|
||
<head>
|
||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||
<title>Тег PLAINTEXT</title>
|
||
</head>
|
||
<body>
|
||
<p>Пример программы</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> |