Perl6 的 YAML::Dumper 模块使用详解

这两天决定试一把 Perl6，因为扶凯兄已经把还没有正式发行 Rakudo Star 包的 MoarVM 编译打包好了，所以可以跳过这步直接进入模块安装。当然，源码编译本身也没有太大难度，只不过从 github 下源码本身耗时间比较久而已。

既然木有 Star 包，那么安装好 MoarVM 上的 Rakudo 后我们就有必要先自己把 panda 之类的工具编译出来。这一步需要注意一下你的 @*INC 路径和实际的 $PERL6LIB 路径，已经编译之后的 panda 存在的 $PATH 是不是都正确，如果不对的修改一下 ~/.bashrc 就好了。

我的尝试迁移对象是一个很简单的 Puppet 的 ENC 脚本，只涉及 SQLite 的读取，以及 YAML 格式的输出。通过 panda install DBIish 命令即可安装好 DBIish 模块。

脚本本身修改起来难度不大，结果如下：

代码如下

复制代码

#!/usr/bin/env perl6 use v6; use DBIish; use YAML; my $base_dir = "/etc/puppet/webui"; # 函数在 Perl6 中依然使用 sub 关键字定义，不过有个超酷的特性是 multi sub # 脚本中没有用到，但是在 YAML::Dumper 中遍地都是，这里也提一句。 # MAIN 函数在 Perl6 里可以直接用 :$opt 命令参数起 getopt 的作用 # 不过 ENC 脚本就是直接传一个主机名，用不上这个超酷的特性 sub MAIN($node) { # connect 方法接收参数选项是 |%opts，所以可以把哈希直接平铺写 # 这个 | 的用法一个月前在《Using Perl6》里看到过     my $dbh = DBIish.connect( 'SQLite', database => "{$base_dir}/node_info.db" );     my $sth = $dbh.prepare("select * from node_info where node_fqdn = ?");     $sth.execute("$node");     my $ret = $sth.fetchrow_hashref;     my $res;     if ( !$ret ) {         $res = { # Perl5 的 qw() 在 Perl6 里直接写成 <> 。也不用再通过 [] 来指明是引用             classes     => <puppetd repos>,             environment => 'testing',         };     }     else {         $res = {             environment => $ret{'environment'},             parameters  => { role => $ret{'role'} },             classes     => {},         }; # 这个 for 的用法，在 Perl5 的 Text::Xslate 模板里就用过         for split(',', $ret{'classes'}) -> $class {             if ( $class eq 'nginx' ) { # 这个 <== 符号指明数据流方向，完全可以把数组倒过来，然后用 ==> 写这行 # 如果不习惯这种流向操作符的，可以用,号，反正不能跟 Perl5 那样啥都不写 # 这里比较怪的一点是我试图把这么长的一句分成多行写，包括每行后面加，我看到 YAML 代码里就用分行了，但是我这就会报错 # Perl6 的正则变化较大，这里 /^#/ 要写成 /^'#'/ 或者 /^x23/ # 正则 // 前面不加 m// 不会立刻开始匹配 # 原先的 s///g 可以写作 s:g///，也可以写作对象式的 .subst(m//, '', :g)，. 前面为空就是默认的 $_ # 捕获的数据存在 @() 数组里，也可以用 $/[i] 的形式获取 # 字符串内插时，不再写作 ${*}，而是 {$*} 的形式 # 命名捕获这里没用上，写个示例： #     $str ~~ /^(w+?)$<laststr>=(w ** 4)w$/; #     $/<laststr>.chomp.say; # 注意里面的 w{4} 变成了 w ** 4                 my @needs <== map { .subst(m/^(.+):(d+)$/, "{$/[0]} max_fails=30 weight={$/[1]}", :g) } <== grep { !m/^x23/ } <== split(',', $ret{'extstr'});                 $res{'classes'}{'nginx'}{'iplist'} = @needs;             }             else { # Perl5 的 undef 不再使用，可以使用 Nil 或者 Any 对象                 $res{'classes'}{$class} = Nil;             }         }     };     $dbh.disconnect(); # 这个 dump 就是 YAML 模块导出的函数 # Perl6 的模块要导出函数不再需要 Exporter 那样，直接用 our sub dump($obj) {} 就可以了     say dump($res); };

但是麻烦的是 YAML 模块本身，这个模块是 ingydotnet 在好几年前草就，后来就没管了，实际现在压根跑不起来。花了半天时间，一边学习一边修改，总算修改正常了。主要涉及了 Attribute 对象，Nil 对象，twigls 前缀符，:exists 定义几个概念，以及 YAML 格式本身的处理逻辑。

