Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - /IE][A

Страницы: [1] 2 3
1
Perl / Сравнение двух текстовых файлов
« : 26 Марта 2004, 12:26:14 »
Привет!

Посоветуйте как лучше подойти к проблеме сравнения двух текстовых файлов.
Один файл (старый) содержит старую информацию.
Второй (новый) файл содержит обновленную информацию.
Новый файл периодически обновляется, в него заносится новая информация.
В старом файле делаются пометки, если с ресурсом что-то делалось ставится пометка (допустим ++), если в старом есть инфа, а в новом нет (??) и т.д. и т.п.

Как вариант обновленную информацию можно вывести в новый файл, который в последующем станет основой "старого" файла.

* под информацией подразумеваются урлы.

2
Perl / Проблемы с выводом контента в файл
« : 27 Января 2004, 07:56:38 »
Извините за беспокойство.
Все сделал.
файл для записи нужно было открыть сначала, а не после foreach

$file_out="output.txt"; 
open OUTFILE, ">> $file_out" or die "Cannot open file $file_out $!"; 

foreach $filename (@names2){ # здесь массив файлов найденных в директории 
   $file_in="${directory}${dirname}\\\\$filename"; 
   open IN, "< $file_in" or die "Cannot open file $file_in $!"; 
   . . . . . . . 
}

3
Perl / Проблемы с выводом контента в файл
« : 27 Января 2004, 07:35:52 »
Цитировать
ключевые моменты скрипта + первые 5 строчек скрипта в студию плиз.

первые 5 строчек ничего конкретного не содержат.
вот ключевой момент:

   foreach $filename (@names2){ # здесь массив файлов найденных в директории
      $file_in="${directory}${dirname}\\\\\\\\$filename";
      $file_out="output.txt";
      open IN, "< $file_in" or die "Cannot open file $file_in $!";
      open OUTFILE, ">> $file_out" or die "Cannot open file $file_out $!";
      @lines=<IN>; 
      foreach $line(@lines){
         if($line =~ m/ищем заголовок/ic){
            print "Found title\\n";
            /*здесь все работает*/
            /*дальше замена*/
           $title = $line;
         }
         if($line =~ m/ищем нужные линки/ig){
             print "Found link\\n";
            /*здесь все работает*/
            /*дальше замена*/
            $content = $line;
#         print OUTFILE "$title $content\\n";# or die "Cannot save: $!"; # это второй вариант (2)
         }
#         print OUTFILE "$title $content\\n";# or die "Cannot save: $!"; # это первый вариант (1)
         close IN;
         close OUTFILE;   
      }
}

вроде все

4
Perl / Проблемы с выводом контента в файл
« : 26 Января 2004, 16:42:53 »
Привет Народ!!!!

Может подскажите где у меня может быть ошибочка.
Короче тема такая.
Скрипт перебирает файлы в директории, открывает их вырезает нужные cтрочки и записывает их в файл.
Проблема:
При запуске все проходит нормально, все нужные элементы находит, (через принт проверял), но
1. в файл пишет по одному элементу из файла (после цикла), в этом случае он скорее всего пишет последний найденный элемент.
2. не пишет вообще (в теле цикла), при использовани die говорит Bad File Descriptor.

P.S.  Используется ActivePerl 5.6.1 Build 628

5
Perl / Perl на by.ru
« : 09 Декабря 2003, 07:38:59 »
Читай здесь:
http://by.ru/serv/help/site

6
Perl / кодировка
« : 08 Декабря 2003, 09:37:27 »
Привет!!!

Скажите как можно определить кодировку открываемого файла, т.е. я делаю open, и мне надо проверить в какой кодировке файл, если в нужной тогда идет основной цикл программы, а если в другой то идет перекодировка.

Поэтому вопрос: как определить в какой кодировке файл.

7
Perl / uc Б БХМДЕ (CP866)
« : 03 Декабря 2003, 08:09:24 »
Специально для тех кто столкнется с этой проблемой в Винде.

Цитировать

use locale;
use POSIX qw(locale_h);

BEGIN {
   setlocale(LC_ALL, "Russian_Russia.866");
}

8
Perl / uc Б БХМДЕ (CP866)
« : 02 Декабря 2003, 12:49:47 »
ДЛя пробы, проверить работает вообще или нет.
Тогда как 866 именуется (CP866 или еще как-то.), просто с 866 кодировкой не случалось работать

9
Perl / uc Б БХМДЕ (CP866)
« : 02 Декабря 2003, 12:37:58 »
меняю на кои (Russian.koi8r), все равно пишет 1251.

10
Perl / uc Б БХМДЕ (CP866)
« : 02 Декабря 2003, 12:36:12 »
Пишет Russian_Russia.CP1251.

11
Perl / uc Б БХМДЕ (CP866)
« : 02 Декабря 2003, 12:17:50 »
при изменении локали (использовал разные), результат один и тот-же.

12
Perl / uc Б БХМДЕ (CP866)
« : 02 Декабря 2003, 12:03:04 »
Может подскажешь какие именно читать :) ?

13
Perl / uc в винде
« : 02 Декабря 2003, 11:30:10 »
Привет !!!

Столкнулся с проблемой перевода букв в верхний регистр под виндой.

При выводе на экран (через консоль) все пишется нормально, при применении регекспов и функций работы со строками, строки остаются без изменений.

Регулярные выражения тоже работают не совсем нормально, т.е. если текст набран маленькими буквами, тогда разбирается, если присутствуют большие не обрабатывается, хотя обработка идет бещ учета регистра.

Текст набирается в 866 кидоровке.

При применениях locale вообще лажа получается.
Пробовал всякие комбинации локали (Russian, Russian.CP1251, Russian.koi8r).

14
PHP / тв-программа
« : 01 Декабря 2003, 13:45:17 »
Ха-Ха.
Спасибо что не отказал.

15
PHP / тв-программа
« : 01 Декабря 2003, 13:21:28 »
Привет!!!

Скажите плиз кто-нибудь разрабатывал скрипт тв-программы.
Просто не знаю с чего начать писать персер.
Имеется файлы с тв-программой на неделю для разных каналов. Надо это все как-то преобразовать к одному виду, т.е. разбить по дням и по каналам.

Страницы: [1] 2 3