Yimenchuixue 2015-06-27 15:12 采纳率: 0%
浏览 1746

初次接触perl脚本,请问下面的代码怎么理解

#!/usr/local/bin/perl

$pattern=$ARGV[0];
$count=$pattern=~s/(\?<[^>]*>)//g;
@ARGV=qw# #;
$print='print "';

  • 写回答

1条回答

  • cdzwm 2015-07-02 08:06
    关注

    #!/usr/local/bin/perl 这句如同*nix操作系统中用来指定脚本解释程序的位置。/usr/local/bin/perl是Perl语言的脚本解释器程序。
    $pattern=$ARGV[0]; $pattern 是一个标量变量( scalar variable), @ARGV 是一个预定义数组变量,包含运行脚本时从命令行传送来的参数。 $ARGV[0], 是访问第一个数组元素,也就是第一个命令行参数。
    $count=$pattern=~s/(\?<[^>]*>)//g; s/(\?<[^>]*>)//g 是模式替换表达式, 意思是替换形如 ?< some thing > 的字符串。 $pattern =~ $pattern=~s/(\?<[^>]*>)//g 会返回$pattern中山相应模式的数目。还会把$pattern中匹配的内容变成空(也就是删除)。
    @ARGV=qw# #; qw# # 代表一个空列表。 @ARGV = qw# # 把 @ARG赋值成空列表。
    $print='print "'; 给 $print赋值 print "这个字符串。
    这个脚本看似简单,其实包含了Perl语言中大量的概念。你得从基础学起吧。如果没有特别需要Perl的地方,建议不要学习Perl,你会觉得相当凌乱。
    但如果真学进去了,功能相当强大。

    评论

报告相同问题?

悬赏问题

  • ¥20 ML307A在使用AT命令连接EMQX平台的MQTT时被拒绝
  • ¥20 腾讯企业邮箱邮件可以恢复么
  • ¥15 有人知道怎么将自己的迁移策略布到edgecloudsim上使用吗?
  • ¥15 错误 LNK2001 无法解析的外部符号
  • ¥50 安装pyaudiokits失败
  • ¥15 计组这些题应该咋做呀
  • ¥60 更换迈创SOL6M4AE卡的时候,驱动要重新装才能使用,怎么解决?
  • ¥15 让node服务器有自动加载文件的功能
  • ¥15 jmeter脚本回放有的是对的有的是错的
  • ¥15 r语言蛋白组学相关问题