Perl常用处理[不断更新]

Perl程序中有些处理方式会经常用到，现收集在这里，以备后用。

 

1.数组去重复

 

说明：去除数组中重复的元素。

 

方法1：grep函数与hash的结合，$count{$_}的值大于1后，$_就不会在被放入@uniq_times了。

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %count;
my @uniq_times = grep { ++$count{$_} < 2; } @array;
print @uniq_times;

 

C:\>x.pl
abcd125

 

方法2：hash键唯一的特性，将hash的键赋给一个数组。

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
$saw{$_}++ foreach(@array);
my @uniq_array = keys %saw;
print @uniq_array;

 

C:\>x.pl

1cabd25

2.命令行参数

 

说明：从shell的命令行中读取参数。如：C:\>x.pl 80 1.txt

 

方法：直接从@ARGV数组中取。@ARGV数组包含的就是传递给脚本的命令行参数。

print "$_\n" for (@ARGV);

 

C:\Documents and Settings\天使.斑斑\桌面>x.pl 1 2 3 4
1
2
3
4

(2009-20-14)

 

by banban