本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创,未经笔者授权,任何人和机构不能转载
5.1以城市为单位进行统计
我们以perl4-13.pl脚本为基础,以城市为单位进行统计,perl4-13.pl输出结果过于详细,出现了“广东省广州市海珠区”等含行政区的IP来源地区,使用正则替换将行政区从来源地区字符串中移除。
my $area=getiparea($ip);#getiparea为取得IP对应的来源地区子程序。
my $qu=decode('utf8','区');
my $shi=decode('utf8','市');
$area=~s/(.+)$shi(.+)$qu/$1$shi/;#去除来源地区$area中的行政区
部分代码如下:
#输出统计结果
<!--StartFragment-->
sub areaanlysis{
#对地区进行统计,结果放在%iphash中,键是城市,值是次数。
#map将地区字符串元素放入$_中。
my $line=$_;
if ($line=~m/$ipm/){
my $area=getiparea($1);
my $qu=decode('utf8','区');
my $shi=decode('utf8','市');
$area=~s/(.+)$shi(.+)$qu/$1$shi/;
my $title=decode('utf8','正在处理地区数据:');
print $title.$area."\n";
$iphash{$area}++;
}
}
open MYIP,"<$fn";
map &areaanlysis,<MYIP>;
map {print $_.'==>'.$iphash{$_}."\n"} keys %iphash;
close MYIP;
#输出“四川省成都市==>3”等统计信息
#<!--StartFragment--> getiparea子程序得到IP来源地区,唯一的参数是要查询的IP地址
分享到:
相关推荐
#### 第一个Perl任务 - 通过读取文件、处理数据并输出结果来完成第一个任务。 #### 文件处理原则 - 使用文件句柄(如`$fh`)打开文件,使用`open`函数。 - 读取文件通常使用`<>`操作符或`readline`函数。 - 关闭...
标题中的"ActivePerl-5.8.6.811-MSWin32-x86-122208.msi.7z"表明这是一个针对Windows 32位系统的ActivePerl版本5.8.6.811的安装程序,它已经被压缩成7z格式的文件。ActivePerl是Perl编程语言的一个流行的实现,特别...
Perl的版本号通常由主版本号、次版本号和修正版本号组成,这里的5.10.1表示这是Perl 5系列中的一个稳定版本,而.5可能是该版本的第五次更新。 描述中提到,"strawberry-perl-5.10.1.5"适合那些在Windows上进行Perl ...
在CentOS 6操作系统中,Perl被广泛用于系统管理、文本处理、网络编程、Web开发等多种任务。本资源包"perl-centos6.rar"提供了Perl在CentOS 6上的离线安装包,包括了perl-5.10.1-127.el6.x86_64.rpm等组件,这些组件...
4. **模块和CPAN**:CPAN(Comprehensive Perl Archive Network)是Perl模块的宝库,包含了数万个第三方模块,可以帮助扩展Perl的功能。学习如何使用CPAN和导入模块可以极大地提升开发效率。 5. **正则表达式**:...
`perl-5.16.3.tar.gz`是一个包含Perl 5.16.3源代码的压缩包文件,该版本发布于2013年,它是Perl发展历史中的一个重要里程碑。 Perl 5.16.3是Perl 5系列的一个稳定版本,提供了许多改进和新特性。在这个版本中,...
总之,Perl 5.8.6.811 for MSWin32-x86是一个功能强大、灵活的编程工具,尤其适合在Windows环境中进行文本处理、系统管理和自动化任务。通过熟练掌握Perl,开发者可以极大地提高工作效率,处理复杂的问题。
6. **Configure**:这是一个脚本,用于配置Perl的构建过程,允许用户根据目标系统的特性定制Perl的编译选项。 7. **makemaker**:Perl的Module::Build或ExtUtils::MakeMaker工具,用于帮助创建和构建Perl模块。 ...
6. **第6学时:模式匹配** - 正则表达式(regex)基础,包括字符类、量词、分组等。 - 使用`m//`、`s///`和`=~`操作符进行模式匹配和替换。 - `grep`和`map`函数在处理列表中的模式匹配应用。 7. **第7学时:...
它作为一个编译器工具,主要任务是帮助开发者创建词法分析器,这是编译器或解释器的第一步,用于识别源代码中的基本元素,如标识符、关键字、运算符等。这里提到的PERL正则表达式转换,指的是flex能够理解并处理PERL...
5. **Perl5**:Perl5是Perl语言的当前稳定版本,它包含了丰富的标准库和第三方模块,如Perl-net-etcd,这些模块扩展了Perl的功能,使其能处理特定的任务。 6. **etcd客户端**:Perl-net-etcd是一个Perl版本的etcd...
- Perl5 是Perl语言的第五个主要版本,引入了许多新特性和改进,至今仍是最广泛使用的Perl版本。 2. **Emacs编辑器** - Emacs 是一个高度可定制的、全功能的文本编辑器,支持多种编程语言,并且具有内置的shell、...
**Shell脚本入门** ...通过学习这三个脚本语言,你可以根据任务需求选择最合适的工具,无论是简单的系统管理任务,还是复杂的文本处理和数据分析,都能得心应手。记得在实践中不断巩固理论知识,提升编程技能。
Perl是一种强大的脚本编程语言,尤其在文本处理和系统管理任务方面表现突出。"perl常见编程100个实例"提供了丰富的示例,帮助初学者和有经验的开发者更好地理解和运用Perl语言。这些实例覆盖了Perl编程的多个关键...
Perl是一种强大的脚本编程语言,尤其在文本处理和系统管理任务方面表现卓越。"perl-tools"是一组专门针对Perl语言的实用工具,旨在提高Perl程序员的效率和代码质量。这个压缩包"perl-tools-master"很可能包含了多种...
Perl-stormpath 是一个 Perl 语言的库,用于与 Stormpath 的网络服务进行交互。Stormpath 是一个身份管理和认证服务,提供了 RESTful API 来处理用户账户、会话、密码重置等功能。Perl-stormpath 库使得 Perl 开发者...
此次第六版涵盖了最新的Perl 5.14版本的变化。 Perl能在绝大多数平台上完成几乎所有任务,不管是简单的修修补补,还是大型完备的网络应用。《Perl语言入门》从最基础的开始教起,然后逐渐深入,让你慢慢能够自行编写...
根据提供的文件信息,我们可以推断出这是一本关于Perl编程语言的入门书籍——《Perl语言入门_第6版》的下载链接。以下是对该书可能包含的一些重要知识点的概述: ### Perl语言简介 Perl是一种高级、通用且解释型的...
根据给定文件中的内容,我们可以总结出Perl编程语言中几个重要的知识点和实例: ### 1. 计算圆的周长 #### 练习2.12 **目标**: 编写一个Perl程序来计算半径为特定值的圆的周长,并允许用户输入半径值。 **代码...
- **perl5**:Perl的第五个主要版本,目前广泛使用的版本,区别于早期的Perl 4。 - **apache-kafka**:Apache Kafka的标识,表明这个项目是Apache软件基金会的一部分。 - **librdkafka**:这是一个C语言实现的Kafka...