ch05.022_prob

来自「Perl Best Practices the source code」· 022_PROB 代码 · 共 42 行

022_PROB

42 行

################################################################################ Code fragment (NOT RECOMMENDED) from Chapter 5 of "Perl Best Practices"  ####     Copyright (c) O'Reilly & Associates, 2005. All Rights Reserved.      ####  See: http://www.oreilly.com/pub/a/oreilly/ask_tim/2001/codepolicy.html  ################################################################################# Standard modules...use strict;use warnings;use IO::Prompt;use Carp;use Data::Alias;use Readonly;Readonly my $STD_HEADER => '<html><head>Std header</head>';my $html = <<'END_BODY';Non-standard header.<body>    Body here</body>Other stuff hereEND_BODYsub verify_body {    my ($body) = @_;    return $body;}$html =~ s{.*? (<body> .* </body>) .*}      # Locate components of page          {   $STD_HEADER                   # Ensure standard header is used            . verify_body($1)               # Check contents            . '</html>'                     # Remove any trailing extras          }exms;use Data::Dumper 'Dumper';warn Dumper [ $html ];

ch05.022_prob - 源码说明

本页面展示了「Perl Best Practices the source code」中的 ch05.022_prob 源码文件，采用 022_PROB 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Practices相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?