哪位高手，给讲讲这段

qianzhuo

UID: 6744
帖子: 11
积分: 25
在线时间: 10 分钟

1^# qianzhuo 发表于 2008-11-11 16:29

哪位高手，给讲讲这段

不理解这段，哪位高手，给讲讲。最好用初学者语言。

open (MYFILE,"/usr/local/log/usr.txt") or die "file open error";
open (FILE_CC,">./cc.txt") or die "file open error";
  my %count;
  while(<MYFILE>)
{
   chomp;
   ($ipip,undef) = split /- - \[/,$_;
   (undef,$ffff)= split / \"-\" \"/,$_;
   $count{$ipip}++;
   $count{$ffff}++;
}
  close(MYFILE);

  foreach (keys %count)
{
   print FILE_CC "  " . $_ ."\t". "accessCnt:  " . $count{$_} . "\n";
   print "  " . $_ ."\t". "accessCnt:  " . $count{$_} . "\n";
}
  close FILE_CC;

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-11-11 16:32

什么地方你不理解？都不理解的话找本入门书认真看一遍吧

qianzhuo

UID: 6744
帖子: 11
积分: 25
在线时间: 10 分钟

3^# qianzhuo 发表于 2008-11-11 16:40

不好理解的地方，没有。
应该先理解哈希

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

4^# redicaps 发表于 2008-11-11 16:59

你哪里不懂了？

yangsf5

UID: 10756
帖子: 194
积分: 446
在线时间: 2 天 3 小时

5^# yangsf5 发表于 2008-11-11 18:51

QUOTE:

原帖由 qianzhuo 于 2008-11-11 16:40 发表
不好理解的地方，没有。
应该先理解哈希

照张相，无语。。

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

6^# MMMIX 发表于 2008-11-11 21:41

QUOTE:

原帖由 qianzhuo 于 2008-11-11 16:40 发表
不好理解的地方，没有。
应该先理解哈希

楼主突然开悟了？

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

7^# machine 发表于 2008-11-11 22:07

哪里不懂呢，就把文件打开，对特定的内容计数，然后存另一个文件。

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

8^# hfahe 发表于 2008-11-12 09:20

楼主醍醐灌顶可喜可贺