如何把一个txt文件里的每个[]内的内容提取出来并生成一个文件.把txt文件里的每个[]内的内容提取出来并单独生成一个文件,就是一个括号一个文件,括号也要提取.每个括号后面的解释也提取

Question

如何把一个txt文件里的每个[ ]内的内容提取出来并生成一个文件.
把txt文件里的每个[ ]内的内容提取出来并单独生成一个文件,就是一个括号一个文件,括号也要提取.每个括号后面的解释也提取出来单独生成一个文件日期不要
如1.txt
['militəri]
2.txt
['miniməm]
a.txt
adj.军事的, 军用的
b.txt
adj.最小的, 最低的|n.最小值, 最小化
内容如：
1 military ['militəri]adj.军事的, 军用的 2012/03/18 23:17
2 minimum ['miniməm]adj.最小的, 最低的|n.最小值, 最小化 2012/03/18 23:17
nuclear [ ˈnju:kliə ] adj. 原子核的,原子能的； [细胞]细胞核的
occasion [ əˈkeiʒən ] n. 机会,时机； 场合； 理由； 需要vt. 惹起, 引起
3 opponent [ə'pəunənt]adj.对立的, 对抗的|n.对手, 反对者 2012/03/18 23:17
4 origin ['ɔridӡin]n.起源, 由来, 起因, 出身, 血统, [数]原点 2012/03/18 23:17
5 outlook ['autluk]n.景色, 风光, 观点, 见解, 展望, 前景 2012/03/18 23:17
6 particularl 2012/03/18 23:17
7 peculiar [pi'kju:ljə]adj.奇特的, 罕见的, 特殊的|n.特有财产, 特权 2012/03/18 23:16
8 perception [pə'sep∫ən]n.理解感知,感觉DPS公司出的数字影像压缩卡 2012/03/18 23:16
9 pessimistic [͵pesi'mistik]adj.悲观的, 厌世的 2012/03/18 23:16
.

Answer 1

#!perl -w use strict;use IO::File;my $count=1;my $num=1;my $read_fh = IO::File->new($ARGV[0]);while( my $line=$read_fh->getline){$line=~s#\d{4}.*$##g;\x05my $write_phonetic= IO::File->new("phonetic-$c...