Есть 2 файла с некоторым содержанием (близким, но во втрором файле есть дописанные данные). Мне надо сравнивать их и если есть различия, то эти различия копировать из второго фала и дописывать в конец первого.
Если считать файл в массив:
open (FILE, "<File.txt") #file opened for reading
or die ("Can't open file");
@file1=<FILE>;

то каждый элемент массива будет строкой из фала. А мне надо посимвольно сравнивать. Подскажите, пожалуйста, как к символу тогда обратиться в строке этого массива, а не к самой строке?

Если читать файл нужно построчно, то всегда можно пройти по строке с помощью substr или разбивать строку на символы c помощью split, делать это в том случае, если строки не равны.
Насколько большие файлы?

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

а может быть еще для этого подлключить стандартный дифф

Какой-такой дифф?

Код

my $first="Приет мой друг"; my $second="Привет мой друг"; for my $i (0..length $second) { print substr($first,$i,1) ."<br>"if(substr($first,$i,1) ne substr($second,$i,1)); }

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

Это сообщение отредактировал(а) BlackLFL - 14.10.2005, 14:43

Спасибо за пример, правда он не совсем правильно работает
для кода:
my $first="hellooi my fr";
my $second="hello my ft";
он выдает:
o<br>i<br> <br>m<br>y<br> <br>f<br>

т. е . до пробела исправляет. Думаю это можно легко исправить, сейчас попробую.

В перле можно писать цикл фор внутри другого фора?
for($line=0;$line<=$#file1;$line++)
{
for my $i (0..length $file1[$line]) {
print substr($file1[$line],$i,1) ." " if(substr($file1[$line],$i,1) ne substr($file2[$line],$i,1));
}
}

Например, здесь вылетают ошибки. Походу $line внутри второго фора не определен.

Цитата

В перле можно писать цикл фор внутри другого фора?

Можно, вложенность циклов может быть какой угодно, причём не важно какие циклы while, for, foreach или until ты используешь.

Мне не совсем понятна суть задачи, если не трудно, поясни. Тебе нужно именно добавлять в конец первого файла или же тебе нужно делать копию второго файла, если были сделаны какие-то изменения в нём? Если добавлять в конец, то попробуй такокой вариант:

Код

#!/usr/bin/perl -w use strict; # Подпрограмма облегчает чтение из файла sub readFile {         my $file = shift;         open(F, "< $file") or die $!;         chomp(my @temp = <F>);         close(F);         return wantarray ? @temp : \@temp; } # Получаем ссылки на массивы первого и второго файла my $f1 = readFile("first.txt"); my $f2 = readFile("second.txt"); # Открываем первый файл для добавления open (ADD, ">> first.txt") or die $!; # Итерируем по второму файлу for (my $i=0; $i < @$f2; $i++) {      # Если строки из файлов не равны      if ($f1->[$i] ne $f2->[$i])      {           my $pos = 0;           # Проходим по каждому символу текущей строки из второго файла           while (my $char2 = substr($f2->[$i],$pos,1))           {                  # Если текущая позиция больше длины строки из первого файла или                  # текущий символ второго файла не равен текущему символу первого файла                  if (($pos > length($f1->[$i])) or ($char2 ne substr($f1->[$i],$pos,1)))                  {                         # Записываем этот символ в конец первого файла                         print ADD "$char2\n";                  }                  $pos++;           }      } } close(ADD);

Ну а если копию, то всё намного проще.

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

1. сравниваешь размеры файлов:

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

2. выход



Это сообщение отредактировал(а) sharq - 15.10.2005, 11:11

sharq: )) не, если второй файл содержит дописанные данные, тогда их оттуда надо вытащить и дописать в конец первого, ну или просто вытащить дописанные слова и куда-нить сохранить, например, в новый файл.
korob2001 : даю проге на вход имена двух файлов: первый - оригинал, второй файл с дописанными данными (вида: символы, буквы англ. алфавита, знаки типо [], ":"). Программа должа найти эти новые данные и вытащить их, допустим записать в новый файл. Думаю надо искать с помощью регулярных выражений слова (т.е. символы между пробелами) и если не совпадает, то вытаскивать это слово и записывать. Спасибо, что не поленился написать столько кода. Сейчас буду разбираться...

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

Это сообщение отредактировал(а) korob2001 - 16.10.2005, 19:16

Я знаю, прогал раньше на сях нормально . НАписал, короче, я прогу, только используя много циклов. На слова разбивал и с ними оперировал. Спасибо за помощь.