Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - DELirium

Страницы: [1]
1
Веб-технологии / Тег code
« : 27 Января 2003, 16:56:46 »
Это вообще Secandr под моим ником писал :)
А так всё сделали.

2
Веб-технологии / Тег code
« : 24 Января 2003, 20:14:54 »
Приведённый код не работает, или у меня в конец кривые руки.

Вообще я написал немного кода и он вполне великолепно работает:
$in=текст


$in2=$in
while ($in2 =~ s|\\*?)\'\\]([^\\[\\]]*?)\\[\\/url\\]|$2|g){}# Проверка на то написанно ли всё правильно.
while ($in2 =~ s|\\[(\\w)\\]([^\\[\\]]*?)\\[\\/\\1\\]|$2|g){}# Проверка на то написанно ли всё правильно.
if (($in2 =~ m/\\[(b|i|u|quote|code|url|mail)\\]/) || ($in2 =~ m/\\[\\/(b|i|u|quote|code|url|mail)\\]/))
         {print"-----\\n$in2\\n-----";$in=\'\'}


         $in =~ s/\\[b\\]//g;$in =~ s/\\[\\/b\\]/<\\/b>/g;
         $in =~ s/\\[u\\]//g;$in =~ s/\\[\\/u\\]/<\\/u>/g;
         $in =~ s/\\[i\\]//g;$in =~ s/\\[\\/i\\]/<\\/i>/g;
         $in =~ s/\\[i\\]//g;$in =~ s/\\[\\/i\\]/<\\/i>/g;
         $in =~ s|\\[mail\\]([^\\[\\]]*?)\\[\\/mail]|$1|g;
         $in =~ s|\\[url=\'([^\']*?)\'\\]([^\\[\\]]*?)\\[\\/url]|$2|g;
         $in =~ s/\\[quote\\]/\\\\\\
/g;
         $in =~ s/\\[\\/quote\\]/\\<\\/td\\>\\<\\/tr\\>\\<\\/table\\>/g;


Конечно "немного" убого, но работате.
Проблема в другом:
Необходимо чтобы внутри тега code вообще ничего не менялось. А если я добавлю строку:

$in =~ s/\\[code\\]/
/g;$in =~ s/\\[\\/code\\]/<\\/pre>/g;

то внутри тега code все спец символы заменятся, а мне этого совершенно не надо :(


p.s. А может у скобок [] есть альтернативное написание, как у< => <
					
				
				

				
			
		
		

			

				
				

					
3

					

						
Всё о Html / Отступы тега form

						« : 22 Января 2003, 14:02:07 »
					

					

					А кто-нибудь тогда может объяснить зачем этот отступ появляется? Баг?
					

				

				

				
			

		

		

			Страницы: [1]