Perl - статьи


Пример использования модулей LWP и HTML::Tree - часть 5


92       'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',

93       'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*',

94       'Accept-Charset' => 'iso-8859-1,*,utf-8',

95       'Accept-Language' => 'en-US',

96        );

97    $page = razbor($response->content, $phrase);

98    while (-e '$books_cache_dir/'.time().'.cache') { sleep(2); }

99    my $temp_time = time();

100   open(cache, ">$books_cache_dir/".$temp_time.'.cache');

101   if ($flock_allow){lockfile('cache');}

102   print cache $page;

103   if ($flock_allow){unlockfile('cache');}

104   close(cache);

105   my $new_cache_string = join('%unreal_delimiter%',$temp_time,$path)."\n";

106   open(cache_list,">>$books_cache_dir/list.cache");

107   if ($flock_allow){lockfile('cache_list');}

108   print cache_list $new_cache_string;

109   if ($flock_allow){unlockfile('cache_list');}

110   close(cache_list);

111  }


112  $phrase = uri_unescape($phrase); # преобразуем escape-последовательности к нормальному виду

113  print "<center><form style='margin: 0.1px' action='book.cgi' method=post><font size=\"2\" face=\"Arial, Helvetica, sans-serif\"><strong>Искать по названию:</strong></font>&nbsp;<input type=text name=text value='$phrase' size=30><input type=submit value='Искать'></form><br>";


114  print $page;


115  sub razbor(@_){ # функция разбора информации

116     my @arr = @_;




Начало  Назад  Вперед