Re: [問題] 檔案字串比對
※ 引述《cp3cp3 (侵掠如火、不動如山)》之銘言：
: 若我有一個檔案,是這樣的資料格式
: AB EF CCA,XDE,PPC ACE,DDE
: AC DG ACE ACE,DDE,CCA
: DC AS CCA,XDE,PPC,FDS,JKL CCA,XDE,PPC,FDS
: 第一欄的物件對應到第三欄
: 第二欄的物件對應到第四欄
: 第三欄和第四欄內的物件個數是不固定的,但至少>=1
: 我想要利用第三欄和第四欄的資訊算出每一個record的交集和連集數目,
: 要如何寫比較好?
: 謝謝!
#!/usr/bin/perl
printf("%-32s%-32s%-8s%-8s\n%s\n", 'A', 'B', 'A&B', 'A|B', '=' x 80);
while(<DATA>) {
($A, $B, $C, $D)=split;
map { $CHK{$_}++ } split(/,/, "$C,$D");
$AnB=grep { $CHK{$_} > 1 } keys %CHK;
$AoB=keys %CHK;
printf("%-32s%-32s%-8s%-8s\n", "$A:$C", "$B:$D", $AnB, $AoB);
undef %CHK;
}
__DATA__
AB EF CCA,XDE,PPC ACE,DDE
AC DG ACE ACE,DDE,CCA
DC AS CCA,XDE,PPC,FDS,JKL CCA,XDE,PPC,FDS
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.192.170.66
→
06/05 20:50, , 1F
06/05 20:50, 1F
→
06/07 01:17, , 2F
06/07 01:17, 2F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
10
113