🚀 go-pugleaf

$B0KF#!wF|N)EE@~$G$9!%(B

In article <ITO.96Mar27214350@johp425.htk.hitachi-cable.co.jp> ito@htk.hitachi-cable.co.jp writes:

>   w3 $B$r;H$C$F!$(BWWW $B$N>pJs$r%P%C%A=hM}$G=8$a$h$&$H;W$$!$(B
>
>     mule -batch -l w3 -f w3-batch-fetch binary http://www.foo.co.jp
>
>   $B$H$$$&$h$&$J$3$H$r$d$C$F$_$^$7$?!%%=!<%9%U%!%$%k$r$=$N$^$^%U%!%$%k$K(B
>   $BMn$H$9$D$b$j$G(B binary $B$r;XDj$7$F$$$^$9!%(B

$B$3$NLdBj$O@h$K%U%)%m!<$7$?$h$&$K!$(B

(set-default-file-coding-system *noconv*)

$B$r9T$J$&$3$H$G2sHr$G$-$k$3$H$,$o$+$j$^$7$?!%(B

$B$5$F!$$d$j$?$$$3$H$O!$<hF@$7$?>pJs$r$=$N$^$^%U%!%$%k$K=q$/$@$1(B
$B$J$N$G$9$+$i!$(Bw3-batch-fetch $B$r;H$o$J$/$F$b!$(Burl-retrieve $B$H(B
write-region $B$r$d$k$@$1$G$h$$$o$1$G$9(B (w3-batch-fetch $B$N%=!<%9(B
$B$r8+$k$H!$4pK\E*$K$O!$(Burl-retrieve $B$H(B write-region $B$r$d$C$F(B
$B$$$k$@$1$G$7$?(B)$B!%LdBj$O(B write-region $B$GF|K\8l$,2u$l$k$3$H$G!$(B
$B$=$l$O(B file-coding-system $B$N@_Dj$G2r7h$9$k$o$1$G$9!%(B

Message-ID: <TOKAJI.96Mar28094314@zaurus.db.nm.fujitsu.co.jp> $B$N(B
$B8M3a$5$s$N%U%)%m!<$K$"$j$^$7$?$h$&$K(B append-to-file $B$N0z?t$G(B
coding system $B$r;XDj$G$-$k$H$$$&$3$H$r%R%s%H$K!$(Bwrite-region $B$N(B
$BJ}$rD4$Y$F$_$^$9$H!$$d$O$jBh(B6$B0z?t$G(B coding system $B$r;XDj$G$-$k(B
$B$3$H$,$o$+$j$^$7$?!%(B

$B0J>e$N$3$H$+$i!$2<$N$h$&$J%9%/%j%W%H$r=q$$$F$_$^$7$?!%(B

   http://www.foo.co.jp/bar/ $B$N2<$N(B
   aaa.html  bbb.html gif/xxx.gif gif/yyy.gif
   $B$H$$$&J#?t$N%U%!%$%k$r0l3g$7$F<hF@$7!$%U%!%$%k$K3JG<$9$k!%(B

$B$H$$$&$b$N$G!$$J$+$J$+JXMx$@$H;W$$$^$9!%(B

$B$J$*!$F1$8$h$&$JL\E*$r(B w3 $B$r;H$o$:$K<B8=$G$-$k(B perl $B%9%/%j%W%H(B url_get $B$H(B
$B$$$&$b$N$,$"$k$3$H$r!$$"$kJ}$+$i%a!<%k$G65$($F$$$?$@$-$^$7$?!%$;$C$+$/(B
w3 $B$N%P%C%A<B9T$,$&$^$/F0$/$h$&$K$J$C$?$H$3$m$G$O$"$j$^$9$,!$(Burl_get $B$N(B
$BJ}$,JXMx$=$&$J5$$b$7$F$$$^$9!%(B

-------------------------------------------
#! /bin/sh
# $B<hF@$7$?$$>pJs$NF~<j@h(B
urlbase="http://www.foo.co.jp/bar"

# $BF~<j$7$?>pJs$N3JG<@h$r;XDj(B
cd $HOME/html/foo/bar

# $BF~<j$7$?$$>pJs$N%j%9%H!$(B
l="aaa.html  bbb.html gif/xxx.gif gif/yyy.gif"

# $B<B9T(B

tmpf=/tmp/tf$$

for i in $l;
do
   d=`expr $i : '\(.*\)/[^/][^/]*$'`
   case "$d" in
      "")  ;;
       *)  mkdirhier $d
           ;;
   esac
   echo "(url-retrieve \"$urlbase/$i\")"
   echo "(write-region (point-min) (point-max) \"$i\" nil nil '*noconv*)"
done > $tmpf

mule -batch -l w3 -l $tmpf
rm $tmpf
--------------------------------
--
$BF|N)EE@~!J3t!K>pJs4IM}<<(B $B0KF#0l8w(B (Ito Kazumitsu) ito@htk.hitachi-cable.co.jp