あらあら、宿題なのね？

42 ：名無しさん＠カラアゲうまうま ：02/06/19 01:29

しょうがねぇな。ほれ、bash builtinのみだ。

untag() {
　　local IFS= line cont
　　while read line; do
　　　　if [ $cont ]; then
　　　　　　line="${line#*>}"
　　　　fi
　　　　until [ -z "$line" ]; do
　　　　　　echo -n "${line%%<*}"
　　　　　　case "$line" in
　　　　　　*\<*) line="${line#*<}";;
　　　　　　*) break;;
　　　　　　esac
　　　　　　case "$line" in
　　　　　　*\>*) line="${line#*>}";;
　　　　　　*) cont=true; continue 2;;
　　　　　　esac
　　　　done
　　　　echo
　　done
}

43 ：名無しさん＠カラアゲうまうま ：02/06/19 01:30

いけね。一行追加。

> 　　　　if [ $cont ]; then
> 　　　　　　line="${line#*>}"
　　　　　　cont=
> 　　　　fi

read.cgi ver5.26+ (01/10/21-)