Re: [問題] 讀取檔案的內容
※ 引述《hws110 ( only you )》之銘言：
: 我試了一下，$raw_read_in是指讀入的檔案的變數吧?
不是喔 原先的用意是放置讀入的檔案的每一行內容的地方
: 所以我改成這樣
: -------
以下行首不為':' 的行就是我有修改的
: use strict;
: use Data::Dumper ;
: my %count_of_si ; #統計si出現的次數
: my %p_of_si ; #統計si為0的次數
my $name_of_file_in = "aaa_inc"; #讀入的檔案
if (-e $name_of_file_in)
: {
print "$name_of_file_in exist\n";
open (FILE , "<". $name_of_file_in);
^^^^^
#<FILE>會把讀入的內容寫入$_
: while(<FILE>)
: {
my @filtered = ( $_ =~ m/^ [\s\t]* (\d+) [\s\t]+ (\d+) /x);
: next if ( !defined $filtered[0] ) ;
#下面這行和我的版本不同
: $count_of_si{ $filtered[1] }++ if $filtered[1] == 1;
: $p_of_si{ $filtered[1] }++ if $filtered[0] == 0 ;
: }
: }
: print Dumper( @count_of_si{ sort keys %count_of_si } ) ;
: print "\n" ;
: print Dumper( @p_of_si{ sort keys %p_of_si} ) ;
: ------
: 但是讀不到內容，我試著print %count_of_si也沒有內容
: 想請問@filtered = ( $raw_read_in =~ m/^ [\s\t]* (\d+) [\s\t]+ (\d+) /x);
: 是指將$1與$2丟到@filtered裡嗎?
恩 沒錯喔
再試看看吧
: 那這樣我print @filtered應該也要有內容才是
: 可是也沒有內容@@"
: 可否幫忙解答一下
: 感恩~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
※ 編輯: flu 來自: 36.234.220.236 (11/06 00:31)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
