Perl基础知识

发布时间：2020-12-16 00:24:32 所属栏目：大数据来源：网络整理

导读：?? 最近刚刚开始接触perl的知识，简单的写点它的基本知识字符重复操作符小写字母x 例子 “fred” x 3 ??? //结果是 “fredfredfred” ------------------------------------------------------------ 标量的赋值 $fred = 17; ??? ??? //?$fred的值设为17 $

?? 最近刚刚开始接触perl的知识，简单的写点它的基本知识

字符重复操作符 小写字母x

例子
“fred” x 3 ??? //结果是 “fredfredfred”

------------------------------------------------------------

标量的赋值
$fred = 17; ??? ??? //?$fred的值设为17
$barney = ‘hello’;? //?$barney的值设为5个字符组成的字符串’hello’
$barney = $fred +3; //?$barney设为$fred 当前值加上3后的结果即20

-------------------------------------------------------------

获取用户输入
<STDIN>

例子

 
 
$line?=?<STDIN>;?
  
  if?($line?eq?"n")?{?
  
  ??print?"That?was?just?a?blank?line!n";?
  
  }?else?{?
  
  ??print?"That?line?of?input?was:?$line";?
  
  }?

-------------------------------------------------------------
chomp 操作符（只能用在一个变量上，而且该变量的内容为字符串）

例子

 
 
$text??=?"a?line?of?textn";?
  
  chomp($text)?

-------------------------------------------------------------

列表直接量

 
 
(1,2,3)????????//包含1、2、3这三个数字的列表?
  
  ("fred",4.5)???//两个元素，"fred"和?4.5?
  
  (1..100)???????//100个整数构成的列表?
  
  (1..5)?????????//与(1,3,4,5)相同??
  
  (1.7..5.7)?????//同上?
  
  (5..1)?????????//空列表?仅向上计数?
  
  (0,2..6,10,12)?//与(0,5,6,12)相同?
  
  ……?

--------------------------------------------------------------

qw 简写

 
 
qw!?fred?barney?betty?wilma?dino?!?
  
  qw{?fred?barney?betty?wilma?dino?}?
  
  这两个例子是以!和{}来做为定界符?
  
  perl还允许你用其他任何标点符号作为定界符?

--------------------------------------------------------------

列表的赋值

 
 
($fred,$barney,$dino)?=?(“flintstone”,”rubble”,undef);?
  
  ($fred,$barney)?=?qw<?flintstone?rubble?slate?granite>;?

--------------------------------------------------------------

pop和push操作符
pop 用来取出数组中最后一个元素，同时返回该元素值

 
 
push??
  
  @array?=?5..9;?
  
  $fred?=?pop(@array);????#?$fred?变成9?@array现在是(5,7,8)?
  
  $barney?=?pop?@array;????#?$barney?变成8?@array现在是(5,7)??
  
  pop?@array;???????????#?@array现在是(5,6)?
  
  push(@array,0);????????#?@array现在是(5,0)?
  
  push?@array,8;???????#?@array现在是(5,8)?
  
  push?@array,1..10;???????#?@array?得到了10个新元素?
  
  @others?=?qw/?9?0?2?1?0/;??
  
  push?@array,?@others;???#?@array?又得到了5个新元素?

--------------------------------------------------------------

shift 和unshift 操作符

pop和push操作符是处理数组的尾端
unshift和shift 操作符是处理数组的开头

 
 
@array?=?qw#?dino?fred?barney?#;?
  
  $m?=?shift(@array);????????????//$m?变成?“dino”,?@array?现在是?(“fred”,”barney”)?
  
  $n?=?shift?@array;??????????????//$n?变成?“fred”,?@?array?现在是?(”barney”)?
  
  shift?@array;???????????????????//@?array?现在变空了?
  
  $o?=?shift?@array;??????????????//$o?变成undef,@array还是空的?
  
  unshift?(@array,?5);????????????????//@array?现在仅包含一个元素的列表(5)?
  
  unshift?@array,?4;?????????????//@array?现在是(4,5)?
  
  @others?=?1..3;????????????????
  
  unshift?@array,?@others;????????//@array?变成了?(1,5)?

froeach控制结构（能逐项遍历列表中的值，依次迭代）

 
 
foreach?$rock?(qw/?bedrock?slate?lava?/)?{?
  
  ????print?“one?rock?is?$rock.n”;???????????//依次打印三种石头的名字?
  
  }?

----------------------------------------------------------------

Perl 的“老地方”：$_
假如你在forecah循环的开头省略了控制变量，perl就会使用它的“老地方”变量$_

 
 
foreach?(1..10)?{?#默认会用?$_?迭代?
  
  ????pirnt?“I?can?count?to?$_!n”;?
  
  }?
  
  ?
  
  $_?=?“Yabba?dabba?doon”;?
  
  print;?#?默认打印?$_?

后面会继续写一些关于perl的知识，请感兴趣者继续关注，互相交流谢谢。 ?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!