Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Perl to С++ нужна помощь

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Веб-программинг] >> Perl to С++ нужна помощь

Имя

Сообщение

<< Старые топики Новые топики >>

Perl to С++ нужна помощь - 2011-04-23 11:24:47.416666

.::NickolaZ::.

Сообщений: 1
Оценки: 0
Присоединился: 2011-04-23 11:12:09.760000

Вобщем суть такова, имеется код программы написанный на perl, нужно данную прогу перенести на с++, код ниже:


 #!usr/bin/perl
 
 open(FILE, "&lt; date.txt");
 open(RES,"&lt;","$file"); 
 @lol = &lt;RES&gt;; 
 close(RES);
 foreach $datalist(@lol){
 &next;}
 sub next {
 $url = "http://localhost/found-date.php";
 $lwp = LWP::UserAgent-&gt;new(); 
 $lwp -&gt; agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");
 $request = $lwp-&gt;post($url, ["datelist" =&gt; $datelist, "Submit" =&gt; "Submit"]);
 {
 open(FFF,"&gt;&gt; found.txt");
 if($request-&gt;content =~ /&lt;h1&gt;good date(.*)&lt;\/h1&gt;&lt;br&gt;/)
 {print "Good date $1\n";
 print FFF "$1\n";
 close(FFF);}
 
 {
 open(FFF1,"&gt;&gt; notfount.txt"); 
 if($request-&gt;content =~ /&lt;h3&gt;&lt;strike&gt;bad format(.*)&lt;\/strike&gt;&lt;\/h1&gt;&lt;br&gt;/)
 {print "Bad Format $1\n";
 print FFF1 "$1\n";
 close(FFF1);}
 }}}
 {print "Finish parsed.";}
 $fuck=&lt;stdin&gt;;

Всем спасибо за помощь)

Post #: 1

Страниц: [1]

Все форумы >> [Веб-программинг] >> Perl to С++ нужна помощь

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.