请选择 进入手机版 | 继续访问电脑版
  • 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Perl编程基础用法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

标准头部写法

#!/usr/bin/perl -w   # 标准的头部写法,-w意为显示警告

变量

$a=$b+10    # $a和$b都不需要定义,拿过来就用

Note: $flag=0 如果后续未用到,会爆警告

数组

1.基本知识
@array=()  		     # 声明一个空数组		
$array[1] 		     # 取数组中的第2个值
$len=@array                  # 取数组的长度
$#array                      # 取数组最后一位值的下标
$array [0..4]                # 取数组第1到第5个数
@array=(1..25)               # 构建一个包含从1到25的数组

print @lines[0..$#lines]     # 将一个数组从第1个到最后一个元素全部打印出来

2. 数组操作
push @array,$i               # 将变量i插入到数组最后
pop @array                   # 删除最后一个值
shift @array                 # 弹出数组第一个值(常配合@ARGV)
3.判断两个数组是否相同

判断每一位是否相同

$index=0;				
while($index<@arr1)
{
	if($arr1[$index] ne $arr2[$index])
	{
	    # to do 
	}
	$index++;
}
4.判断一个字符是否在某个数组中
$aim = 263;
if(grep /^$aim$/,@arr1)   # 使用grep判断字符$aim是否在@array中
{
    print "find\n";
}
5.对数组进行排序
  1. 以ASCII进行排序
@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
-----
a character input of raplace repaaaaaalace repaalace sequence
  1. 对一个数字型数组排序
@num=(1,24,35,0);
my @sorted = sort { $a <=> $b }@num;
print "@sorted\n";

输出:
0 1 24 35
6.合并数组内元素-join

join函数

@num=(1,24,35,0);
my @str = join("-",@num);
print "@str\n";

输出:
1-24-35-0

if语句

if(条件1 || 条件2 && 条件3)
{

}elsif(条件)
{                           # 注意此处为elsif

}else
{

}

条件判断

eq,ne,gt,le    # 进行字符串比较,前面不带-
== 和 !=       # 数字匹配

for循环

# 第一种
for(my $i;$i<$len;$i=$i+1)
{

}

# 第二种
foreach my $i (@array)
{

}

循环控制

last;			# 退出循环
last与next

last  			# 直接跳出循环体   类似break
next			# 跳出本次循环	    
exit

exit 0;			# 退出并返回0,也可以直接 exit; 不带返回值

常用函数

chomp

$line1=chomp($line) 可用于去除$line中最后的\n,也可以使用正则去掉

sqrt

$i=sqrt(100) 开平方

lc和uc
lc()			# 将字符全部小写
uc()			# 将字符全部大写
glob

glob 函数用于打印作为参数传递给它的目录中存在的文件。此功能可以打印所有或扩展名已传递给它的特定文件

foreach $file (glob "lyrics/*") {    # 遍历lyrics目录下所有文件

}
rand

rand(5) 生成一个0-5之间的一个随机float型数,如3.1415926

int rand(5) 取整,结果为3(接上假设)

有关输入的重点内容

获取用户输入

./a.pl运行后 ,enter换行, 再次输入的内容使用<>读取

带有重定向符输入参数使用 <>

./digit.pl <1.txt

  • 通过<>或都可以直接将1.txt文件内容读进去

./digit.pl hello world <1.txt

  • 使用<>依旧读取的是1.txt的内容,hello world并不会被读入
  • 同时ARGV[2]并未定义,不是<1.txt

读进去的内容分割成单词加入一个数组

while ($line = <STDIN>) {
    my @words = split /[^a-zA-Z]+/, $line;
    foreach $word (@words) {
        $count++ if $word ne '';
    }
}
,文件做命令行参数

同一行的输入参数大多用@ARGV和open来读

同一行输入参数+换行输入参数--使用shift+while(<>)来读

如果单单使用while(<>)是读取不到7的

ARGV

@ARGV   		# 包含外界所有传入参数的一个数组
$len=@ARGV		# 数组长度
$ARGV[0]                # 外界传入的第一个参数

例:./echon.pl <t1.txt t2.txt t3.txt
@ARGV=("t2.txt","t3.txt")       由于第一个参数含有重定向<,所以不会被放入ARGV中
$len=@ARGV                      是 2
$ARGV[0]                        是 t2.txt  

------------
shift @ARGV			# 将外界输入参数第一位弹出来
例:  ./digit.pl -5 1.txt
shift @ARGV                     # 操作之后可以直接对@ARGV进行操作,即操作1.txt

打开并读取文件

open F,'<',t1.txt or die "$0: Can't open $file: $!\n";
将t1.txt打开至 F中,后续可以对<F>进行操作,如@array=<F>
close F;

打开并写入文件

print("\n")     			可以实现换行
print('\n')				会把\n打印出来
print $out $line			注意这种写法,意思为在$out里写入$line(不可以加括号)

字符串一些操作

获取字符串长度
length($line)			获取字符串的长度
对字符串进行切片
$str=substr($line,2,10)	       从第3个字符开始获取$line中总计10个字符(类似切片)
字符串拼合
$a.="hello world"		字符串相加
切割字符串

split函数

my @words=split(/ /,$text);	# 将text中的内容以空格间隔,重新加入数组words中
例子:
$line="a b c d 1"
输出结果:
@words={a,b,c,d,1}

函数

sub test{					# test后面不加()
	my ($test,$test1)=@_;			# @_意为外界传进来的实参,可传多值
	print($test);
	return $test+$test1;			# 同样使用return来返回值
}
test(1,2);

字典

哈希(字典)

%data={'today','818','tomorrow','819','yesterday','817'}      # 通过逗号隔开
$data{'today'}                      # 读取某一键的值 读取今天,818
@names = keys %data;                # 读取所有的key
@values = values %data;             # 读取所有的value
$data{'thedaybeforeyesterday'}='816';       # 直接赋值即可添加键值对
delete $data{'today'}                       # 通过delete删除键值

正则匹配

匹配
=~                                   # 匹配
!~				     # 不匹配
if($i=~/-([0-9]+)/)
{
	print($1);		     # 重点知识:$1为正则匹配中第一个括号里内容,$2为第二括号内内容
}
//i				     # 匹配忽略大小写
----------------------
$1,$2是只读无法改变的,可使用$num=$1  去进行后续操作
将匹配结果赋值给另一个值 a=b=~//;
替换
s///g   		# 替换字符,g表示全局匹配

例:s/[01234]/</gi;	   # 将字符串里所有的01234替换成<
    $i =~ s/[1234]/</gi;   # 将变量i中所有的1234替换成<
    $line =~ s/^\s*//;	   # 去掉开头空白格
    $line =~ a/\s*$//;	   # 去掉末尾的空白格

补充:	
\w		   # 匹配一个字母、数字或下划线
\d		   # 匹配一个数字,同[0123456789]
\s		   # 匹配一个空格
[^0-9]             # 匹配纯数字
[^a-zA-Z]          # 匹配非字母
shell与perl正则匹配的区别
  1. shell是将整个文件读进来,通过某一个关键字匹配去获取一整行内容

  2. perl是将一整个文件逐行读进来,通过匹配来得到一行中某些特定的字段,加上使用group($1)来配合提取某些字段


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Perl&amp;MySql发布时间:2022-07-22
下一篇:
Perl处理数据(一):s替换、split和join发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap