Newsgroups: fj.questions.unix
Path: galaxy.trc.rwcp.or.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!rim.or.jp!Q.T.Honey!news.join.ad.jp!wnoc-tyo-news!news.nc.u-tokyo.ac.jp!train.ad.jp!twcu.ac.jp!nntp!tanaka
From: tanaka@twcu.ac.jp (TANAKA Satoshi)
Subject: Re: =?iso-2022-jp?B?XkgbJEIkTjpvPXwbKEI=?=
In-Reply-To: UETAKE@fujielectric.co.jp's message of 13 Mar 1998 17:17:28 JST
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <TANAKA.98Mar17142604@honeydew-melon.twcu.ac.jp>
Lines: 22
Sender: news@twcu.ac.jp (Usenet News System)
Organization: Tokyo Woman's Christian University, Japan
References: <3508EB98.B26F4409@fujielectric.co.jp>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Date: Tue, 17 Mar 1998 05:26:04 GMT
Xref: galaxy.trc.rwcp.or.jp fj.questions.unix:8041
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.questions.unix&nb=8041&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.

> script$B$N=PNO%U%!%$%k$KF~$C$?(B^H$B$r:o=|$9$k(B
> $BJ}K!$r65$($F2<$5$$!#(B

^H$B$G>C$7$?J8;z$bF1;~$K>C$7$?$$$N$G!"(B

#! /usr/local/bin/perl
while (<>) {
    s/^M$//;
    while (/^H/) {
        s/.^H//;
    }
    print $_;
}
$B$J$N$r;H$C$F$$$^$9!#(B

s/.^H//g$B$8$c$&$^$/$$$+$J$$$s$G$9(B(;_;)$B!#$I$N(Bsed$B$d(Bperl$B$b$G$7$g$&$+(B? 


$BEDCfAo(B
TANAKA Satoshi
tanaka@twcu.ac.jp

