PERL简记

最新推荐文章于 2021-01-07 16:35:11 发布

iteye_12360

最新推荐文章于 2021-01-07 16:35:11 发布

阅读量165

点赞数

CC 4.0 BY-SA版权

分类专栏： PROGRAM_PERL

本文链接：https://blog.youkuaiyun.com/iteye_12360/article/details/82477811

PROGRAM_PERL 专栏收录该内容

0 篇文章

订阅专栏

记下一点文字，为自己曾经所学留一点点痕迹。

PERL很强大，支持多平台,,,&%$^&*(&^%。

现在使用的基本是都是版本5。

很简单易学的：

主要内容安排如下：

一，PERL的基本知识

看看官方文章，写写Hello Perl，基本就可以开始学习了。
PERL的变量

1. 1. 1. $ 单变量：声明，赋值
    2. @数组变量：声明，空，数字，字符串，混合，赋值，指定某几个元素赋值；
    3. $"数组输出特殊分隔符号变量：输出分隔符
    4. %哈希变量：

PERL的操作符号

1. 1. 加、减、乖、除、模、幂、加加、减减
  2. AND（&&）、OR（||）、NOT（!）
  3. 二进制的与&、或|、非！、与或^、与非、左移<<、右移>>
  4. 数字关系符号：等于==、不等于！=、大于、小于、大于等于、小于等于、比较<=>返回1（左大右），0（左等右），-1（左小右）
  5. 字符串也能比较：大于gt、小于lt、大于等于ge、小于等于le、比较cmp 返回1（左大右），0（左等右），-1（左小右）
  6. 条件取值： CONDITION-PART ? TRUE-PART : FALSE-PART
  7. 字符串符号：连接符号点(.)、重复串符号x(x) 后面跟数字表示重复的次数。
  8. 范围符号：二个点（..），二点左右的可以是数字，也可以是字符。

# "$"符号表示单变量
#var Number and String
print "demo of  Number and String   ";
$number = 20;
$str = "Real Number is  "  ;
print ("$str $number .\n");


# "@”符号表示数组变量
# " $" "符号是特殊变量
# var Array
print "demo of  Array   ";
$line = 0;

@emptyArray = ();          #表示空数组
@numberArray = (1..15);   #表示1到15的数字，可以连续的二个点代替中间的数字，三个点也行
@stringArray = ("string1\,","string2\,","string3\.");  #表示字符串数组
@mixedArray =("stringy\,","stringx\,",3,5);   #表示混合的数组
print "here is and empty array:".@emptyArry. "nothing here. \n";
print ("Print array in single line @numberArray"); print "\n";
$" = ",";                   #如果输出数组中间的符号想变化一下，用 $" 进行设置
print ("@numberArray"); print "\n";

foreach (@numberArray){
 print ($numberArray[$line]);       #使用数组时,"$"符号代替"@"符号
 print "\n";
 $line = $line +1 ;
};

# "%"符号表示哈希变量
%ages = ('zhao' => 28,
         'qian' => 35,
         'sun' => 29,
         'li' =>99,);
print ( uc(li).. " is $ages{li} years old\n");

函数

1. 1. 函数声明：sub 函数名
  2. 函数变量：sub 函数名(变量)
  3. 函数变量赋值：$_[序号]
  4. 函数变量计数：变量 = @_
  5. 函数调用：函数名(变量)
  6. 函数返回：return
  7. 常用字符串函数：
  8. 常用字符串函数：变大写UC(uppercase)、大写首字母Ucfirst、小写lc(lowercase)、小写首字母lcfirst、字符串长度length(str)、切分split(pattern,str,limit)、子串substr(原串,返回起始位置)、返回匹配的最后一个位置rindex（原串，匹配串）
  9. 常用数组函数：删除delete(key)、exists（key）、连成串 join(str,array)返回一个符串、pop（array）、排序sort等。

语句与控制语句

语句块一般以{ }作为开始和结束。当然，一个声明也可以是一个语句块。
控制语句与其它语言差不太多，下面分了不同控制语句进行了示例。

# 语句和控制语句示例

# if语句示例

$a = 1;
$b = 12;
$c = 12;
if($a == $b){
print ("a == b : $a == $b" );
print "\n";
}elsif($a == $c){  #小心，此处的"elsif"不是字符串ELSE 和IF
print ("a == c : $a == $c" );
print "\n";
}else {
print ("a != b : $a != $b");
print "\n";
}


# while语句示例

 do{
 print("a = $a \n");
 $a++;
 } while ($a <=$b);

 $a = 1;
 while($a <= $b){
 print("a = $a \n");
 $a++;
 }continue {
 print ("after while continue.");
 }
 ;

# until语句示例
$a = 5;
   do{
 print("a = $a \n");
 $a++;
 } until ($a <=$b);

# for 语句示例
 $a = 5;
 for ($a=5;$a<$b;$a++){
 print("a = $a \n");
 };

# foreach语句示例
@arrayA = ("A","B","C","I");
$a =0;
foreach(@arrayA){
print ("array element$a value is $arrayA[$a] .\n");
$a ++;
}


# last语句示例
print ("DEMO of last .\n");
@arrayA = ("A","B","C","I");
$a =0;
foreach(@arrayA){
if($arrayA[$a]eq "B"){
print ("array element$a value is $arrayA[$a] .\n");
last;
}
$a ++;
print("after last. \n");
}
print("exit from block. \n");

# next语句示例
print ("DEMO of next .\n");
@arrayA = ("A","B","C","I");
$a =0;
foreach(@arrayA){
if($arrayA[$a] eq "B"){
print ("array element$a value is $arrayA[$a] .\n");
$a ++;
next;
}else {
print ("array element$a value is $arrayA[$a] .\n");
$a ++;
}
};

# redo 语句示例
 print("What is your name? \n");
 $name = <STDIN>;      #标准输入，从键盘。
 chop($name);
 if (! length($name)) {
 print("Msg: Zero length input. Please type your name .\n");
 redo;           #重新执行当前语句块
 }
 print("Thank you, " . uc($name) . "\n");

# goto 语句示例
 #基本不用，不浪费时间写示例了。

指针ref

使用文件资源

文件操作比较简单，主要有：

打开文件:open、sysopen(与open模式相当，只是以文字方式进行文字模式的打开模式授权)
关闭文件：close
删除文件：unlink
重命名文件：rename

打开方式：

> or w		Creates, Writes, and Truncates
>> or a		Writes, Appends, and Creates
+< or r+	Reads and Writes
+> or w+	Reads, Writes, Creates, and Truncates
+>> or a+	Reads, Writes, Appends, and Creates

目录操作：创建目录mkdir、删除目录rmdir、改变目录chdir等

opendir DIRHANDLE, EXPR  # To open a directory
readdir DIRHANDLE        # To read a directory
rewinddir DIRHANDLE      # Positioning pointer to the begining
telldir DIRHANDLE        # Returns current position of the dir
seekdir DIRHANDLE, POS   # Pointing pointer to POS inside dir
closedir DIRHANDLE       # Closing a directory.