<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Maniac Programmer's Blog &#187; Perl</title>
	<atom:link href="http://2lx.ru/category/programming/perl/feed/" rel="self" type="application/rss+xml" />
	<link>http://2lx.ru</link>
	<description>Блог помешанного программиста</description>
	<lastBuildDate>Fri, 20 Jan 2012 10:46:03 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
<xhtml:meta xmlns:xhtml="http://www.w3.org/1999/xhtml" name="robots" content="noindex" />
		<item>
		<title>Даунгрейд проекта Visual Studio</title>
		<link>http://2lx.ru/2011/10/daungrejd-proekta-visual-studio/</link>
		<comments>http://2lx.ru/2011/10/daungrejd-proekta-visual-studio/#comments</comments>
		<pubDate>Tue, 11 Oct 2011 10:25:44 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[Visual Studio]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=596</guid>
		<description><![CDATA[Файлы проектов Visual Studio (.vcproj, .csproj) не имеют обратной совместимости. Например, проект, созданный в Visual Studio 2008 отлично открывается в Visual Studio 2008, но наоборот не открывается.
Этот Perl-скрипт позволит продаунгрейдить проект чтобы он открылся в более ранней версии Visual Studio

#!/usr/bin/perl -w

use strict;

my $targetver= 9;
my %veryear= ( 8 =&#62; 2003, 9 ...]]></description>
		<wfw:commentRss>http://2lx.ru/2011/10/daungrejd-proekta-visual-studio/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Quine на Perl</title>
		<link>http://2lx.ru/2011/08/quine-na-perl/</link>
		<comments>http://2lx.ru/2011/08/quine-na-perl/#comments</comments>
		<pubDate>Tue, 30 Aug 2011 13:18:00 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[HQ9+]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=592</guid>
		<description><![CDATA[open+0;print&#60;0&#62;
PS: Самый короткий квайн сделан на языке HQ9+ и состоит из одного символа:

Q

]]></description>
		<wfw:commentRss>http://2lx.ru/2011/08/quine-na-perl/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Замена Windows-переносов на Unix-переносы</title>
		<link>http://2lx.ru/2011/05/zamena-windows-perenosov-na-unix-perenosy/</link>
		<comments>http://2lx.ru/2011/05/zamena-windows-perenosov-na-unix-perenosy/#comments</comments>
		<pubDate>Mon, 02 May 2011 05:59:18 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Linux]]></category>
		<category><![CDATA[Perl]]></category>
		<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=574</guid>
		<description><![CDATA[Ранее я уже выкладывал программу, которая заменяет Windows-переносы строк (CRLF, 0x0D 0x0A) на Unix-переносы (LF, 0x0A).
Вот более элегантный способ сделать это:
perl -pi -e 's/\r\n/\n/;' filename
]]></description>
		<wfw:commentRss>http://2lx.ru/2011/05/zamena-windows-perenosov-na-unix-perenosy/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Извлечение имени файла из URL</title>
		<link>http://2lx.ru/2011/03/izvlechenie-imeni-fajla-iz-url/</link>
		<comments>http://2lx.ru/2011/03/izvlechenie-imeni-fajla-iz-url/#comments</comments>
		<pubDate>Mon, 28 Mar 2011 14:43:14 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[RegEx]]></category>
		<category><![CDATA[регулярные выражения]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=569</guid>
		<description><![CDATA[Регулярное выражения для извлечения имени файла из его URL-адреса:

m/^.*\/(.*?)$/
Пример использования:
#!/usr/bin/perl
my $a = &#34;http://cs11220.vkontakte.ru/u111111/a_xxxxxx.jpg&#34;;
my ($str) = $a =~ m/^.*\/(.*?)$/;
print $str;
]]></description>
		<wfw:commentRss>http://2lx.ru/2011/03/izvlechenie-imeni-fajla-iz-url/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Сравнение Perl- и Python-программистов</title>
		<link>http://2lx.ru/2011/01/sravnenie-perl-i-python-programmistov/</link>
		<comments>http://2lx.ru/2011/01/sravnenie-perl-i-python-programmistov/#comments</comments>
		<pubDate>Tue, 18 Jan 2011 14:28:55 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[Юмор]]></category>
		<category><![CDATA[смех]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=565</guid>
		<description><![CDATA[
]]></description>
		<wfw:commentRss>http://2lx.ru/2011/01/sravnenie-perl-i-python-programmistov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Проверяем, свободен-ли домен</title>
		<link>http://2lx.ru/2010/03/proveryaem-svoboden-li-domen/</link>
		<comments>http://2lx.ru/2010/03/proveryaem-svoboden-li-domen/#comments</comments>
		<pubDate>Fri, 26 Mar 2010 15:05:37 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[домен]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=490</guid>
		<description><![CDATA[Perl-скрипт, проверяющий, не зарегистрирован-ли заданный домен. Работает со следующими зонами:
RU, SU, COM, NET, ORG, INFO, BIZ, CC, TV, ME, TEL, MOBI, NAME, AERO, TRAVEL.
#!/usr/bin/perl
# (c) 2lx.ru
# Скрипт проверяет, свободен-ли домен в следующих зонах:
# RU, SU, COM, NET, ORG, INFO, BIZ, CC, TV, ME, TEL, MOBI, NAME, AERO, TRAVEL

use strict;
use LWP::Simple;

my ...]]></description>
		<wfw:commentRss>http://2lx.ru/2010/03/proveryaem-svoboden-li-domen/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Аналог print_r в Perl</title>
		<link>http://2lx.ru/2010/01/analog-print_r-v-perl/</link>
		<comments>http://2lx.ru/2010/01/analog-print_r-v-perl/#comments</comments>
		<pubDate>Tue, 26 Jan 2010 18:27:05 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[отладка]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=432</guid>
		<description><![CDATA[
В PHP есть очень полезная функция print_r, предназначенная для отображения содержимого переменной в удобочитаемой форме.
В Perl такой функции нет, однако есть дополнительные модули для этих целей, например Data::Dump.

Модуль Data::Dump содержит всего одну процедуру&#160;&#8212; dump (), выполняющую тоже самое, что и функция print_r в PHP.
Ниже представлен Perl-скрипт, скачивающий с блога Youtube ...]]></description>
		<wfw:commentRss>http://2lx.ru/2010/01/analog-print_r-v-perl/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>mod_rewrite и передача спецсимволов</title>
		<link>http://2lx.ru/2009/12/mod_rewrite-i-peredacha-specsimvolov/</link>
		<comments>http://2lx.ru/2009/12/mod_rewrite-i-peredacha-specsimvolov/#comments</comments>
		<pubDate>Fri, 18 Dec 2009 16:08:54 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[Администрирование]]></category>
		<category><![CDATA[apache]]></category>
		<category><![CDATA[htaccess]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=427</guid>
		<description><![CDATA[
Недавно при тестировании одного веб-скрипта на Perl возникла такая проблема: при передаче данных методом GET с использованием mod_rewrite, из данных пропадали символы + и #.
Для примера, скрипт:
#!/usr/bin/perl
use CGI;
$cgi = CGI-&#62;new();
print $cgi-&#62;header();
print $cgi-&#62;param('param');
Вызываем http://localhost/cgi-bin/script.pl?param=C%2B%2B
В ответ, как и положено, увидим надпись C++.
Создаем файл .htaccess следующего содержания:
RewriteEngine On
RewriteRule ^param/(.*?)$ /cgi-bin/script.pl?param=$1
Вызываем http://localhost/param/C%2B%2B
И увидим только ...]]></description>
		<wfw:commentRss>http://2lx.ru/2009/12/mod_rewrite-i-peredacha-specsimvolov/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Perl + Sockets. Пишем клиент и сервер на перле</title>
		<link>http://2lx.ru/2009/12/perl-sockets-pishem-klient-i-server-na-perle/</link>
		<comments>http://2lx.ru/2009/12/perl-sockets-pishem-klient-i-server-na-perle/#comments</comments>
		<pubDate>Wed, 16 Dec 2009 18:54:46 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[сервер]]></category>
		<category><![CDATA[сокеты]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=420</guid>
		<description><![CDATA[
В рамках этой статьи я опишу как взаимодействовать из своих Perl-программ с серверами на низком уровне, а также опишу технологию создания собственного сервера.
Для низкоуровневого сетевого взаимодействия используются сокеты.
По словам Википедии сокет – это канал, проложенный между сервером, на котором запускается программа, и сервером, с которым мы хотим установить соединение.
Все функции ...]]></description>
		<wfw:commentRss>http://2lx.ru/2009/12/perl-sockets-pishem-klient-i-server-na-perle/feed/</wfw:commentRss>
		<slash:comments>8</slash:comments>
		</item>
		<item>
		<title>Вычисляем возраст</title>
		<link>http://2lx.ru/2009/08/vychislyaem-vozrast/</link>
		<comments>http://2lx.ru/2009/08/vychislyaem-vozrast/#comments</comments>
		<pubDate>Sun, 16 Aug 2009 18:55:18 +0000</pubDate>
		<dc:creator>Кто-то</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[Чей-то софт]]></category>
		<category><![CDATA[математика]]></category>

		<guid isPermaLink="false">http://2lx.ru/?p=388</guid>
		<description><![CDATA[Наисложнейшая Perl-программа для вычисления возраста человека по дате рождения &#62;_&#60;


]]></description>
		<wfw:commentRss>http://2lx.ru/2009/08/vychislyaem-vozrast/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

