🚀 go-pugleaf

$BFqGH$G$9!#(B

osam@super.win.ne.jp (Osamu Kikukawa) $B$5$s(B writes:

> $B$H$j$"$($:B>$N%W%i%C%H%U%)!<%`(B(DOS$B$d(BMacintosh)$B$r;H$C$F$-$?7P83$G$O!"(B
> 
> (1) $BG$0U$N7e?t$G2~9T%3!<%I$NA^F~$J$7$K%F%-%9%H$,@^$jJV$5$l$k!#(B
> (2) $B3F9TF,$K9THV9f$,I=<($9$kEy!"J,$+$j$d$9$$7A$G>o;~9T?t$rI=<($9$k!#(B
> 
> $B$H$$$C$?7A$,M}A[E*$K;W$($^$9!#$=$3$G<ALd$J$N$G$9$,!"(Bmule$B$G$=$N$h$&$JF~(B
> $BNO4D6-$r<B8=$9$kJ}K!$O$"$k$G$7$g$&$+(B?

UNIX $B$G$N:n6H$G$"$l$P!"JT=8!"9T?t7W;;!"5M$a9~$_$J$I$N@07A!"$N$h$&$K;E(B
$B;v$r>.$5$$C10L$KJ,$1$F9M$($?$[$&$,$&$^$/$$$/$h$&$K;W$$$^$9!J2<5-$N$h$&(B
$B$J<+J,$N%D!<%k$O!"(BMSDOS $B$N>e$G=q$$$?$b$N$,KX$I$G$9$,!K!#(B

$B;d$N>l9g!"@07A$O!J8e=R$N$h$&$J!"$"$k$$$O<o!9$N!KJL%W%m%0%i%`$r;H$&$b$N(B
$B$H$7$F!"JT=8;~$O9%$->!<j$K2~9T$rF~$l!"9T?t7W;;$K$O(B

#!/usr/bin/perl
$lines_pg=29;                 # $B#1%Z!<%8#2#99T(B
$ch_pg=60;                    # $B#19TA43Q#3#0J8;z(B
$file=@ARGV[0];

$lines=`lf - $file | fold -bs -w $ch_pg | pr -t -l$lines_pg | wc -l`;
$pages=$lines / $lines_pg;
$pages = int($pages+1) if ($pages > int($pages));
                  : $B0J2<=PNO7O$N%3!<%IN,(B

$B$N$h$&$J%W%m%0%i%`$r;H$C$F$$$^$9!#9T?t$N$_I,MW$J$i!"(B$lines $B$N$H$3$m$G(B
print $lines $B$7$F=*$j!"$G$7$g$&$+!#$*8+$;$7$?$"$?$j$^$G$J$iJL$K(B perl 
$B$G$"$kI,MWL5$$$G$9$M(B(pr $B$N(B -t -l$lines_pg $B$b$A$g$C$HM>7W$+$7$i(B)$B!#(B

$B$J$*!">e$N(B lf - $B$H$$$&$N$O!"(BMSDOS $BE*$J%F%-%9%H%U%!%$%k!J%Q%i%0%i%U$N=*(B
$B$j$N$_2~9T!K$r:n$k$?$a$K2~9T$r#1$D8:$i$9$b$N$G$9!J$D$^$j85$N%U%!%$%k$G(B
$B$O!"%Q%i%0%i%U$N=*$j$K2~9T$r#28DF~$l$F$$$kLu$G$9!K!#(Blf.c $B$O$"$^$je:No(B
$B$K=q$$$F$J$$$7!"D9$$$N$G$3$3$G$O>JN,$7$^$9$,!"F1<q$N(B sed $B%W%m%0%i%`$H(B
$B$7$F(B

#!/usr/bin/sed
# cuts line feed
:loop
N
s/\n//           # $BA43Q$N=hM}$@$H!"(Bs/[^$B!#(B]\n// $B$_$?$$$J46$8$G$b$$$$$+$b!#(B
$b
t loop
P
D
b loop

$B$_$?$$$J$b$N$r>e5-$N(B lf $B$NBe$j$K;H$C$F$$$?$3$H$b$"$j$^$7$?(B(sed $BKX$I(B
$BK:$l$F$7$^$C$FFI$a$J$$$N$G$9$,!"$3$l$G4V0c$$$J$$$h$J!D(B)$B!#(B

$B$=$NB>$N(B fold ($B#19T$X$N5M$a9~$_$O$3$l$G$d$C$F$^$9$,!"(BGNU pr $B$J$i$3$3$b(B
$B7sMQ$G$-$k$+$b(B), pr, wc $B$J$I$O(B linux $B$J$N$G!"(BGNU $B$N$b$N$@$H;W$$$^$9$,!"(B
$BFC$KF|K\8l2=$5$l$?$b$N$O;H$C$F$$$^$;$s!#;d$OH>3Q$N%9%Z!<%9$J$I$OKX$I;H(B
$B$o$J$$$N$G>e5-$N$h$&$J46$8$GNI$$$N$G$9$,!"$"$k$$$O(B fold $B$"$?$j$G8m:9$,(B
$B=P$k$+$b$7$l$^$;$s$+$i!"@53N@-$r4|$9$N$G$"$l$P$b$&>/$7%3!<%I$rDI2C$9$k(B
($B$"$k$$$OMWIt$N$_<+J,$G=q$/!)(B)$BI,MW$,$"$k$+$b$7$l$^$;$s$M!#(B

$B%3!<%I$,(B SJIS $B$+(B EUC $B$J$i$P!"$?$V$s$3$NMQES$G$O$=$N$^$^$GBg>fIW$G$9$,!"(B
JIS $B$N>l9g$O$b$7$+$7$?$iE,59(B nkf $B$J$I$r$+$^$;$?$[$&$,$$$$$N$+$b$7$l$^(B
$B$;$s!#(B

$B@07A$N$[$&$O!">e$N(B lf - | fold | pr $B$NItJ,$G$b$"$kDxEY=PMh$F$k$h$&$J5$(B
$B$b$7$^$9$,!"2<5-$N(B web $B%Z!<%8$KCV$$$F$"$k(B ep $B$H$$$&(B elisp $B%Q%C%1!<%8$r(B
$B!J$b!K;H$C$F$$$^$9!#(Bemacs-20 $B7O$G$O$?$V$s;H$($J$$$H;W$&$N$G$9$,!"(B
mule-2.3 $B$G$OF0$/$H;W$$$^$9!#$=$N$&$A(B emacs-20.x $BBP1~$N$b$N$K99?7$7$F$*(B
$B$-$^$9!#(B

$B:G6a$O!"J?J8$N%F%-%9%H$r(B html $B$KJQ49$7$FEO$7$F$7$^$&$3$H$bB?$/$F!"$3$N$h(B
$B$&$J$b$N$r;H$C$F<+J,$G@07A!"0u:~$9$k$3$H$,8:$C$F$-$?$h$&$J5$$b$7$^$9!#(B

-- 
$BFqGH@60l!wEl5~J]C+;T(B (http://www.asahi-net.or.jp/~pi9s-nnb/)
NAMBA Seiichi / sn@asahi-net.email.ne.jp