急解决方案

急？？？
不懂perl，突然急用，特请教
用变量向子程序传递参数怎么写？

sub send_mail {
  my $subject = shift;
  my $content = shift;
  unless($subject) {
  warn "Error: ", my $time = localtime, " send_mail: \$subject required\n";
  return 0;
  }
  unless($content) {
  warn "Error: ", my $time = localtime, " send_mail: \$content required\n";
  return 0;
  }

&send_mail(参数1，参数2)
其中参数1，参数2的值用变量传进来，非常感谢

[解决办法]
perl默认在子程序中@_数组就是传递进去的参数。
调用一个函数时，如果该函数需要参数，而未加参数，那么默认就是@_.

综上，

Perl code

sub func{   my $val=shift;#等价于my $val=shift(@_);}func(1);#$val在函数内部等于1.
[解决办法]
python用户飘过。。。。。