作者hws110 ( only you )
看板Perl
标题Re: [问题] 读取档案的内容
时间Mon Nov 5 23:27:47 2012
我试了一下，$raw_read_in是指读入的档案的变数吧?
所以我改成这样
-------
use strict;
use Data::Dumper ;
my %count_of_si ; #统计si出现的次数
my %p_of_si ; #统计si为0的次数
my $raw_read_in = "aaa_inc"; #读入的档案
if (-e $raw_read_in)
{
print "$raw_read_in exist\n";
open (FILE , "<". $raw_read_in);
while(<FILE>)
{
my @filtered = ( $raw_read_in =~ 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应该也要有内容才是
可是也没有内容@@"
可否帮忙解答一下
感恩~
※ 引述《flu (Crazy Rhythm)》之铭言：
: 顺便说一下, eq, lt, gt是拿来作字串比对用的
: ==, <, > 才是拿来作数字比对用的
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.253.110.221