YAML 模块修改对比如下：

代码如下

复制代码

diff --git a/lib/YAML/Dumper.pm b/lib/YAML/Dumper.pm index d7a7981..ec47341 100644 --- a/lib/YAML/Dumper.pm +++ b/lib/YAML/Dumper.pm @@ -2,16 +2,16 @@ use v6;  class YAML::Dumper;  has $.out = []; -has $.seen is rw = {}; +has $.seen = {};  has $.tags = {};  has $.anchors = {};  has $.level is rw = 0; -has $.id is rw = 1; +has $.id = 1;  has $.info = [];  method dump($object) {      $.prewalk($object); -    $.seen = {}; +    $!seen = {};      $.dump_document($object);      return $.out.join('');  } @@ -45,11 +45,11 @@ method dump_collection($node, $kind, $function) {  method check_special($node) {      my $first = 1; -    if $.anchors.exists($node.WHICH) { -    if $.anchors.exists($node.WHICH) { +    if $.anchors{$node.WHICH}:exists {          push $.out, ' ', '&' ~ $.anchors{$node.WHICH};          $first = 0;      } -    if $.tags.exists($node.WHICH) { +    if $.tags{$node.WHICH}:exists {          push $.out, ' ', '!' ~ $.tags{$node.WHICH};          $first = 0;      } @@ -64,7 +64,7 @@ method indent($first) {              return;          }          if $.info[*-1]<kind> eq 'seq' && $.info[*-2]<kind> eq 'map' { -            $seq_in_map = 1; +            $seq_in_map = 0;          }      }      push $.out, "n"; @@ -155,7 +155,8 @@ method dump_object($node, $type) {      $.tags{$repr.WHICH} = $type;      for $node.^attributes -> $a {          my $name = $a.name.substr(2); -        my $value = pir::getattribute__PPs($node, $a.name);     #RAKUDO +        #my $value = pir::getattribute__PPs($node, $a.name);     #RAKUDO +        my $value = $a.get_value($node);                         #for non-parrot          $repr{$name} = $value;      }      $.dump_node($repr); 这里的 $.seen 和 $!seen 是不是晕掉了？其实 $.seen 就相当于先声明了 $!seen 后再自动创建一个 method seen() { return $!seen }。

另一处是 pir::getattribute__PPs() 函数，pir 是 parrot 上的语言，而 MoarVM 和 JVM 上都是先实现了一个 nqp 再用 nqp 写 Perl6，不巧的是这个 pir 里的 getattribute__PPs() 刚好至今还没有对应的 nqp 方法。(在 pir2nqp.todo 文件里可见)

所以只能用高级的 Perl6 语言来做了。

总的来说，这个 yaml-pm6 代码里很多地方都是试来试去，同样的效果不同的写法，又比如 .WHICH 和 .WHAT.perl 也是混用。 而且我随手测试了一下，即使在 parrot 上，用 pir::getattribute__PPs 的速度也比 Attribute.get_value 还差点点。

最后提一句，目前 ENC 脚本在 perl5、perl6-m、perl6-p、perl6-j 上的运行时间大概分别是 0.13、1.5、2.8、12s。MoarVM 还差 Perl5 十倍，领先 parrot 一倍。不过 JVM 本身启动时间很长，这里不好因为一个短时间脚本说它太慢。

另外还试了一下如果把我修改过的 YAML::Dumper 类直接写在脚本里运行，也就是不编译成 moarvm 模块，时间大概是 2.5s，比 parrot 模块还快点点。

不过如何把 perl6 脚本本身编译成 moarvm 的 bytecode 格式运行还没有研究出来，直接 perl6-m --target=mbc --output=name.moarvm name.pl6 得到的文件运行 moar name.moarvm 的结果运行会内存报错。

原文来自:tiejiang.org

今天忽然发现安装的主机控制面板报这个错误，但是功能还是可以正常使用。网上找了下有两种解决方法,希望下面的方法来给大家带来帮助哦。

看到错误提示如下

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 46

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 47

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 47

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 48

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 49

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 51

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 56

Warning: Call-time pass-by-reference has been deprecated in E:网站目录www目录a.php on line 56

解决办法如下：

方法1：

把php.ini的display_errors = on改成display_errors = off // (不显示错误)
就不显示了。
但是这种方法不是太好，只是不显示错误，其实错误还是存在的。

方法2：

1. 在PHP.ini中搜索关键字 : allow_call_time_pass_reference 没有的自行建立。
2. 将 Off 改成 On ,Web Server重起就OK了~
allow_call_time_pass_reference = Off 变成 allow_call_time_pass_reference = On

顺便解释下allow_call_time_pass_reference这个参数的含义：
是否启用在函数调用时强制参数被按照引用传递。此方法已不被赞成并在 PHP/Zend 未来的版本中很可能不再支持。鼓励使用的方法是在函数定义中指定哪些参数应该用引用传递。鼓励大家尝试关闭此选项并确保脚本能够正常运行，以确保该脚本也能在未来的版本中运行（每次使用此特性都会收到一条警告，参数会被按值传递而不是按照引用传递）。

在函数调用时通过引用传递参数是不推荐的，因为它影响到了代码的整洁。如果函数的参数没有声明作为引用传递，函数可以通过未写入文档的方法修改其参数。要避免其副作用，最好仅在函数声明时指定那个参数需要通过引用传递。

今天本来说要测试一个新网站的，结果发现打开之后提示Fatal error: Call to undefined function get_header() in 错误了，下面我就给大家整理此问题解决办法。

效果就成这样了。

Fatal error: Call to undefined function get_header() in /home/wwwfulis/public_html/index.php on line 1；

在wordpress中这个应该算是比较正常的情况，因为基本都是调用模板函数，简单翻译一下就是get_header()这个函数没有定义。

到网 站查询了很多资料都没有显示有效的结果，没办法只好根据他们提供的信息综合分析一下，最后发现这个问题导致的原因有如下的几种，

1.检查这个函数是否是拼写错误 在php里，内置有get_headers() 函数，但是在xammp上面能够调制，为什么在这上面就不能调试了呢。 该函数的功用是：返回一个数组，包含有服务器响应一个 HTTP 请求所发送的标头。如果失败则返回 FALSE 并发出一条 E_WARNING 级别的错误信息

2.检查是否在其它地方定义了这个函数.

如果自己有设置主机php.ini的权限，不操心log的话，可以修改如下，就不会有错误提示了：

代码如下	复制代码
display_errors = off error_reporting=E_ALL&~E_NOTICE

因为没有权限懂php.ini，于是，我在index.php中添加不显示运行错误：

代码如下	复制代码
<?php ini_set('display_errors', 0); ?>

这样以后就没有了错误提示，可是error-log中依旧记录着该错误，如何不记录这个错误呢？如果直接加载index.php且没有定义get_header()这个函数，就直接重定向到网站首页，所以一个简单地判断就可以搞定了。

 

代码如下	复制代码
<?php ini_set('display_errors', 0); ?> <?php /*  @FileName:index.php  @Aurthor: OneDou [http://oneodu.com]  @LastModifed:2013-6-10 下午11:27:33  @Charset:UTF-8 */ if (function_exists('get_header')) {     get_header(); }else{     header("Location: http://" . $_SERVER['HTTP_HOST'] . "");     exit; }; ?>

Ok，这样如果直接访问index.php就被重定向到了首页

在运行一个采集页面时发现超过30秒页面出现Fatal error: Maximum execution time of 30 seconds exceeded in 错误了，这个百度了一下说是配置问题，下面给大家分享解决办法。

报这个错误不是说php执行时间越过了配置文件中设置的最大执行时间30秒钟，不是你的程序错误，而
是系统的配置文件问题，如果你的网速快服务器配置高的话，再执行一次就不会出现这种错误了
有了出现这种问题也可以进行一下修改：
1.修改php的配置文件，找到php.ini文件，它一般应该放在你的C:WINDOWS目录下，然后找到max_execution_time = 30 ;
//设置成你想要的值，单位是秒
这一行，这就是设置的执行时间最大值为30秒，你可以对这个值进行一下修正，改为你的期望值。
2.使用ini_set()函数，不是所有人都能修改php.ini文件的，那么你可以使用这个函数来改变你的最大执行时间限制值，如：
ini_set(‘max_execution_time’, ’100′)；
//设置成你想要的值，单位是秒

3:直接在页面加程序

可用程序修改：set_time_limit (0);

在PHP程序开发中，经常会执行字符串的截取操作，比如输出信息列表时，标题不宜过长，打印文章摘要时，也要执行一系列的字符串截取操作。遇到这些需求时，我们经常会想到使用substr()方法来实现，substr()对全英文字符串的截取是比较适合的

但字符串只要出现中文字符，就有可能导致PHP substr中文乱码，因为中文UTF-8编码，每个汉字占3字节，而GB2312占2字节，英文占1字节，截取位数不准确，substr()硬生生地将一个中文字符“锯”成两半，造成断开的字符会把其后的..拉过来一起做一个字，所以出现了PHP substr中文乱码。

substr --- 取得部份字符串

语法 : string substr (string string, int start [, int length])
说明 :
substr( )传回 string的一部份字符串，由参数 start和 length指定。
如果 start是正数，传回的字符串将会从 string的第 start个字元开始。
Example :

代码如下	复制代码
<?php $rest = substr ("abcdef", 1); // returns "bcdef" $rest = substr ("abcdef", 1, 3); // returns "bcd" ?>

如果 start是负数，传回的字符串将会从 string结尾的第 start个字开始。
Example :

代码如下	复制代码
<?php $rest = substr ("abcdef", -1); // returns "f" $rest = substr ("abcdef", -2); // returns "ef" $rest = substr ("abcdef", -3, 1); // returns "d" ?>

如果有给予参数 length而且是正数时，传回的字符串将会从 start传回 length个字元。
如果有给予参数 length而且是负数时，传回的字符串将会结束于 string结尾的第 length个字元。
Example :

代码如下	复制代码
<?php $rest = substr ("abcdef", 1, -1); // returns "bcde" ?>

对于英文没有问题，我们测试一个中文

代码如下	复制代码
<?php $rest = substr ("中国人", 1, -1); // returns "fdsafsda" 就是乱码了 ?>

这种截取字符的结果，肯定不是我们想要的结果，这种出现PHP substr中文乱码的情况，可能会导致程序无法正常运行。解决办法主要有两种：

一、使用mbstring扩展库的mb_substr()截取就不会出现乱码了。

可以用mb_substr()/mb_strcut()这个函数，mb_substr()/mb_strcut()的用法与substr()相似，只是在mb_substr()/mb_strcut最后要加入多一个参数，以设定字符串的编码，但是一般的服务器都没打开php_mbstring.dll，需要在php.ini在把php_mbstring.dll打开。

代码如下	复制代码
<?php     echo mb_substr("php中文字符encode",0,4,"utf-8"); ?>

如果未指定最后一个编码参数，会是三个字节为一个中文，这就是utf-8编码的特点，若加上utf-8字符集说明，所以，是以一个字为单位来截取的。

使用的时候要注意php文件的编码，和网页显示时的编码。使用这个mb_substr方法要事先知道字符串的编码，如果不知道编码，就需要判断，mbstring库还提供了mb_check_encoding来检验字符串编码，但还不完善。

PHP 自带几种字符串截取函数，其中常用到的就是 substr 和 mb_substr。前者在处理中文时，GBK 为 2 个长度单位，UTF 为 3 个长度单位，后者指定编码后，一个中文即为 1 个长度单位。

substr 有时会截 1/3 个中文或半个中文，会显示乱码，相对来说 mb_substr 更适合我们使用。不过有时候 mb_substr 就显得不那么好用了。例如我要显示一个小图片的简要信息，5 个中文正好，超过 5 个就截取前4再加上 ”…”，这样处理中文是没问题了，可是处理英文或数字，这样截取就太短了。

二、自己书写截取函数，但效率不如用mbstring扩展库来得高。下面是ecshop里面的截取UTF-8编码下字符串的函数。

代码如下

复制代码

function sub_str($str, $length = 0, $append = true) {     $str = trim($str);     $strlength = strlen($str);       if ($length == 0 || $length >= $strlength)     {         return $str;  //截取长度等于0或大于等于本字符串的长度，返回字符串本身     }     elseif ($length < 0)  //如果截取长度为负数     {         $length = $strlength + $length;//那么截取长度就等于字符串长度减去截取长度         if ($length < 0)         {             $length = $strlength;//如果截取长度的绝对值大于字符串本身长度，则截取长度取字符串本身的长度         }     }       if (function_exists('mb_substr'))     {         $newstr = mb_substr($str, 0, $length, EC_CHARSET);     }     elseif (function_exists('iconv_substr'))     {         $newstr = iconv_substr($str, 0, $length, EC_CHARSET);     }     else     {         //$newstr = trim_right(substr($str, 0, $length));         $newstr = substr($str, 0, $length);     }       if ($append && $str != $newstr)     {         $newstr .= '...';     }       return $newstr; }