perl比對檔案內容 在 コバにゃんチャンネル Youtube 的最讚貼文
「perl比對檔案內容」的推薦目錄：
- 關於perl比對檔案內容 在 コバにゃんチャンネル Youtube 的最讚貼文
- 關於perl比對檔案內容 在 大象中醫 Youtube 的最讚貼文
- 關於perl比對檔案內容 在 大象中醫 Youtube 的最佳解答
- 關於perl比對檔案內容 在 Re: [問題] 大量字串資料個數出現次數統計- 看板Perl 的評價
- 關於perl比對檔案內容 在 Linux 下以Python scripting 輔助系統管理的技巧 的評價
- 關於perl比對檔案內容 在 Perl 台灣| 大家好，感謝管理員同意，讓我跟大家分享一個訊息 的評價
- 關於perl比對檔案內容 在 perl 檔案取代字串的費用及心得，FACEBOOK、PTT和網友分享 的評價
- 關於perl比對檔案內容 在 perl 檔案取代字串的費用及心得，FACEBOOK、PTT和網友分享 的評價
perl比對檔案內容 在 Linux 下以Python scripting 輔助系統管理的技巧 的推薦與評價
在一個像Linux 這樣以檔案為操作導向的作業系統上面，script 的活躍是理所當然的 ... 相比之下，Perl 程式雖然可以寫得更短，但也更不容易看懂；shell 指令稿則不是 ... ... <看更多>
perl比對檔案內容 在 Perl 台灣| 大家好，感謝管理員同意，讓我跟大家分享一個訊息 的推薦與評價
在社團裡的各位應該都是大神、老手和高手，可能比較不需要入門書，不過如果各位有機會要帶新人使用Perl ，歡迎推薦本書！ Perl 在作業系統裡、科技公司的 ... ... <看更多>
perl比對檔案內容 在 Re: [問題] 大量字串資料個數出現次數統計- 看板Perl 的推薦與評價
※ 引述《spider1216 (順著感覺走)》之銘言：
: 不好意思我是perl新手
: 我的問題是 我現在有404個單字資料庫
: 然後我要去比對一個文字檔案，其內容由上面資料庫中的單字組成
: 我想去統計我的文字檔案中 有哪些資料庫單字且出現幾次
: 請高手可以教我該怎麼做
==== FILE: dict ====
hello
you
how
do
are
==== FILE: sentence ====
How do you do ?
How are you ?
What is your name ?
==== FILE: count.pl ====
#!/usr/bin/perl
use strict;
use warnings;
my %dict = ();
my %unseen = ();
#### 讀入字典檔
open( DICT, "dict" );
while (<DICT>) {
chomp;
$dict{ lc($_) } = 0;
}
close(DICT);
#### 比對並計算出現次數
open( FH, "sentence" );
while (<FH>) {
chomp;
my @words = split( /[^a-zA-Z]+/, $_ );
foreach my $w (@words) {
if ( exists( $dict{ lc($w) } ) ) {
$dict{ lc($w) }++;
}
else {
$unseen{ lc($w) } = 0;
}
}
}
close(FH);
#### 輸出統計結果
print "$_ => $dict{$_}\n" foreach ( sort keys %dict );
print "UNSEEN: ", join( ", ", sort keys %unseen ), "\n";
# perl count.pl
are => 1
do => 2
hello => 0
how => 2
you => 2
UNSEEN: is, name, what, your
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.114.64.130
... <看更多>