如何实现函数调用的内插

limohua

use POSIX;
sub str2t($) {
        my @m = split /[\-\s:]+/, $_[0];
            @m[0, 1] = ($m[0] - 1900, --$m[1]);
            print "@m\n";
            $tmp3= reverse @m ;
            print "$tmp3 \n";
                mktime reverse @m
            }
          $t1 = '2007-06-08 12:00:00' ;
          $t2 = '2007-05-30 12:00:00' ;
          $tmp1 = str2t($t1);
          $tmp2 = str2t($t2);
          printf %s,"$tmp1\n";
          print "$tmp2\n";
          printf %s,"str2t($t1)\n";
          printf %s,"str2t($t2)\n";
          $tmp = str2t($t1) - str2t($t2) ;
          print "$tmp \n";

红色部分两句，如何实现函数的调用啊？？

bood

printf %s, str2t($t1)."\n";

nkcsx

print str2t($t1), "\n";不就行了吗，怎么转了好几个弯

[ 本帖最后由 nkcsx 于 2007-10-17 16:47 编辑 ]

limohua

不行啊，我是加了换行符号，所以才存在转义的问题啊，

limohua

bood 的是个好办法，是可以解决这个问题，但是有没有办法，在“”里面实现调用了。

放驴娃

1. $ cat ttt.pl
   
2. print "foo: [${ \&foo() }]\n";
   
3. print "bar: [@{ [&bar()] }]\n";
   
4. 
   
5. sub foo {
   
6.     return "single message";
   
7. }
   
8. 
   
9. sub bar {
   
10.     return ("hello", "world");
    
11. }
    
12. $ ./ttt.pl
    
13. foo: [single message]
    
14. bar: [hello world]
    
15. $

复制代码

limohua

确实可行，谢谢“放驴娃”

perljoker

原来是采用了对传回的值进行引用处理，然后再还原的操作。。。

放驴娃

原帖由 perljoker 于 2007-10-18 12:59 发表
原来是采用了对传回的值进行引用处理，然后再还原的操作。。。

对。正是这样。
这是变通的处理方法，Perl6 里面就不用这么丑陋了。

__lxmxn__

print "bar: [@{ [&bar()] }]\n";

这个不是很懂，可以具体解释一下么？