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;

my $write_phonetic= IO::File->new("phonetic-$count.txt","w");
my $write_paraphrase = IO::File->new("paraphrase-$num.txt","w");

print $write_phonetic $1."\n" if $line=~/(\[.*\])/g;
print $write_paraphrase $1."\n" if $line=~/(?<=\])(.*)$/g;
$num++;
$count++;
undef $write_paraphrase;
undef $write_phonetic;
}
undef $read_fh;