Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!etlnews.etl.go.jp!etlinn.etl.go.jp!etl.go.jp!trc.rwcp!rwc-tyo!news.iij.ad.jp!nttfgw.ntt-f.co.jp!lab!news.imnet.ad.jp!usenet.seri.re.kr!news.kreonet.re.kr!news.dacom.co.kr!news.uoregon.edu!tank.news.pipex.net!pipex!lade.news.pipex.net!pipex!news00.sunet.se!sunic!news.sprintlink.net!news.gdbnet.ad.jp!sinetnews!newssinet!news.nc.u-tokyo.ac.jp!train.ad.jp!twcu.ac.jp!avocado!uehara
From: uehara@zem.twcu.ac.jp (Ryuhei Uehara)
Subject: Re: [Q]Sashikomi Insatsu
In-Reply-To: ggjd409@srv.cc.hit-u.ac.jp's message of 07 Oct 1995 16:40:19 JST
Message-ID: <UEHARA.95Oct9095028@avocado.zem.twcu.ac.jp>
Sender: news@twcu.ac.jp (Usenet News System)
Organization: Tokyo Woman's Christian University, Japan
References: <455at3$g16@sol.cc.hit-u.ac.jp>
Date: Mon, 9 Oct 1995 00:51:28 GMT
Lines: 84
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:6776
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=6776&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$BEl5~=w;RBg3X$N>e86$H?=$7$^$9!#(B

Hideaki> $B$[$H$s$I$NItJ,$,F1$8J8LL$G$"$k$,!"0lItJ,$N$_$=$l$>$l$,(B
Hideaki> $B0[$J$C$F$$$kBgNL$NJ8=q$r:n@.$7$J$1$l$P$J$i$J$$!#(B($BNc$($P(B
Hideaki> $BF1$8J8LL$G$"$k$,08$F@h$,0[$J$C$F$$$k<j;f$dMU=q$NBgNL0u:~(B)
Hideaki> $B$=$3$G!"(B*.tex$B%U%!%$%k$N$J$+$G$O!"08$F@h$d@hJ}$NL>A0$J$I$r(B
Hideaki> \address \name $B$J$I$H$$$&$h$&;XDj$7$F$*$/!#0lJ}!"(B
Hideaki> $B08$F@h$d@hJ}$NL>A0$N$_$r(BBibTex$B$N(B*.bib$B%U%!%$%k$N$h$&$K(B
Hideaki> $B%j%9%H$K$7$F$*$-!"$3$l$r(B*.tex$B%U%!%$%k$NCf$G;XDj$9$k$H!"(B
Hideaki> $B$3$N%j%9%H$K5-:\$5$l$?>pJs$rJ8Cf$K:9$79~$_$J$,$i!"A4$F$K(B
Hideaki> $B$D$$$F0u:~$7$F$/$l$k!#(B

$B;d$OKhG/?tI4?MJ,$N%Q%9%o!<%I$rH/9T$7$F$$$k$N$G$9$,!"$3$N$H$-$K$3$&$7$?(B
$B:n6H$r9T$C$F$$$^$9!#;29M$K$J$k$+$I$&$+$o$+$j$^$;$s$,!"4JC1$K>R2p$7$^$9!#(B

$B%G!<%?$=$N$b$N$O(B
----------------------------------------------------------------------
login$BL>(B, password
login$BL>(B, password
login$BL>(B, password
login$BL>(B, password
----------------------------------------------------------------------
$B$H$$$&46$8$N%U%!%$%k$K$J$C$F$$$F!"(Bperl $B$r;H$C$F$3$3$+$i8D?M$"$F$N%W%j(B
$B%s%H$r0u:~$9$k(B TeX $B$N%=!<%9$r@8@.$7$F$$$^$9!#6qBNE*$K$O!"(Bperl $B$N%9%/%j(B
$B%W%H$G!"(B

$B!&(B\begin{document}$B$J$I$N:G=i$NItJ,$r=PNO(B
$B!&%G!<%?$,$"$k8B$j!"0J2<$r7+$jJV$9(B
  - $B%G!<%?$rFI$_9~$s$G!"JQ?t$H$7$F(B \def $B$9$k(B
  - $B%W%j%s%HMQ$N?w7A$rFI$_9~$s$G=PNO(B
  - $B2~%Z!<%8$9$k(B
$B!&(B\end{document}$B$r=PNO$9$k(B

$B$H$$$C$?46$8$N$3$H$r$d$C$F$$$^$9!#$"$H$O=PNO$5$l$?%U%!%$%k$r(B latex $B$K(B
$B$+$1$F=PNO$9$l$P!"3F8D?M$"$F$N%Q%9%o!<%I$N%W%j%s%H$,$G$-$"$,$j$G$9!#(B
perl $B$N%9%/%j%W%H$=$N$b$N$O$?$$$7$?$b$N$G$O$J$$$N$G$9$,!"0l1~E:IU$7$^(B
$B$9!#Cf$GFI$_9~$`?w7A$NItJ,$r9)IW$9$l$P!"$$$m$$$m$H;H$($k$N$+$b$7$l$^$;(B
$B$s!#(B

----------------------------------------------------------------------
#!/usr/local/bin/perl
#
# $B%Q%9%o!<%I$r0u:~$9$k(BTeX$B%U%!%$%k$N:n@.MQ%9%/%j%W%H(B
#
#Usage: mktexfile passwd-pair-file
#
# $B=hM}7k2L(B:
#passwd-pair-file.tex $B$K!"$9$Y$F$N?M$N%W%j%s%H$r:n@.$9$k!#(B
#
$datafile=$ARGV[0];
if ($datafile eq "") { 
print "Usage: mktexfile passwd-pair-file\n" ; 
exit 1 ;
}

open(SFILE, $datafile) || die "Can't open $datafile: $!\n" ;
open(DFILE, ">".$datafile.".tex") || die "Can't open $datafile.tex: $!\n" ;

print DFILE "\\documentstyle[a4j]{jarticle}\n" ;
print DFILE "\\pagestyle{empty}\n" ;
print DFILE "\\begin{document}\n";

while(<SFILE>){
@data = split(',',$_);
$loginname = @data[0];
$passwd = @data[1];
print DFILE "\\def\\loginname{$loginname}\n";
print DFILE "\\def\\temppasswd{$passwd}\n";
close DFILE;
system("cat passtail.tex >> $datafile.tex");
open(DFILE, ">>".$datafile.".tex") || die "Can't open $datafile.tex: $!\n" ;
}

print DFILE "\\end{document}\n";

close DFILE;
close SFILE;
----------------------------------------------------------------------
--
---
                                            $BEl5~=w;RBg3X>pJs=hM}%;%s%?!<(B
                                                               $B>e86(B $BN4J?(B
                                                       uehara@twcu.ac.jp
