[問題] 搜尋上的問題
! 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
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
