Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Сравнение двух файлов

Автор: kokaine 3.1.2006, 20:13

Ну вообщем не сравнение 2-ух файлов..
короче так
2 файла в них списки фильмов
.avi
.mpeg
нужно
сравнить эти два списка и файлы которых нету в первом вынести в отдельный текстовый документик..
список фильмов ~400-500 штук..
подскажи пожалуйсто как!?
можно делать это и не очень быстро, использоваться этот скрипт будет 1 раз =)
Добавлено @ 20:17
пардон.. забыл то что набрасал сам.. может так понятнее будет
ногами за кривизну кода не пинайте я перлом максимум неделю занимаюсь включая праздники smile

Код


#!/usr/bin/perl
print "[1] Select films from DIR.\n";
print "[2] Select films from HTML.\n";
print "[3] Last action.\n";
print "[4] Exit.\n";
$act = <STDIN>;
 if($act =~ /[1-4]/)
  {
   if($act == 1)
    {
     print "[!] Enter DIR path: ";
     $dir_path = <STDIN>;
     chomp($dir_path);
     open(F1,">ffd.txt");
     opendir(Dir, $dir_path) || die print $!."\n";
     my @file=grep (!/^\.+$/,readdir (Dir)); 
     print "[>] Start write films from $dir_path...\n";
      foreach $arg(@file)
       {
        if($arg =~ /.avi|.mpg|.mpeg/)
         {
          print $arg."\n";
          print F1 $arg."\n";
         }
       } 
     print "\n[i] End write films from $dir_path...\n";
     print "[i] Exiting...\n";
     closedir(Dir);
     close(F1);
     system('pause');
     exit 0;
    }
     if($act == 2)
      {
       print "[!] Enter path to HTML file: ";
       $path_to_HTML_file = <STDIN>;
       chop($path_to_HTML_file);
       open(F2,"<$path_to_HTML_file") || die print $!."\n";
       open(F3,">ffh.txt") || die print $!."\n";
       print "[>] Start write films from ".$path_to_HTML_file."...\n\n";
       @data = <F2>;
        foreach $arg(@data)
         {
          if($arg =~ /.avi|.mpg|.mpeg/)
           {
            print $arg."\n";
            print F3 $arg;
           }
         }
       close(F2);
       close(F3);
       print "\n[i] End write films from $path_to_HTML_file...\n";
       print "[i] Exiting...\n";
       system('pause');
       exit 0;
      }
       if($act == 3)
        {
         print "[!] Last action...\n";
         open(F1,"<ffd.txt") || die print $!."\n";
         open(F3,"<ffh.txt") || die print $!."\n";
         open(F4,">end.txt") || die print $!."\n";
         @data_from_f1 = <F1>;
         @data_from_f3 = <F3>;
#Вот вроде тут че то надо приудмать ;) 
         print "[i] End last action...\n";
         print "[i] Exititng...\n";
         close(F1);
         close(F3);
         close(F4);
         system('pause');
         exit 0;
        }   
  }
   else
    {
     print "[x] Error!\n";
     print "[i] Exiting...\n";
     system('pause');
     exit 0;
    }

Автор: korob2001 4.1.2006, 11:08

Не понял, тебе нужно записать в отдельный файл названия фильмов, которые не пересекаются в данных файлах?
Если да, то смотри этот код:

Код


#!/usr/bin/perl -w
use strict;
my @f1 = ("film1.avi", "film12.mpg", "film4.avi");
my @f2 = ("film12.avi", "film1.avi", "film4.avi");
my %res = ();
$res{$_}++ for @f1, @f2;

open(F, "> diff.txt") or die $!;
while (my($k,$v) = each(%res)) {
       print F $k,"\n" if $v == 1;
}
close(F);

Только для простоты я заменил первые 2 файла, массивами. Но это не должно тебе усложнить жизнь. 500 строк в файле, это не много, потому можешь смело их читать в массивы из файлов, хотя можно и через while прогонять вложенный while по второму файлу. При этом память вообще не будет засоряться.