ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Nikolay A. Panov                     2:5020/400     05 Dec 2001  13:24:34
 To : Kostya Pavlovich
 Subject : Re: Изменить файл
 -------------------------------------------------------------------------------- 
 

 
 > Суть вот в чем: Есть фай вида:
 > NAME1=VALUE1#NAME2=VALUE2#NAME3=VALUE3#....#
 
 > Hужно нати в этом файле нужный NAME и изменить его VALUE потом сохранить.
 
 #Вот примерно так. Учти, что писалось это сразу в письмо и ессно надо-бы 
 #довести этот код до красивого вида.
 
 $/='#';
 open IN, "<$filename";
 while (<IN>)
 {
   my ($key,$value)=split(/=/); #Hу или split(/=/,$_);
   $LINES{$key}=$value;
 }
 close IN;
 
 $LINES{$kotory_izmenyt}=$new_value;
 
 @SORTED_KEYS = sort{$LINES{$a} <=> $LINES{$b}} keys %LINES;
 
 for($i=0;$i<=$#@SORTED_KEYS;$i++)
 {
   @OUT[$i]=$SORTED_KEYS[$i]."=".$LINES{$SORTED_KEYS[$i]};
 }
 
 open OUT, ">$filename";
   print OUT join("#",@OUT);
 close OUT;
 
 > Это самое простое, но у меня не получается. Далее нужно отсортировать
 > структуры NAME=VALUE по значению VALUE.
 
 Купи книжку по Perl, рекомендую поваренную (СookBook).
 
 --------------
 С наилучшими пожеланиями...
 Hиколай А. Панов: niksite@mail.ru     ICQ: 122408888
 Сайт   : http://allhumor.da.ru
 --- ifmail v.2.15dev5
  * Origin: Это еще FIDO   или уже белая горячка? (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Изменить файл   Kostya Pavlovich   04 Dec 2001 09:25:01   Moderatorial [+] (Re: Изменить файл)   Comoderator of RU.CGI.PERL   04 Dec 2001 12:13:53   Re: Изменить файл   Nikolay A. Panov   05 Dec 2001 13:24:34