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>
|