加载中...

Perl

其中 Y=perl

源代码下载： learnperl-cn.pl

Perl 5是一个功能强大、特性齐全的编程语言，有25年的历史。

Perl 5可以在包括便携式设备和大型机的超过100个平台上运行，既适用于快速原型构建，也适用于大型项目开发。

  1. # 单行注释以#号开头
  3. #### Perl的变量类型
  5. #  变量以$号开头。
  6. #  合法变量名以英文字母或者下划线起始，
  7. #  后接任意数目的字母、数字或下划线。
  9. ### Perl有三种主要的变量类型：标量、数组和哈希。
  11. ## 标量
  12. #  标量类型代表单个值：
  13. my $animal = "camel";
  14. my $answer = 42;
  16. # 标量类型值可以是字符串、整型或浮点类型，Perl会根据需要自动进行类型转换。
  18. ## 数组
  19. #  数组类型代表一列值：
  20. my @animals = ("camel", "llama", "owl");
  21. my @numbers = (23, 42, 69);
  22. my @mixed   = ("camel", 42, 1.23);
  24. ## 哈希
  25. #  哈希类型代表一个键/值对的集合：
  27. my %fruit_color = ("apple", "red", "banana", "yellow");
  29. #  可以使用空格和“=>”操作符更清晰的定义哈希：
  31. my %fruit_color = (
  32.         apple  => "red",
  33.         banana => "yellow",
  34.         );
  35. # perldata中有标量、数组和哈希更详细的介绍。 (perldoc perldata).
  37. # 可以用引用构建更复杂的数据类型，比如嵌套的列表和哈希。
  39. #### 逻辑和循环结构
  41. # Perl有大多数常见的逻辑和循环控制结构
  43. if ( $var ) {
  44.     ...
  45. } elsif ( $var eq 'bar' ) {
  46.     ...
  47. } else {
  48.     ...
  49. }
  51. unless ( condition ) {
  52.                    ...
  53.                }
  54. # 上面这个比"if (!condition)"更可读。
  56. # 有Perl特色的后置逻辑结构
  57. print "Yow!" if $zippy;
  58. print "We have no bananas" unless $bananas;
  60. #  while
  61.   while ( condition ) {
  62.                    ...
  63.                }
  65. # for和foreach
  66. for ($i = 0; $i <= $max; $i++) {
  67.                    ...
  68.                }
  70. foreach (@array) {
  71.                    print "This element is $_\n";
  72.                }
  74. #### 正则表达式
  76. # Perl对正则表达式有深入广泛的支持，perlrequick和perlretut等文档有详细介绍。简单来说：
  78. # 简单匹配
  79. if (/foo/)       { ... }  # 如果 $_ 包含"foo"逻辑为真
  80. if ($a =~ /foo/) { ... }  # 如果 $a 包含"foo"逻辑为真
  82. # 简单替换
  84. $a =~ s/foo/bar/;         # 将$a中的foo替换为bar
  85. $a =~ s/foo/bar/g;        # 将$a中所有的foo替换为bar
  87. #### 文件和输入输出
  89. # 可以使用“open()”函数打开文件用于输入输出。
  91. open(my $in,  "<",  "input.txt")  or die "Can't open input.txt: $!";
  92. open(my $out, ">",  "output.txt") or die "Can't open output.txt: $!";
  93. open(my $log, ">>", "my.log")     or die "Can't open my.log: $!";
  95. # 可以用"<>"操作符读取一个打开的文件句柄。 在标量语境下会读取一行，
  96. # 在列表环境下会将整个文件读入并将每一行赋给列表的一个元素：
  98. my $line  = <$in>;
  99. my @lines = <$in>;
  101. #### 子程序
  103. # 写子程序很简单：
  105. sub logger {
  106.     my $logmessage = shift;
  107.     open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
  108.     print $logfile $logmessage;
  109. }
  111. # 现在可以像内置函数一样调用子程序：
  113. logger("We have a logger subroutine!");

使用Perl模块

Perl模块提供一系列特性来帮助你避免重新发明轮子，CPAN是下载模块的好地方( http://www.cpan.org/ )。Perl发行版本身也包含很多流行的模块。

perlfaq有很多常见问题和相应回答，也经常有对优秀CPAN模块的推荐介绍。

深入阅读

还没有评论.