🚀 go-pugleaf

難波です。

inaba@st.rim.or.jp (Inaba Hiroto) さん writes:

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

ありがとうございました。

> #!/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 <>;

下記のような事情で、オプション -/+ によって分岐するそれぞれの本体部分
のみテストしてみましたが、regex で書くとずいぶんさっぱりしますね。私の 
lf.c は入力の最後の改行を特別扱いしていて、そのへんがちょっと違うよう
ですが（lf.c は lf - の時でも最後の奴は除去しない方がいいんじゃないか、
という作りになっています）、概ね目的を達成できると思います。

lf.c は改行の連続する数が多い時の動作がいい加減に書いてあるので、その
へんもお書き戴いたような regex による記載の方がすっきりするように思います。

elsif の前の } が足りないようですが、これは書き足すとして、

Can't use subscript on constant item at /home/sn/bin/lf.pl line 2, near "0]"
Execution of /home/sn/bin/lf.pl aborted due to compilation errors.

となってしまうのは私の perl が古いせいでしょうか：

This is perl, version 5.005_03 built for i386-linux

> #もちろんrubyでもpythonでも同様に書けるでしょう。
> #多分nawkでも。

sed だと lf.sed - の時、というか、行を繋ぐのが面倒くさい、のかな。
その後、~/sed を漁っていたら、

$ cat ~/sed/cutlf.sed 
# cuts line feed
:loop
N
s/\n//
$b
t loop
P
D
b loop

などというのが出てきました。これは lf - にほぼ同等な動作を書こうとして
るように思え（もう sed 読めなくなってしまっていて自作ながら自信がもて
ませんが）ます。