#!/usr/bin/perl -w # 标准的头部写法,-w意为显示警告
$a=$b+10 # $a和$b都不需要定义,拿过来就用
Note: $flag=0
如果后续未用到,会爆警告
@array=() # 声明一个空数组
$array[1] # 取数组中的第2个值
$len=@array # 取数组的长度
$#array # 取数组最后一位值的下标
$array [0..4] # 取数组第1到第5个数
@array=(1..25) # 构建一个包含从1到25的数组
print @lines[0..$#lines] # 将一个数组从第1个到最后一个元素全部打印出来
push @array,$i # 将变量i插入到数组最后
pop @array # 删除最后一个值
shift @array # 弹出数组第一个值(常配合@ARGV)
判断每一位是否相同
$index=0;
while($index<@arr1) { if($arr1[$index] ne $arr2[$index]) # to do } $index++; < code></@arr1)>
$aim = 263;
if(grep /^$aim$/,@arr1) # 使用grep判断字符$aim是否在@array中
{
print "find\n";
}
`perl
@words1=(“a”,”b”,”A”,”d”,”c”);
@words2=(“repaaaaaalace”, “raplace”, “input”, “sequence”, “of”, “a”, “repaalace”, “character”);
my @newwords1=sort @words1; #以ASCII进行排序,非字典顺序
my @newwords2=sort @words2;
print “@newwords1\n”;
print “—–\n”;
print “@newwords2\n”;
输出:
A a b c d
Original: https://www.cnblogs.com/HsinTsao/p/15408325.html
Author: HsinTsao
Title: Perl 编程 基础用法
原创文章受到原创版权保护。转载请注明出处:https://www.johngo689.com/576897/
转载文章受原作者版权保护。转载请注明原作者出处!