#!/usr/bin/perl print "Please Enter the File Name for Extract : "; my $xml = data_from_file(); open(RESULT,">result.txt"); $xml=~s/<\/内容>/<\/内容>\n<\/文章>\n\n/g; $xml=~s/<作者>/<文章>\n\t<作者>/g; $xml=~s/<\/作者>/<\/作者>\n/g; $xml=~s/<\/标题>/<\/标题>\n/g; $xml=~s/<\/titleNum>/<\/titleNum>\n/g; $xml=~s/<(BR)>/<BR>/g; print RESULT $xml; close RESULT; sub data_from_file { $fname=<>; chop($fname); open(FH, $fname); local $/; my $data = ; $data =~s/>/>/g; $data =~s/<作者>$1<\/作者>\t$1<\/titleNum>/g; $data =~s/标\s\s题:\s(.+)\n/\t<标题>$1<\/标题>\t<内容>/g; $data =~s/\n/
/g; close(FH); return $data; }