perl 的几个常用的基础函数

努力小伙 发表于 2011-12-21 08:44

<div id="codeText" class="codeText"><ol style="margin:0 1px 0 0;padding:5px 0;" start="1" class="dp-css"><li>#!/usr/bin/perl -w </li><li>
use strict; </li><li>
 </li><li>
my $decimal = hex("af");#十六进制转换为十进制 </li><li>
print "$decimal\n"; </li><li>
 </li><li>
my $rand_num = rand(4);#求0-4以内的随机数 </li><li>
print "$rand_num\n"; </li><li>
 </li><li>
my $rand_int = int(rand(4));#0-4之间的随机整数 </li><li>
print "$rand_int\n"; </li><li>
 </li><li>
my ($sec,$min,$hour,$mday,$mon, </li><li>
   $year,$wday,$yday,$isdist) = localtime(time); #localtime（time） </li><li>
                        #返回9个时间元素 </li><li>
print "$hour:$min:$sec\n"; </li><li>
 </li><li>
my @file_stat = stat("found.pl"); #返回12个值 </li><li>
print "@file_stat\n"; </li><li>
 </li><li>
#数组--grep函数 </li><li>
my @array = qw("google" "domain" "hello" "pen"); </li><li>
print "@array\n"; </li><li>
 </li><li>
my @filter = grep(/o/,@array); </li><li>
print "@filter\n"; </li><li>
 </li><li>
#数组 </li><li>
(my $first_elem) = @filter; #把数组的第一个元素赋值给变量 </li><li>
print "$first_elem\n"; </li><li>
 </li><li>
#哈希表--delete </li><li>
my %hash = ( </li><li>
    name    => "Tou", </li><li>
    age    => "24", </li><li>
    address    => "GuangZhou" </li><li>
); </li><li>
#删除key为name的元素 </li><li>
delete $hash{"name"}; </li><li>
 </li><li>
foreach (keys %hash){ </li><li>
     </li><li>
    my $value = $hash{$_}; </li><li>
    print "$_ => $value\n"; </li><li>
} </li><li>
 </li><li>
#split函数 </li><li>
my $str = "China-Is-Greatful!"; </li><li>
my @splits = split(/-/,$str); </li><li>
print "@splits\n"; </li><li>
 </li><li>
#reverse 函数，反转 </li><li>
my @rev = reverse(@splits); </li><li>
print "@rev\n"; </li><li>
 </li><li>
#sort 函数，排序 </li><li>
my @numbers = qw(1 3 2 34 21 0 2); </li><li>
my @sort_num = (sort{$a <=> $b} @numbers); </li><li>
print "@sort_num\n"; </li><li>
 </li><li>
#length 函数，求长度 </li><li>
print length($str),"\n"; </li><li>
 </li><li>
#substr 函数，抽提字串 </li><li>
print substr($str,2,4),"\n"; </li><li>
 </li><li>
#index 函数，查找字符串第一次出现的位置 </li><li>
print index($str,"ea",5),"\n"; </li><li>
 </li><li>
#join 函数，在数组元素之间加入指定字符串 </li><li>
print join(" <= ",@sort_num),"\n";</li></ol></div>

页: [1]

Chinaunix's Archiver

perl 的几个常用的基础函数