📄 ch05.023_best

📁 Perl Best Practices the source code

💻 023_BEST

字号:

################################################################################   Code fragment (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;}use Regexp::MatchContext; if ($html =~ m{(?p) <body> .* </body>}xms) {  # Locate body of page (with context)    PREMATCH()  = $STD_HEADER;                # Ensure standard header is used    MATCH()     = verify_body( MATCH() );     # Check contents    POSTMATCH() = '</html>';                  # Remove any trailing extras}use Data::Dumper 'Dumper';warn Dumper [ $html ];

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -