作者flu (Crazy Rhythm)
看板Perl
标题Re: [问题] 读取档案的内容
时间Tue Nov 6 00:24:41 2012
※ 引述《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)