Perl：基本问题，函数功能

Question

这个函数有什么作用？

    sub MyDigit {
       return <<END;
       0030\t0039
       END
    }

Answer 1

这称为"here-document"，用于分解字符串多行作为串联或列表操作的替代方法：

print "this is ",
    "one line when printed, ",
    "because print takes multiple ",
    "arguments and prints them all!\n";
print "however, you can also " .
    "concatenate strings together " .
    "and print them all as one string.\n";

print <<DOC;
But if you have a lot of text to print,
you can use a "here document" and create
a literal string that runs until the
delimiter that was declared with <<.
DOC
print "..and now we're back to regular code.\n";

您可以在手册中阅读有关此处文档的更多信息：请参阅 perldoc perlop。

Answer 2

你们都错过了重点！

它使用正则表达式定义一个用户定义的属性，供在 \p{MyDigit} 和 \P{MyDigit} 中使用。

就像这样：

  sub InKana {
      return <<'END';
  3040    309F
  30A0    30FF
  END
  }

或者，您可以根据现有属性名称来定义它：

  sub InKana {
      return <<'END';
  +utf8::InHiragana
  +utf8::InKatakana
  END
  }

您还可以使用“C<->”进行集合减法前缀。假设你只
想要实际的字符，而不仅仅是字符的块范围。
您可以像这样清除所有未定义的字符集：

  sub IsKana {
      return <<'END';
  +utf8::InHiragana
  +utf8::InKatakana
  -utf8::IsCn
  END
  }  

您还可以使用“C”前缀从补充字符集开始：

  sub IsNotKana {
      return <<'END';
  !utf8::InHiragana
  -utf8::InKatakana
  +utf8::IsCn
  END
  }

我想我一定是对的，因为我说的是excamelis。 :)

Answer 3

它使用名为 此处文档 的内容来返回字符串“0030\t0039”

Answer 4

它返回字符串 "0030\t0039\n" （\t 是制表符，\n 是要添加的换行符，因为该行以换行符结尾（显然））。

<<FOO
sometext
FOO

是所谓的heredoc，一种方便地编写多行字符串的方法（尽管这里只使用一行）。

Answer 5

您可以通过尝试一个简单的实验来帮助自己：

C:\Temp> cat t.pl
#!/usr/bin/perl

use strict; use warnings;

print MyDigit();

sub MyDigit {
    return <<END;
    0030\t0039
END
}

输出：

C:\Temp> t | xxd
0000000: 2020 2020 3030 3330 0930 3033 390d 0a        0030.0039..

现在，在您的情况下， END 没有排列在行的开头，因此您应该已经收到消息：

Can't find string terminator "END" anywhere before EOF at …