set PATH=e:\win32\bin
Perl=/cygdrive/e/Dwimperl/perl/bin/perl
#\\win32\\bin\\perl.exe
pc=tregn.dat
ptt=tregful.dat
pts2=tregs
pts22=tfsregs

ppp=2
ppp=`grep -oE 'ht.+sia' url2.dat`

ppp2=$pts2
echo $ppp
pfd=pfull
pfd=pfullsts


#grep -oE '".+"' $pc | sed s/\"//g > $pt

pp="https://meteoinfo.ru"
curl -kv -x 127.0.0.1:21218 -o tth01.htm $pp

# wget -i url2.dat -a wgts.log
#   579  grep -A 36 rosl jus* | grep opt > trkrl.dat

for tt in `cat $ptt`
do
 echo $tt
 pts3=$ppp/$tt
 pfo=ts$tt".dat"
 pfu=tfs$tt".dat"
 pts2=$ppp/$pfo
 ptss=$pts22/$pfu
 for cc in `cat $ptss`
 do
 pts=$pts3/$cc
 
 #grep -oE '".+"' $pts | sed s/\"//g > $pfu
 # grep -A 36 rosl $pts | grep opt > $pfo
# 
 #
  wget $pts -P $pfd -a wgts.log
done
done

tail -3 $ptss

exit
e
A
xit

#Perl=perl
#//////////////////
#head -164 ru*l | tail -150 > namelist_full01
#grep -A 30 "&phy" ru*l > namelist_full_ph
#head -159 r*m | sed 's/export //g' > run_param.txt
#ls > rdpar01.pl
#//////////////////////
#//////////////////////
# 329
head -429 rdpar02.pl | $Perl
#cp bsd bsd.bat
grep [UN\$] *log > cundef.txt
#grep expo *ope*0 | sed 's/export //g' > run_param_env.txt
#grep [UN\$] run*m.txt > ccundef.txt
