[PerlChina] PerlChina Advent 05: Perl Tricks

Fri, 05 Dec 2014 00:43:27 -0800 

# 分享几个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 讨论组”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到[email protected]。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/d/optout。

回复