🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.editor.xemacs
Article #10

Re: Japanese text in HTML

#10
From: Inaba Hiroto
Date: Tue, 25 Sep 2001 15:25
35 lines
2614 bytes
稲葉です。fj.comp.lang.perlを加えました。

fj.editor.xemacs の <9omgts$ivl$1@sn.asahi-net.email.ne.jp> の
記事において 2001年09月24日(月) 14時39分07秒頃、
Seiichi Namba <sn@asahi-net.email.ne.jp>さんは書きました。

>DOS の上で microemacs を使い始めたころ、DOS のテキストファイル形式と、
>emacs の前提としている unix 的なテキストファイルの形式の不一致を
>吸収するため、下記のようなフィルタを書きました。仕様は
>
> 入力ストリーム中の n (n=1,2…) 個の連続する改行の数を n-1 に
> 減らしたり (lf -)、n+1 に増やしたりする (lf +) する
>
>というようなものです。
	:
>当時 DOS の上で書いたので C ですが、どなたか 上の仕様の perl 版
>(ruby/bison 何でもいいですが)か何か書いていただけると幸いです。

細かい仕様までは追ってないのですが、以下のようなのでどうでしょう?
#動作チェックしてません。すみません。

#!/usr/local/bin/perl -w
my $mode = (defined(ARAGV[0]) and $ARGV[0] =~ /^[+-]$/) ? shift : "";
if ($mode eq "-") {
  s/(.)\n/$1/, print while <>;
elsif ($mode eq "+") {
  s/(.)$/$1\n/, print while <>;
} else {
  print while <>;
}

#もちろんrubyでもpythonでも同様に書けるでしょう。
#多分nawkでも。
---
稲葉 浩人 inaba@st.rim.or.jp
Technical Details
Message-ID: <20010926002539inaba@st.rim.or.jp>
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!headwall.stanford.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.rim.or.jp!news2.rim.or.jp!not-for-mail
References: <86n13mzya1.wl@goliath.otacky.jp> <9781.1001223010@insigna.ie.u-ryukyu.ac.jp> <86iteayvy1.wl@goliath.otacky.jp> <9omgts$ivl$1@sn.asahi-net.email.ne.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: f9898,724ea531920dd326,start
X-Google-Attributes: gidf9898,public
X-Google-Thread: 1107f7,8ed34cf8603aa849
X-Google-Attributes: gid1107f7,public
X-Google-ArrivalTime: 2001-09-25 08:44:29 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!headwall.stanford.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.rim.or.jp!news2.rim.or.jp!not-for-mail
From: inaba@st.rim.or.jp (Inaba Hiroto)
Newsgroups: fj.editor.xemacs,fj.comp.lang.perl
Subject: Re: Japanese text in HTML
Date: Wed, 26 Sep 2001 00:25:39 +0900
Organization: RIMNET http://www.rim.or.jp/
Lines: 35
Message-ID: <20010926002539inaba@st.rim.or.jp>
References: <86n13mzya1.wl@goliath.otacky.jp> <9781.1001223010@insigna.ie.u-ryukyu.ac.jp> <86iteayvy1.wl@goliath.otacky.jp> <9omgts$ivl$1@sn.asahi-net.email.ne.jp>
NNTP-Posting-Host: ppp556.yk.rim.or.jp
Mime-Version: 1.0
Content-Type: Text/Plain; charset=ISO-2022-JP
X-Trace: news2.rim.or.jp 1001432668 60043 202.247.184.56 (25 Sep 2001 15:44:28 GMT)
X-Complaints-To: root@rim.or.jp
NNTP-Posting-Date: Tue, 25 Sep 2001 15:44:28 +0000 (UTC)
X-Posting-Software: WSNews 2.027 (UNREGISTERED)