🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

2 total messages Started by Osamu Kikukawa Sun, 01 Aug 1999 00:00
Help: Line Count on mule
#427
Author: Osamu Kikukawa
Date: Sun, 01 Aug 1999 00:00
52 lines
3078 bytes
$B5F@n$H?=$7$^$9!#$A$g$C$H(Bmule$B$K4X$9$k<ALd$r$5$;$F$/$@$5$$!#(B

$B;d$O;E;v$G$N869F=q$-$K(BFreeBSD 2.2.7$B>e$G(Bmule(ja-mule+wnn6-2.3)$B$r;H$C$F(B
$B$$$^$9!#869F$NJ,NL$OBgDq!"(B1$B9T$"$?$j$NJ8;z?t!_9T?t$H$$$&7A$G;XDj$5$l$k(B
$B$N$G$9$,!"$=$N9T?t7W;;$,$J$+$J$+4JC1$K9T$J$($::$$C$F$$$^$9!#(B

$B8=>u$G$O!"$^$:(BText$B%b!<%I$G(BFill Column$B$r!V(B1$B9T$"$?$j$NJ8;z?t!_(B2$B!W$K%;%C(B
$B%H$7!"(Bauto-fill$B$r(BON$B$K$7$FJ8>O$rF~NO!#J8>OESCf$N=$@5$r9T$J$C$?$i!"$=$N(B
$BEY$K(Bfill-paragraph ($B%?%$%W$7$d$9$$%-!<$KDj5A$O$7$F$$$^$9(B)$B$r7+$jJV$7!"(B
$B9T?t$O(B^x-l$B$G?o;~3NG'!"$H$$$&$3$H$r$d$C$F$$$^$9!#(B

$B$?$@$3$NJ}K!$G$O3F9T$4$H$K2~9T$5$l$?%F%-%9%H$K$J$C$F$7$^$&$?$a!"$"$H$G(B
$BCJMn$4$H$N2~9T$KD>$5$J$1$l$P$J$j$^$;$s$7(B($B$^$"!"%3%^%s%I$R$H$D$G$O$"$j(B
$B$^$9$,(B)$B!"F~NOCf$K$7$F$b(Bfill-paragraph$B$rO"BG$9$k$H$$$&$N$,!"$I$&$b%9%^(B
$B!<%H$J$d$jJ}$K;W$($^$;$s!#$=$3$G8zN(2~A1$H<+8JK~B-$NN>LL$+$i!"$b$C$H%9(B
$B%^!<%H$JF~NO4D6-$r:n$j>e$2$i$l$J$$$b$N$+$H;W$C$F$$$k<!Bh$G$9!#(B

$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?

(1)$B$K4X$7$F$O!"(B^x-3$B$G%P%C%U%!$r2#%9%W%j%C%H$7$F!"(B^x-}$B!"(B^x-{$B$G%P%C%U%!(B
$B$NI}$rD4@0(B($B$G$-$l$PJ8;z?t$r;XDj$7$F(B1$BH/$G9T$J$($k$h$&$K(B)$B$9$l$PNI$5$=$&(B
$B$G$9$,!"LdBj$O(B(2)$B$N9T?t7W;;$G$9!#$3$N>l9g$@$H2~9T$G6h@Z$i$l$?9T?t$7$+(B
$BI=<($7$J$$(B^x-l$B$O;H$$J*$K$J$j$^$;$s!#(B

$B$I$J$?$+0J>e$N$h$&$JMW5a$rK~B-$5$;$k$h$&$J(Bemacs lisp$BEy$NB8:_$K$D$$$F$4(B
$BB8CN$NJ}$O$$$i$C$7$c$$$^$;$s$G$7$g$&$+!#$b$A$m$s;z5M$a$H9T?t$rGD0.$G$-(B
$B$kJ}K!$G$"$l$P!"$^$C$?$/JL$N%"%W%m!<%A$d$=$N%R%s%H$G$b7k9=$G$9!#(B

$B%o!<%W%m%=%U%H$NF3F~$b0l1~$O9MN8$7!"(BdpNote$B$,H/Gd$K$J$C$?$H$-$O$H$j$"$((B
$B$:9XF~$7$F$_$^$7$?!#$7$+$7J8>O$NF~NO$HJT=8$H$$$&4pK\E*$J5!G=$GK~B-$G$-(B
$B$J$$ItJ,$bB?$/!"$I$&$7$F$b%a%$%s$G;H$&5$$K$O$J$l$^$;$s!#$^$?F|K\8lF~NO(B
$B$O(Bwnn6$B$r;HMQ$9$k$N$G!"7k6I$N$H$3$m(Bmule$B$G4D6-2~A1$G$-$l$P0lHV$J$N$+$J$H(B
$B;W$C$F$$$^$9!#(B

$B<+J,$G(Bemacs lisp$B$rJY6/$7$F$I$&$K$+$9$l$P%Y%9%H$J$N$G$7$g$&$,!"$J$+$J$+(B
$B$=$3$^$G;~4V$r9)LL$G$-$J$$$b$N$G!D(B $B$I$&$+$h$m$7$/$*4j$$$$$?$7$^$9!#(B

# $B$3$&$$$C$?<{MW$C$F$"$^$jL5$$$N$G$7$g$&$+!#(B


-+--+-        //--- 
/----, | | | /| \/  
 \|/ | | | |  ||/\  Osamu Kikukawa
 -+- | | | |  ||//\ osam@super.win.ne.jp
 /|\ ; '   |  | //  Setagaya-ku Tokyo Japan
Re: Help: Line Count on mule
#428
Author: Seiichi Namba
Date: Mon, 02 Aug 1999 00:00
76 lines
3998 bytes
$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
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads