[PerlChina] PerlChina Advent 05: Perl Tricks

# 分享几个Perl小技巧

##  interpolate function calls into printed strings

Perl string 中可以使用变量，如

    my $var = $object->method($argument);

    print "the output is : $var, please verify";

这个$var 只用了一次，能否省去呢？比如换成如下写法？

    print "the output is : $object->method($argument), please verify";

不行，不过有间接的方法，

    print "the output is : ${\ $object->method($argument) }, please verify";

`

或者，

    print "the output is : @{[ $object->method($argument) ]}, please verify";

参考

* [Printing function calls in Perl](http://leonerds-code.blogspot.com/2014_11_01_archive.html)

## The non-destructive modifier /r

The non-destructive modifier s///r causes the result of the substitution to be returned instead of modifying $_

 (or whatever variable the substitute was bound to with =~ ):

    $x = "I like dogs.";

    $y = $x =~ s/dogs/cats/r;

    print "$x $y\n"; # prints "I like dogs. I like cats."

这一段直接从perlrequick 中抄过来的。

参考

* [perlrequick](http://perldoc.perl.org/perlrequick.html)

## cron jobs 中使用 perlbrew

perlbrew 很好用，我使用perlbrew 很久以后，才发现可以这样用。

    0 23  * * * /path/to/perlbrew exec --with perl-5.20.0 perl /path/to/app.pl > /dev/null

## 后记

这是我最近才发现的原来可以这样用的小技巧。欢迎分享你的发现，谢谢

## 作者

* [SWUECHO](https://metacpan.org/author/SWUECHO)

--
您收到此邮件是因为您订阅了Google网上论坛中的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到perlchina+unsubscribe@googlegroups.com。
要发帖到此论坛，请发送电子邮件至perlchina@googlegroups.com。
通过http://groups.google.com/group/perlchina访问此论坛。
要查看更多选项，请访问https://groups.google.com/d/optout。