Вниз  Регулярные выражения
- 1.12.2011 / 01:23
Лека
  Пользователь

Лека 
Сейчас: Offline
абормот,
  1. #на работаспасобность скрипт не проверила
  2. #переменные переименуй в свои
  3.  
  4. if ($res->is_success)
  5. #если результат положительный
  6. {
  7.    $page = $res->content;
  8. $page =~ s/<[^>]*>//g;
  9. #удаляем теги
  10.  
  11. #и выводим только интересующий нас текст
  12.  
  13. while($page =~ m/((.{4,})(\d{2,}))/ig) {
  14. print  "$1 \n";
  15. open(LOG,">>log.txt"); #пишем в лог
  16.   print(LOG "$1 \n");
  17. close(LOG);
  18. #насрал? Уберай за собой. Всегда закрывай файл после записи
  19.  
  20. }
  21. }else{
  22.  $res->status_line,"\n";
  23. }
сойдет?

Изменено Лека (1.12 / 01:25) (всего 1 раз)
- 1.12.2011 / 01:39
абормот
  Пользователь

абормот 
Сейчас: Offline
Лека, это еще и работает. Я в шоке. Спасибо,а я чет не подумал регексы для интересующих меня строк написать.
- 1.12.2011 / 17:52
абормот
  Пользователь

абормот 
Сейчас: Offline
Лека, прикольная фишка с лог файлом. А вот как сделать чтоб каждый день файл был новый?
- 1.12.2011 / 22:24
Лека
  Пользователь

Лека 
Сейчас: Offline
абормот, примерно так.
  1. #задаем имя файла в виде даты
  2. ($day, $month, $year) = (localtime)[3,4,5];
  3. $year=$year+1900;
  4. $month=$month+1;
  5. $log="$year$month$day.txt";
  6. open(LOG,">>$log")||"облом";
a если тебя начне пугать не размер и колличество файлов то в кронтаб ставь
  1.  #!/usr/bin/perl
  2. #как работает не проверяла.
  3. #проверишь сам и отпишишься
  4. #дальше просьба модераторам
  5. #эти сообщение из регексов в перл
  6. #так как это не регулярка
  7. use strict;
  8.  
  9. use warnings;
  10.  
  11. use Archive::Zip;
  12.  
  13. use CGI::Carp qw(fatalsToBrowser);
  14. print "Content-type: text/html\n\n";
  15. my $zip = Archive::Zip-
  16. >new();
  17.  
  18. $log_dir="/home/username/public_html/log/";
  19. opendir(LOG_DIR,$log_dir);
  20. @my_logs=readdir(LOG_DIR);
  21. close(LOG_DIR);
  22. foreach
  23. $file (@my_logs) {
  24. $zip->addFile($file)
  25.     or die "Облом при добавлении файла\n";
  26. }
  27. $zip->writeToFileNamed('logs.zip');
  28. unlink(@my_logs) or die "Облом при удалении файлов\n";

- 1.12.2011 / 22:35
Лека
  Пользователь

Лека 
Сейчас: Offline
расширение файлов можешь проверить так.
  1. $type =~ /\. (\w+)$/;

- 2.12.2011 / 00:22
абормот
  Пользователь

абормот 
Сейчас: Offline
Лека, родная,пересмотри свой код с упаковкой.он не работает.а с файлами норм.
- 2.12.2011 / 00:24
XakepPRO
  Модератор форума

XakepPRO 
Сейчас: Offline
Нашел очень элегантный способ вычисления простоты числа: ссыль.
- 2.12.2011 / 00:37
Лека
  Пользователь

Лека 
Сейчас: Offline
абормот, вот написала для тар архива у меня зип не пошел.
  1. #!/usr/bin/perl
  2.  
  3. use Archive::Tar;
  4.  
  5.  
  6. use CGI::Carp qw(fatalsToBrowser);
  7. print "Content-type: text/html; charset=utf-8\n\n";
  8. $logdir="/home/user/public_html/log/";
  9. opendir(LOGDIR, $logdir);
  10. @mylogs=readdir(LOGDIR);
  11. close(LOGDIR);
  12.  
  13. my $tar = Archive::Tar->new;
  14.  
  15. foreach
  16. $file (@mylogs) {
  17. $tar->add_files($file)
  18.     or die "Облом при добавлении файла\n";
  19. }
  20. $tar->write('/home/user/public_html/logs.tar');
  21. unlink(@mylogs) or die "Облом при удалении файлов\n";
проверен.

Изменено Лека (2.12 / 00:39) (всего 1 раз)
- 2.12.2011 / 05:40
Koenig
  Модератор форума

Koenig 
Сейчас: Offline
Ну регулярки очень тесно связанны с перлом, потому смысла переносить посты не виду, да и нет подобных кнопок
__________________
 Магистр Мёда
- 17.02.2012 / 14:42
Naik
  Пользователь

Naik 
Сейчас: Offline
preg_match_all("/[а-яА-Я]+/", $data, $label);

Выбирает почему-то урывки русских слов из веб страницы, а должно в каждом элементе массива быть слово
Наверх  Всего сообщений: 77
Фильтровать сообщения
Поиск по теме