文字列からいくつかの部分文字列をフィルタリングしたい:
.
.
th>Di, -12 ;0907<th
th>Mi, -44 ;1007<th
th>Do, -66 ;1107<th
.
.
私のperlスクリプトは次のとおりです。
.
.
my (@d,$h,$s);
@d=$h=~/(th>(Di|Mi|Do), -\d\d ;\d\d\d\d<th)/igs;
foreach $s (@d)
{print "$s\n";};
Output is:
th>Di, -12 ;0907<th
Di
th>Mi, -44 ;1007<th
Mi
th>Do, -66 ;1107<th
Do
私の問題、私はこの出力が必要です:
th>Di, -12 ;0907<th
th>Mi, -44 ;1007<th
th>Do, -66 ;1107<th
正規表現内で変更せずに一致をフィルタリングするにはどうすればよいですか?