作者kem610 (努力!! 过更好的生活)
看板Perl
标题[问题] 搜寻上的问题
时间Sun Sep 7 20:18:10 2008
! usr/bin/perl
use strict;
use Data::Dumper;
my $req;
my $enreq;
my $a=1;
my @filename = glob "./*.txt";
foreach my $file(@filename)
{
open FILE, $file;
#print "$a\n";
$a++;
while(<FILE>)
{
$req=$_;
$enreq=$_;
my $name=$_;
#$content=~s/\s//g;
if($req =~ m|<chcontent>(.+?)<\/chcontent>|)
{
$req =~ m|<chcontent>(.+?)<\/chcontent>|;
#print Dumper($req);
$enreq =~ m|<encontent>(.+?)<\/encontent>|;
#print "1 $enreq\n";
$name =~ m|<number>(.+?)<\/number>|;
print $name;
open CHI,">>./CHI/$name.txt";
open ENG,">>./ENG/$name.txt";
print CHI "$name";
print ENG "$name";
close CHI;
close ENG;
}
}
close FILE;
变数$req根$enreq还有$name的印出结果都是相同的,
我目的是想过滤出文章当中文以及英文,在文章当中
有多个被number刮起来的编号,纳编号要做为党名之用
现在想请问为何我三个变数所引出来的都是中文部分,
应该是要有中文 英文 跟数字编号这三种结果,小弟想
了很久还是找不到答案 ,希望板上高手指点迷津
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.200.107