perl点滴知识

本文介绍了Perl中几个实用函数的实现方法,包括左对齐填充(lpad)、去除字符串首尾空白(trim);同时展示了数据排序、二维数组操作、文件删除(unlink)等常见任务的代码实现,并附带了字符串分割及多行注释的使用技巧。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1.实现lpad函数

#append with blank before the str
sub lpad{
 my $str = shift;
 my $length= shift;

 $str=" ".$str until ($length-- == 0) ;
 return $str;
}

 

2.实现trim函数

#trim, remove blank from the start and end of string
sub trim{
 my $string = shift;
 $string =~ s/^\s+//;
 $string =~ s/\s+$//;
 return $string;
}

 

3.数据排序

@output_array=sort { $a->[1] <=> $b->[1] } @output_array;
@output_array=sort { $a->[0] <=> $b->[0] } @output_array;

 

4.二维数组

@temp;

@sub_temp=(1,2,3);

$temp[0]=[@sub_temp];

 

5.unlink删除

if(-e $output_dir){
 print LOG ("xxxxxxx,"\n");
 unlink $output_dir;
}

 

6.按\s+分隔字符串

perl按\s+分割字符串 得到每段完整的空白字符串和非空白字符串(包括空格,回车,tab等)
比如:
$str="123   456 789        ";
得到
@a=("123","   ",567," ","789","        ");

 

7.perl 多行注释

单行用#

多行如下(将注释的内容放在=pod和=cut之间):

=pod

xxx

xxx

=cut

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值