Кто разбирается в perl? Нужна помощь!

Тема в разделе "Поговорим о том, о сём", создана пользователем mikha, 23 фев 2011.

  1. mikha

    mikha Член клуба

    Есть xml файл, в нем:
    Код:
    <SCREENSHOT>
    <IMAGE>http://site.ru/gfx/shots/1059-image_2166.jpg</IMAGE>
    <THUMBNAIL>http://site.ru/gfx/thumbs/1059-image_2166.jpg</THUMBNAIL>
    </SCREENSHOT>
    <SCREENSHOT>
    <IMAGE>http://site.ru/gfx/shots/1059-image_2167.jpg</IMAGE>
    <THUMBNAIL>http://site.ru/gfx/thumbs/1059-image_2167.jpg</THUMBNAIL>
    </SCREENSHOT>
    <SCREENSHOT>
    <IMAGE>http://site.ru/gfx/shots/1059-image_2168.jpg</IMAGE>
    <THUMBNAIL>http://site.ru/gfx/thumbs/1059-image_2168.jpg</THUMBNAIL>
    </SCREENSHOT>
    <SCREENSHOT>
    <IMAGE>http://site.ru/gfx/shots/1059-image_2169.jpg</IMAGE>
    <THUMBNAIL>http://site.ru/gfx/thumbs/1059-image_2169.jpg</THUMBNAIL>
    </SCREENSHOT>
    <SCREENSHOT>
    <IMAGE>http://site.ru/gfx/shots/1059-image_2170.jpg</IMAGE>
    <THUMBNAIL>http://site.ru/gfx/thumbs/1059-image_2170.jpg</THUMBNAIL>
    </SCREENSHOT>
    Скрипт на perl выдергивает все урлы в отдельный файл.
    Вот кусок скрипта:


    Код:
    while($item=~/<screenshot>(.*?)<\/screenshot>/gi)
         {
    		$scr=$1;
    		if($scr=~/<image>(.*?)<\/image>/i){$scr_pic_url=$1;}
                print(FFF "<div class=\"image\"><img src=\"$scr_pic_url\"></div>");
    	}
    Как изменить код, чтобы выдергивался только один url из первого <IMAGE>?
     

Поделиться этой страницей