perl脚本基础总结(转)
1. 单引号字符串中的\n不会被当做换行符处理。 如:'\'\\' --> '\ 。
2. 双引号
字符串联 "Hello"."World"."\n" --> HelloWrold 换行;
字符串重复操作 "fred"×3 --> "fredfredfred";
大小写 "\l","\L" --> 小写 ; "\u","\U" --> 大写 ; "\E" 结束。
3. 字符串运算
== eq 相等
!= ne 不等
< lt 小于
> gt 大于
<= le 小于或等于
>= ge 大于或等于
4. 用户输入 <STDIN>
5. chomp函数:去掉文本的"\n"换行符。读写文件时,要去掉换行符。 如:chomp($text<STDIN>);
6. 单行注释:# ; 多行注释以 "=pod"开始,"=cut" 结束。
7. undef: 没有值时,表现为0或空字符串。
8. defined函数: 为undef时,返回false,其余返回true。
9. x 输出遍数。如:print "love" x 3 -->lovelovelove.
10. 特殊数组索引:"$#rocks" ,最后一个元素索引。
11. qw简写,代替 "" 功能。 如:qw(freds bany wilad dino);
12. @rocks=qw /break slasle labv/; #给数组赋值。
@copy=@qwarry; #将一个数组拷贝到另一个数组里。
13. pop:末尾取出元素;push:将一个或一列元素加在末尾。
如:pop(@array); push(@array,@others); #将@others添加到@array末尾。
14. shift 和 unshift 对数组首操作。 shift:取出首元素。unshift:将一个或一列加在首部。
15. 当把email地址插入双引号时,$email="fred\@bedrock.edu"; $email='fred@bedrock.edu';
16. perl最常用的默认变量:$_ 。 如: foreach(1..10){
print "I can $_!\n";
}
17. foreach控制结构
如: foreach $rock(qw/break Slee lawer/){
print "One rock is $rock . \n"; #打印数组
}
18. reverse 逆转操作,将一串列表按相反的顺序返回。
如: @fred=6..10;
@bareny=reverse(@fred); #@bareny="10,9,8,7,6".
19. sort:将输入的一串列表根据内部的字符顺序进行排序。
如:ASCII字符串 @rocks =qw/breaks sholer rubble gertdned/;
@sorted=sort(@rocks);
20. 强制转换成标量,context,可使用 scalar。
如:print "I have",scalar @rocks,"rocks!\n";输出为数字。
21. <STDIN>在列表context中: chomp(@line=<STDIN>); #读入所有行,不包括换行符。
文件输入完成时:linux/MACOS x,用 ctrl+d 结束;DOS/Windows, 用 ctrl+z 结束。
22. 调用子程序时,返回值为最后一个被计算的表达式。 @_ 是子程序的一个私有变量。 可以使用“my”创建子程序的私有变量,也可以在if ,untile ,foreach 块中使用。
如: my($fred,$bread); #定义两个私有变量。
如果新的私有变量没有被赋值的话,标量变量 会自动赋值为 undef ;数组变量 赋值为 空列表。
23. 使用strict Pragma 严格检查某代码;use strict 迫使采用更严格的检测。
24. 调用子程序 & 可省。
如: sub divsion{
$_[0]/$_[1];
}
my $quotient=divsion 355, 113; #调用,同 my $quotient=&divsion(355,113);
25. 严重错误和 die 函数
如: if(!open LOG,">>logfile"){
die "Cannot create logfile:$_!"; #$_ 输出系统错误信息
}
一般,0表示正常;非0表示失败。常见的:1-->命令行中语法错误; 2--> 运行错误 ; 3--> 没有找到匹配文件。
26. @ARGV 含义是包含了程序从命令行得到的所有参数。输入。
27. 复制文件: system('cp -r ./filea.txt ./map'); #将文件.txt复制到map文件夹下
29. 读文件: open(FILE,"file.txt"); # FILE 为文件句柄。
my $record;
while($record=<FILE>){
print ("file record is :$record\n");
}
close(FILE);
30. 写文件:open(FILE1,">write.txt");
syswrite(FILE1,"I konw it ! \n"); #将 "I konw it!"写入文件。
close(FILE1);
注:> 覆盖写入;>> 追加写入。
31. 创建文件夹:mkdir(hello,0777)||die "not create!\n";
创建文件: unless(-e "name.txt"){
open(FILE2,">name.txt") or &out_err("not create!\n");
}
删除文件:unlink("name.txt");
创建目录(可多级):mkpath(directoy,1,0711); 删除目录:rmtree(directoy,1,1);
删除文件夹:rmdir("hello")||die "not delete";
32. 数据库:windows下安装DBD:->cmd 输入 ppm install DBD::mysql
33.数据库连接: use DBI;
my $dbh=DBI->connect("DBI:mysql:database=数据库;host=localhost;port:3308","用户名","密码",{'RaiseError'=>1});
my $sth=$dbh->prepare("select * from asset");
$sth->execute();
while(my $ref=$sth->fetchrow_hashref()){
print "$ref->{'id'}\t".
"$ref->{'name'}\n";
}
$sth->finish();
$dbh->disconnect();
34.哈希:my %last_name=(
"fred"=>"finished",
"dion"=>"undef",
"barney"=>"rubble"
);
35. keys 和values 函数
my %hash=("a"=>1,"b"=>2,"c"=>3);
my @k=keys %hash; #得到key值
my @v=values %hash; #得到values值
注: @k和@v中的"a","b","c" 的顺序可能不同,但是@k和@v还是一一对应的。如"b"=>2,可能在第三位。
36. each函数:迭代hash中的每个元素。
如:while(($key,$values)=each %hash){
print "$key=>$values\n";
}
37. exists 函数: if(exists $books{$dino}){ };
delete函数: delete $books{$dino}; #删除
38. 大小写转换: $_="I saw Barney with Fred.";
大写:S/(fred)|barney/\U$1/gi; #BARNEY
小写:S/(fred)|barney/\L$1/gi; #barney
39.split操作:分割 @fields =split /separtor/,$string;
如: @fileds=split/:/,"abc:def:d:h";
join粘合函数: my $result = join $glue,@pieces;
如:my $x=join ":",4,5,6,7,8; # 4:5:6:7:8
40. 控制条件 unless 除非条件为真,否则执行块中代码。
unless($fred=~/^[A-Z-]\W*$/i){
print "The $fred";
}
until:与while相反,当条件为假时,重复执行。
41. $n=++$m; #先将变量加1,再取值;
$n=$m++;#先取值,在加1.
42. last会立刻结束循环。 for,foreach,while,until,裸块。
next 跳到当前循环的最后面,next之后进入下一轮循环。
redo 调到当前循环的顶端,不进行条件表达式判断以及接着本次循环(可放到循环体后面)。
标签块: LINE:while(<>){
foreach(split){
last LINE if/__END__/;
}
}
43. 三元操作符:Express?if_true_exp : if_false_exp
44. localtime函数:时间转换
如:my $timestemp=1180630098;
my $date=localtime $timestemp;
格式:my($sec,$min,$hour,$day,$mon,$year,$wdy,$yday,$isdst)=localtime $timestemp;
my $now=gmtime; #得到当前时间
45. chdir 改变工作目录。 如:chdir "/etc" or die "cannot chdir to /etc:$! ";
globbing:shell将每一个命令行中的任何的文件名模式转换成它所匹配的文件名。
如: my @all_files=glob "*";
my @pm_files=glob "*.pm";
my @all_files=<*>;
46. 目录句柄:打开:opendir 读入:readdir 关闭:closedir (用法与打开文件相似)
重命名: rename "old","new";
改变文件或目录权限:chomd 。 如:chomd 0075,"fred","bamey";
chown :改变一批文件的所有者及所在的组。
如: defined(my $user=getpwnam "merlyn"); #getpwnam将名字转化为数字
defined(my $group=getgrnam "users"); #getgrnam将组名转化为数字
chown $user,$group,glob "/home/merlyn/*"; #返回文件个数
readlink:符号连接指向的地方。 如: my $perl =readlink "/usr/local/bin/perl";
47. 使用索引寻找字符串:index
$where =index($big,$small); #从0开始编号
rindex: 某个字符串最后出现的位置。
substr: $part = substr($string,$inintial_position,$length); #inintial_position:从0开始的编号的初始位置。length:字符串长度。string:父串
如: my $mineral=substr("Fred J.Flintstone",8,5); #得到"Flint"
替换: substr("hello ,world",0,5)="GoodBye"; #GoodBye,world
48. sprintf 格式化数据,返回值为被请求字符串,而非打印。
如:my $money=sprintf "%.2f",2.49997; #2.5049. eval 捕捉错误,放在$@中。
49. 使用grep在列表得到元素。
如:my @odd_number=grep{$_%2} 1..1000;
50. perl 目前遇到的安装模块:main::tail
perl脚本基础总结(转)相关推荐
- 从游戏脚本语言说起,剖析Mono所搭建的脚本基础
0x00 前言 在日常的工作中,我偶尔能遇到这样的问题:"为何游戏脚本在现在的游戏开发中变得不可或缺?".那么这周我就写篇文章从游戏脚本聊起,分析一下游戏脚本因何出现,而mono又 ...
- perl 远程 mysql_写的一个perl脚本,用于发送远程MySQL命令
想写一些简化管理操作的脚本,下面是基础脚本之一. 对于一个从来没使用过perl脚本的我来说还是有些难度的,直接上代码. 此脚本用于发送远程MySQL命令并且接收结果,功能比较简单,后面会渐渐完善. # ...
- perl 远程 mysql_写的一个perl脚本,用于发送远程MySQL命令 -电脑资料
想写一些简化管理操作的脚本,下面是基础脚本之一, 对于一个从来没使用过perl脚本的我来说还是有些难度的,直接上代码. 此脚本用于发送远程MySQL命令并且接收结果,功能比较简单,后面会渐渐完善. # ...
- (2)FPGA面试技能提升篇(Perl脚本)
1.1 FPGA面试技能提升篇2(Perl脚本) 1.1.1 本节目录 1)本节目录: 2)本节引言: 3)FPGA简介: 4)FPGA面试技能提升篇2(Perl脚本): 5)结束语. 1.1.2 本 ...
- Linux-shell脚本基础
本章内容 编程基础 脚本基本格式 变量 运算 条件测试 配置用户环境 编程基础 程序:指令+数据 程序编程风格: 过程式:以指令为中心,数据服务于指令 对象式:以数据为中心,指令服务于数据 shell ...
- perl脚本语言学习
来公司的第二个星期便看了一下perl语言,发现掌握一门脚本语言还是非常有用的.到现在为止已经入职两个月,用perl脚本做了这些活: 1. 修改了公司的一个爬取网页源代码的脚本 2. 改进了一个出特征库 ...
- linux 修改sh文件生效,Linux-shell脚本基础
本章内容 编程基础 脚本基本格式 变量 运算 条件测试 配置用户环境 编程基础 程序:指令+数据 程序编程风格: 过程式:以指令为中心,数据服务于指令 对象式:以数据为中心,指令服务于数据 shell ...
- DM8联机逻辑备份perl脚本实现要点(单双引号、system和disql)
概要 此文章非完整脚本功能分享,仅就实现逻辑备份功能进行分享. 问题背景 在编写DM8自动化备份perl脚本中,在涉及联机物理库级备份时,需要执行相关操作,正常情况下,相应语句如下(已简写,便于理解) ...
- material studio使用perl脚本形成交联聚合物
目录 0.概述 1.MS input设置 2.perl脚本配置 3.reference 最近在研究交联聚合物,但是目前似乎并没有一个通用的建模方法.比较常见的环氧树脂交联的研究都是基于同一个人开发的脚 ...
- 什么是Shell?Shell脚本基础知识详细介绍
这篇文章主要介绍了什么是Shell?Shell脚本基础知识介绍,本文是一篇Shell脚本入门文章,在本文你可学到什么是Shell.有多少种Shell.一个Shell脚本代码实例,需要的朋友可以参考下 ...
最新文章
- 一天一个知识点 - 浅谈 JavaScript 的数据类型
- 让你完全理解base64是怎么回事
- 【网址收藏】OpsAnt 云原生开源运维平台
- OpenCV C++ 10 - Invert Images
- 深入理解linux文件系统( 理解inode与block,理解硬链接软链接,掌握恢复误删文件及其分析方法,掌握用户日志及其查询命令 )
- 【转】 ID,ClientID和UniqueID
- Windows Phone 7 开发 31 日谈——第22日:应用?还是 游戏?
- 短代码的java打地鼠_使用JavaScript实现网页版Pongo设计思路及源代码分享
- 前端常见跨域解决方案
- C#:把发表的时间改为几个月,几天前,几小时前,几分钟前,或几秒前
- Go语言的一些使用心得
- 我们不知道我们不知道:用同化项目做网络安全
- 【2020年最新】【绿色工具】使用软件轻松入侵同学电脑(极域电子教室)
- RAID磁盘阵列介绍
- 消费升级背景下零食行业发展报告_上海日报奥纬陈闻:疫情之下,“小”零食,“大”产业...
- 怎么看电脑是32位还是64位?2个方法,快速查看
- history路由下,Whitelabel Error Page错误
- tcp 如何维护长连接
- VMware 14 Pro 永久许可证激活密钥
- deepin-wine安装