嵌入式学习小组
直播中

王峰

7年用户 189经验值
私信 关注

Perl 脚本语言学习是什么

  • Perl 脚本语言学习是什么

回帖(1)

李林

2021-3-12 09:29:35
  my $argc = scalar(@ARGV)
  @ARGV #表示从命令行中获得的所有参数组成的数组,如》》。/bsub -Is lib-gen.plx TPSRAM1023X36; $ARGV[0] = TPSRAM1024X36 ;
  scalar(@ARGV) #明确强制 @ARGV处于标量环境,返回数组中元素的个数;
  $p_cksl =~ s/^/s+//g; #+的意思就是从遇到第一个匹配的字符(以空格开头)起,继续匹配,直到匹配失败,把这段匹配到的字符替换为一格空格;
  $p_cksl =~ s//s+$//g; # 把一长串空格结尾的字符串替换成一个空格
  $p_cksl =~ s//s$/*/g; #把匹配到的每一个空格字符都替换成*。
  3.if ( //s*set/s*PDK_LIB/s*/“(.*)/”/ ) #可匹配到 set PDK_LIB “a***c.lib”
  {
  $PDK_LIB = $1; #圆括号匹配到的第一个字符串存在$1中;$1的值是a***c.lib
  }
  # 圆括弧会记住匹配到的字符,并存放在特殊变量中以供后续使用;
  # .* 表示除换行符以外的所有字符;
  4.匹配:
  /w 表示匹配大小写英文字母、数字以及下划线,等价于‘[A-Za-z0-9_]’。
  /S 表示匹配非空白字符,范围很广了,只要不是空格、换行符、制表符、换页符;
  /s 表示匹配空白字符;
  /D表示左右是非数字字符;
  /d 表示左右是数字字符;
  /d+表示匹配多个数字字符;
  。 表示匹配所有字符(不匹配换行)
  5.赋值操作符:
  。= #连接 ,可以用字串化后面跟着普通的字串连接自动生成;
  6. shift @ARGV #shift 操作符从参数数组中删除一个元素(同时返回这个元素);
  7. chop 和chomp : 为了方便去除新行符,Perl 提供了 chop 和 chomp 函数,chop 不加区别地去处字符串地最后一个字符,并将
  结果返回,而 chomp 仅删除结束标记(通常是“/n”)同时返回被删除的字符数。
  》》$number = 《STDIN》; # 输入数字
  》》chop($number); # 删除新行
  8. scalar(@whatever) == $#whatever + 1; #scalar(@whatever) 返回数组的元素个数,$#whatever 返回数组元素的最后一个元素的脚标(0.。。.。。.)
举报

更多回帖

发帖
×
20
完善资料,
赚取积分