文字列操作に関する質問です。

すいません。教えてください。

テスト,:10,田中<TANAKA>NONAMAEHA一郎<ITIROU>TO言<I>IMASU,N000,123,__,050210,99999,
が$_に入っているとして、これを

テスト,:10,田中NONAMAEHA一郎TO言IMASU,N000,123,__,050210,99999,
テスト,:10,田中NONAMAEHA一郎TOIIMASU,N000,123,__,050210,99999,
テスト,:10,田中NONAMAEHAITIROUTO言IMASU,N000,123,__,050210,99999,
テスト,:10,田中NONAMAEHAITIROUTOIIMASU,N000,123,__,050210,99999,
テスト,:10,TANAKANONAMAEHA一郎TO言IMASU,N000,123,__,050210,99999,
テスト,:10,TANAKANONAMAEHA一郎TOIIMASU,N000,123,__,050210,99999,
テスト,:10,TANAKANONAMAEHAITIROUTO言IMASU,N000,123,__,050210,99999,
テスト,:10,TANAKANONAMAEHAITIROUTOIIMASU,N000,123,__,050210,99999,

というように<>の部分を展開してout.txtというファイルに出力するプログラムを作りたいです。
どうか、よろしくお願い致します。

No.1 回答者： fire-- 回答日時： 2005/11/28 15:37

$_に入っている文字列ですが、この形では無理ですね。

<TANAKA>を田中と対応させていますが、<>を特殊文字と考えれば
TANAKAは取り出せますが、これが田中と対応するのを理解するには
常識を前提とした推理が必要です。
<田中|TANAKA>ならば<>|を特殊文字とすえば可能でしょう。

やりかたは色々あると思いますが、初心者向けの単純な方法として
つぎのような手順ではどうでしょう。
１．aaa<bbb>ccc<ddd>eee<fff>ggg の文字列を<>で分割し、
aaa bbb ccc ddd eee fff ggg の７個の文字列に分解する。
index関数とsubstr関数でできます。
２．bbb ddd fff を更に|で分解する。
　　これもindex関数とsubstr関数でできます。
３．次に全組み合わせの結合された文字列を作る。
　　$a = $b . $c;のように結合できます。

以下URLで全てできるはずです。
http://www.tohoho-web.com/wwwperl.htm

頑張ってください。

この回答へのお礼

早速の回答ありがとうございます。
なるほど。参考にしてがんばってみます。

お礼日時：2005/11/28 20:19

No.2 回答者： t140 回答日時： 2005/11/28 16:42

open(OUT, ">out.txt") or die;

s/<.*?>//g; # s/<[A-Z]+>//g or s/<[^>]*>//g
print OUT $_;
close(OUT);

この回答へのお礼

早速の回答ありがとうございます。

お礼日時：2005/11/29 11:40

No.3 回答者： BLUEPIXY 回答日時： 2005/11/28 18:48

$_="テスト,:10,田中<TANAKA>NONAMAEHA一郎<ITIROU>TO言<I>IMASU,N000,123,__,050210,99999,";

@a=split /,/;
$a[2]=~s/([^A-Z].*?)<([A-Z].*?)>/\2/g;

print join(",",@a) . ",";

No.4 ベストアンサー 回答者： moon_piyo 回答日時： 2005/11/29 07:04

$_="テスト,:10,田中<TANAKA>NONAMAEHA一郎<ITIROU>TO言<I>IMASU,N000,123,__,050210,99999,";

@a = split(/,/,$_,-1);
@b = $a[2] =~ /([^A-Z][^<]*)<([A-Z]+)>/g;
($fmt = $a[2]) =~ s/[^A-Z][^<]*<[A-Z]+>/%s/g;
open(OUT, ">out.txt");
foo([@b], []);
close(OUT);

sub foo {
my @b = @{$_[0]};
my @c = @{$_[1]};
my @d = splice(@b, 0, 2);
if (@d) {
foo([@b], [@c,$d[0]]);
foo([@b], [@c,$d[1]]);
return;
}
$a[2] = sprintf($fmt, @c);
print OUT join(",", @a)."\n";
}

この回答へのお礼

回答ありがとうございます。
ばっちりできました。
再帰させているのですねなるほど。

お礼日時：2005/12/02 19:18