ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Kuznetsov                       2:5011/139     12 Apr 2003  17:47:34
 To : All
 Subject : подскажите
 -------------------------------------------------------------------------------- 
 

 
 в перле полохо ещё понимаю, но вот вздумалось переписать свой sh-вый pntfix на
 перл
 мне над сделать парсинг поинтсегмента и проверить на наличие существующнего
 поинта
 ### Parse message ##############################################################
 open(MSG,"< $cfg{msg}") or die "can't open $cfg{msg}";
 (%msg)=();
 while(<MSG>){
 $msg{fn}=$1      if /^name:\s+(\w+)\s+(\w+)$/i;
 $msg{ln}=$2      if /^name:\s+(\w+)\s+(\w+)$/i;
 $msg{num}=$1     if /^point:\s+(\d+)$/i;
 $msg{st}=$1      if /^station:\s+(\S+)/i;
 $msg{pwd}=$1     if /^password:\s+([\S+]{1,8})$/i;
 $msg{ph}=$1      if /^phone:\s+([+\d][\d\-W]+)$/i;
 }
 close(MSG);
 
 ### Parse pointlist ############################################################
 open(LST,"< $cfg{lst}") or die "can't open $cfg{lst}";
 while ( <LST> ) {
  chomp;
    if (/^point/i) {
       my (undef, $num) = split /,/;
       print "$num\n";
       }
 }
 close(LST);
 что имеем
 
 MSG:
 
 Oleg_Kuznetsov
 2:5011/139.98
 Ocean[X]
 12345678
 7-3472-767415
 
 LST:
 
 1
 2
 3
 4
 5
 6
 7
 8
 9
 11
 10
 55
 98
 94
 
 в $msg{num} получаем номер 98, такой же номер уже сушествует в сегменте. значит 
 над забраковать
 только вот ни чё теперь в голову не приходит, в sh было куда проще это сделать
 
 if cat ${pntlist}|grep ^Point,`sed -n '2p' "$t"|awk '{print $2}'`'\>' >/dev/null
 ; then
 
 т.е
 поинт сушествует;
 [root@shark pnt][17:56:34]\>cat node0139.pnt|grep ^Point,98
 Point,98,OS,Ufa,Sergey_Phahretdinov,-Unpublished-,9600,V32B,V42B,MO
 не существует:
 [root@shark pnt][17:56:38]\>cat node0139.pnt|grep ^Point,99
 [root@shark pnt][17:56:59]\>
 
 возрашает 1 или 0
 как сделать проверку на перле
 
 Oleg
 ... Xmms play: Bloodhound Gang - Vagina
 --- GoldED+/BSD 1.1.5 (FreeBSD 4.8-STABLE i386) !
  * Origin: 17:47  up 20:52, 6 users, load averages: 0,07 0,11 0,08 (2:5011/139)
 
 

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

Тема:    Автор:    Дата:    подскажите   Oleg Kuznetsov   12 Apr 2003 17:47:34   Re: подскажите   Andrew Alakozow   12 Apr 2003 17:11:14   подскажите   Oleg Kuznetsov   14 Apr 2003 17:03:56   Re: подскажите   Andrew Alakozow   14 Apr 2003 16:15:04   подскажите   Oleg Kuznetsov   15 Apr 2003 16:23:14   подскажите   Ruslan Sulemanov   15 Apr 2003 08:04:51   подскажите   Oleg Kuznetsov   15 Apr 2003 18:08:58