[問題] 關於雜湊或是陣列的賦值
最近在寫一段篩選字串的演算法
有一段是想要把字串拆開成單一的字母放到陣列裡面
然後計算每個單一字母在原字串中出現的次數
我把拆開的字母跟出現次數這兩個塞到變數裡面
再用迴圈寫成雜湊或是陣列中元素的資料格式
我測試過印出用迴圈跑出來的資料格式應該是正確的
可是再把那個資料塞到一個新的陣列或是雜湊裡面
就失敗了
因為印不出東西
感覺像是沒有放進去
請各位高手幫我看看
謝謝><
以下是我的程式碼
use Switch;
#Convert the input into a LIST with each word (or character) as a list
element.
@mergelist = ('');
$string = "BACDEAFCDGBACD";
$threshold = 1;
$seperator = 'x';
#$t = 0;
my @list = split(//, $string);
push @list, $seperator;
for (my $i=0; $i < $#list; $i++){
@match = ($string =~ /@list[$i]/g);
$t = scalar @match;
$data .= @list[$i].", ".$t.", ";
}
@match = ($string =~ /@list[$#list]/g);
$t = scalar @match;
$data .= @list[$#list].", ".$t;
#print $data; => 這行印出來是正常的
my @freq = qw($data);
print $freq[3]; => 但是這行就印不出東西
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.122.85.186
→
09/09 21:10, , 1F
09/09 21:10, 1F
→
09/09 21:11, , 2F
09/09 21:11, 2F
討論串 (同標題文章)