设为首页收藏本站

LinuxTone | 运维专家网论坛 - 最棒的Linux运维与开源架构技术交流社区!

 找回密码
 注册

QQ登录

只需一步,快速开始

#公告#抱歉,网站已关闭,不再开放。PC时代已远逝,拥抱云原生时代,拥抱k8s,请移步:https://www.v2k8s.com

学习是一种信仰!分享是一种快乐!能力= 心态 * 沟通 * 知识 (你的每一天需要正能量!)

 网站的发展需要你贡献一份力量!希望你能每天坚持看贴1小时,并回答网友的问题!祝你在浏览论坛的过程中取得进步!谢谢!linuxtone加油!大家加油! 友情提示: 你今天学习了吗?你今天进步了吗?少一点抱怨!多一点进步!Life is short ! Why not linuxtone ?  

网站的发展、感谢每位坛友的努力!

查看: 2630|回复: 1

[perl] perl 的几个常用的基础函数 [复制链接]

Rank: 8Rank: 8

签到
273
注册时间
2011-5-3
最后登录
2014-3-20
在线时间
698 小时
阅读权限
90
积分
19482
帖子
119
主题
20
精华
0
UID
13472
发表于 2014-3-18 11:31:45 |显示全部楼层
#!/usr/bin/perl -w
use strict;

my $decimal = hex("af"); #十六进制转换为十进制
print "$decimal\n";

my $rand_num = rand(4); #求0-4以内的随机数
print "$rand_num\n";

my $rand_int = int(rand(4)); #0-4之间的随机整数
print "$rand_int\n";

my ($sec,$min,$hour,$mday,$mon,
   $year,$wday,$yday,$isdist) = localtime(time); #localtime(time)
                        #返回9个时间元素
print "$hourmin:$sec\n";

my @file_stat = stat("found.pl"); #返回12个值
print "@file_stat\n";

#数组--grep函数
my @array = qw("google" "domain" "hello" "pen");
print "@array\n";

my @filter = grep(/o/,@array);
print "@filter\n";

#数组
(my $first_elem) = @filter; #把数组的第一个元素赋值给变量
print "$first_elem\n";

#哈希表--delete
my %hash = (
    name    => "Tou",
    age    => "24",
    address    => "GuangZhou"
);
#删除key为name的元素
delete $hash{"name"};

foreach (keys %hash){
   
    my $value = $hash{$_};
    print "$_ => $value\n";
}

#split函数
my $str = "China-Is-Greatful!";
my @splits = split(/-/,$str);
print "@splits\n";

#reverse 函数,反转
my @rev = reverse(@splits);
print "@rev\n";

#sort 函数,排序
my @numbers = qw(1 3 2 34 21 0 2);
my @sort_num = (sort{$a <=> $b} @numbers);
print "@sort_num\n";

#length 函数,求长度
print length($str),"\n";

#substr 函数,抽提字串
print substr($str,2,4),"\n";

#index 函数,查找字符串第一次出现的位置
print index($str,"ea",5),"\n";

#join 函数,在数组元素之间加入指定字符串
print join(" <= ",@sort_num),"\n";

Rank: 8Rank: 8

注册时间
2011-9-16
最后登录
2021-3-8
在线时间
1059 小时
阅读权限
90
积分
303187
帖子
2158
主题
2
精华
0
UID
15647
发表于 2014-3-19 09:33:04 |显示全部楼层
楼主能重新编辑一下帖子,把表情识别屏蔽掉就更好了。

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

IT运维专家网感谢您的支持

合作联系: QQ:67888954/MSN:cnseek@msn.com/mail:netseek@linuxtone.org

Archiver|手机版|感谢所有关心和支持过LinuxTone的朋友们 转载本站内容请注明原作者名及出处 ( 京ICP备08103151 )   |

GMT+8, 2021-3-9 11:48 , Processed in 0.020642 second(s), 14 queries , Apc On.

Powered by Discuz! X2 Licensed

© 2001-2011 Comsenz Inc.

回顶部