From owner-FreeBSD-users-jp@jp.freebsd.org  Thu Nov 19 19:38:12 1998
Received: by jaz.jp.freebsd.org (8.9.1+3.1W/8.7.3) id TAA01808;
	Thu, 19 Nov 1998 19:38:12 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from jiyu.net ([209.100.98.61])
	by jaz.jp.freebsd.org (8.9.1+3.1W/8.7.3) with ESMTP id TAA01800
	for <freebsd-users-jp@jp.freebsd.org>; Thu, 19 Nov 1998 19:38:10 +0900 (JST)
	(envelope-from daichi@ongs.net)
Received: from localhost (ppph083.wbs.ne.jp [202.219.55.83])
	by jiyu.net (8.8.5/8.8.5) with ESMTP id TAA14835
	for <freebsd-users-jp@jp.freebsd.org>; Thu, 19 Nov 1998 19:38:03 +0900
To: freebsd-users-jp@jp.freebsd.org
X-Mailer: Mew version 1.94b1 on XEmacs 20.4 (Emerald)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19981019193821P.daichi@ongs.net>
Date: Mon, 19 Oct 1998 19:38:21 +0900
From: Daichi Goto <daichi@ongs.net>
X-Dispatcher: imput version 981019(IM102)
Lines: 66
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+981115
X-Sequence: FreeBSD-users-jp 35397
Subject: [FreeBSD-users-jp 35397] About sed and perl
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$BBgCO$G$9(B :)

FreeBSD 3.0
   ja-sed-1.18
   ja-perl-5.005.02


$B>e=R$N(B sed $B$d(B perl $B$GF|K\8l$NCV49%W%m%0%i%`$r:n$C$F$$$k$N$G$9$,!"F|K\8l$N(B
$BCV49$,$&$^$/9T$o$l$^$;$s!#(B

#!/bin/csh -f
#
## unerdirectoryalltoWVonPNGS
#

set files=`find . -name "*" -print`

set count=1
while ($count <= $#files) 
  if ("$files[$count]" =~ *.html || "$files[$count]" =~ *.shtml) then 
    echo "$files[$count]"
    sed \
     -e 's/1998.11.12/1998.11.15/' \
     -e 's/<\! $B%"%I%l%9>O(B>/<\!-- -->/' \
     -e 's/<b>/<strong>/' \
     -e 's/<\/b>/<\/strong>/' \
    "$files[$count]" | nkf -j > /tmp/unerdirectoryalltoWVonPNGS"$USER"process"$$"
    cat /tmp/unerdirectoryalltoWVonPNGS"$USER"process"$$" > "$files[$count]"
    rm /tmp/unerdirectoryalltoWVonPNGS"$USER"process"$$"
  endif
  @ count++
end 

exit 0

$B$^$?$O!"(B

#!/usr/bin/perl
#
## dai2doc -- File Converter for doc-jp Language style
#

$argv = shift(@ARGV);
while ($argv) {
  open(fileID, $argv);
  $buffer = <fileID>;
  while ($buffer) {
	$buffer =~ s/$B!#(B/. /g;
	$buffer =~ s/$B!"(B/, /g;
	$buffer =~ s/document/d a i c h i/g;
	print $buffer;
	$buffer = <fileID>;
  }
  close(fileID);
  $argv = shift(@ARGV);
}

$B$J$I$G$9!#%"%9%-!<J8;z$O$&$^$/$$$/$N$G$9$,!"F|K\8l$O$I$&$b$@$a$G$9!#F|K\8l(B
$B$G9T$&$K$O2?$+;XDj$,B-$j$J$$$N$G$7$g$&$+!)(B

$B0JA0$+$i2r7h$G$-$J$$$G$$$?$N$G$9$,!"$I$J$?$+<B9T$5$l$F$$$k$+$?$O$$$i$C$7$c(B
$B$k$G$7$g$&$+!#(B
$B$465<x$*4j$$$7$^$9(B m(_ _)m
----
 Daichi T.GOTO (ONGS)
    http://www.ongs.net/daichi, daichi@ongs.net
