Добрый вечер!

Плдскажите плиз есть файл такого содержания:

10.20.159.77  Wed Aug 6 22:02:15 2008 
10.20.159.100  Wed Aug 6 22:02:15 2008
10.20.159.111   Wed Aug 6 22:02:15 2008 

нужно открыть файл и проверить на совпадения если таких нет записать в файл
привожу код: 

 
#!/usr/bin/perl 

my  $time=localtime (time);  

my @host=('10.20.159.77','10.20.159.100','10.20.159.111','192.33.33.11');
foreach my $ip (@host) {

open (C, "</ip/ip-time.dat") or die print "Can't open file ip-time.dat\n" ;
          while (<C>) {
         my ($ip2, $time1, $time2, $time3, $time4, $time5) = split /\s+/;       
             if ($ip eq $ip2) {                                                                                   
                 print "$ip2  down! $time1 $time2 $time3 $time4 $time5 \n"; }
              else { next; } 
              open ( C, ">>/ip/ip-time.dat") or die print "Can't open file ip-time.dat\n" ;
              print C "$ip  $time\n";
                } }
             close ©;


не работает:

open ( C, ">>/ip/ip-time.dat") or die print "Can't open file ip-time.dat\n" ;
              print C "$ip  $time\n";

не пишет в файл, результат в файле должен быть такой:

10.20.159.77  Wed Aug 6 22:17:33 2008 
10.20.159.100  Wed Aug 6 22:17:33 2008 
10.20.159.111  Wed Aug 6 22:17:33 2008 
192.33.33.11  Wed Aug 6 22:17:33 2008 
  

Обычно
1) или читаем и записываем в новый файл, потом переименовываем - минус время
2) или все изменения храняться "в переменной", затем обновляем файл - минус расход памяти
3) tie - минус ... не запутаться с ним ;) , память тоже но не значительно...

как пример:


P.S.: на ночь глядя grep'ую   

вот примерно то что нужно,  пункт 2) но хотелось бы уйти то массива!

#!/usr/bin/perl

use Fcntl;
my  $time=localtime (time);
my @a;
my $k=0;
my @host=('10.20.159.77','10.20.159.100','10.20.159.101','192.33.33.11','10.20.12.16');
foreach my $ip (@host) {
sysopen (C, "/ip/ip-time.dat", O_RDWR  ) or die print "Can't open file ip-time.dat\n" ;
     while (<C>) {
    
     my ($ip2, $time1, $time2, $time3, $time4, $time5) = split /\s+/;

     push  (@a, $ip2, $time1, $time2, $time3, $time4, $time5 ); }

     if ($ip eq $a[$k]) {  print "$a[$k] $a[$k+1] $a[$k+2] $a[$k+3] $a[$k+4] $a[$k+5]\n";  }
     else { 
             print C "$ip $time\n";
             print  "$ip $time\n"}
     $k=$k+6;  }


 close ©;

geta1swa, чем вам 3-ий не подходит?  (он не расходует память в огромных количествах, почитайте документацию про Tie::File).
Если вы хотите использовать №2, то как уйдёте от массива  ?

И на сколько вижу, ваш пример практически не отличается от первого примера  Появились имхо лишние переменные.
№2, считываем ip-time.dat в массив, закрываем дескриптор на файл, затем сверяем его с вашим @host, вносим в массив изменения, после массив записываем в файл ip-time.dat. А чтение-запись, тут могут возникнуть сложности/ошибки...

nitr, может ВЫ меня не правильно поняли,суть такая есть переменная которая лежит в @host  нужно:
1. отрыть файл пролистать его
2. если есть совпадение взять ее значение йз файла и вывести
3. если нет записать в файл и вывести 
4. и ето только в том случае если не прошел ping
5. каждому хосту назначено описание:
          
порядок вывода тоже необходимо не нарушить

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

geta1swa, а ВЫ меня не поняли  Я не видел ТЗ, и смотреть на него не буду  , я смотрел на ваш ПЕРВЫЙ КОД, и основывался именно им , написал код для ознакомления с Tie::File. Неболее и неменее.

Где вы заметили, что у меня иначе, очень даже похоже на ваш код (пинга и в нём нет)?


Добавлено через 23 секунды
P.S.: писал прям в форум...

Спосибо за помощь nitr,