zoukankan      html  css  js  c++  java
  • perl 子程序传递参数

    v-lhb-db01:/root/sbin# cat s1.pl 
    use Net::SMTP;
    use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
    sub send_mail{
    if (@_ != 2){print "请输入2个参数
    ";exit 1};
    my $CurrTime = time2iso(time());
        my $to_address  = shift;
        my $mail_user   = 'zhao.yangjian@163.com';
        my $mail_pwd    = 'zhaoyangjian724';
        my $mail_server = 'smtp.163.com';
    
        my $from    = "From: $mail_user
    ";
        my $subject = "Subject: zjcap info
    ";
        my $info = "$CurrTime--$mess_info";
         my $message = <<CONTENT; 
         $info
    CONTENT
        my $smtp = Net::SMTP->new($mail_server);
    
        $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
        $smtp->mail($mail_user);
        $smtp->to($to_address);
    
        $smtp->data();             # begin the data
        $smtp->datasend($from);    # set user
        $smtp->datasend($subject); # set subject
        $smtp->datasend("
    
    ");
        $smtp->datasend("$message
    "); # set content
        $smtp->dataend();
        $smtp->quit();
    };
    send_mail;
    v-lhb-db01:/root/sbin# perl s1.pl 
    请输入2个参数
    
    ---------------------------------------------------------------------
    v-lhb-db01:/root/sbin# perl s1.pl 
    请输入2个参数
    Auth Error! No such file or directory at s1.pl line 19.
    v-lhb-db01:/root/sbin# cat s1.pl 
    use Net::SMTP;
    use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
    sub send_mail{
    if (@_ != 2){print "请输入2个参数
    "};
    my $CurrTime = time2iso(time());
        my $to_address  = shift;
        my $mail_user   = 'zhao.yangjian@163.com';
        my $mail_pwd    = 'zhaoyangjian724';
        my $mail_server = 'smtp.163.com';
    
        my $from    = "From: $mail_user
    ";
        my $subject = "Subject: zjcap info
    ";
        my $info = "$CurrTime--$mess_info";
         my $message = <<CONTENT; 
         $info
    CONTENT
        my $smtp = Net::SMTP->new($mail_server);
    
        $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
        $smtp->mail($mail_user);
        $smtp->to($to_address);
    
        $smtp->data();             # begin the data
        $smtp->datasend($from);    # set user
        $smtp->datasend($subject); # set subject
        $smtp->datasend("
    
    ");
        $smtp->datasend("$message
    "); # set content
        $smtp->dataend();
        $smtp->quit();
    };
    send_mail;
    v-lhb-db01:/root/sbin# perl s1.pl 
    请输入2个参数
    Auth Error! No such file or directory at s1.pl line 19.
    
    此时程序没退出,继续运行了

  • 相关阅读:
    Python-按指定列排序、斜着遍历
    牛客-SQL-刷题(下)
    特征工程之离散变量处理
    python 原生列表删除元素方法总结
    sklearn进行归一化
    Keras安装与测试遇到的坑
    常用机器学习算法优缺点及应用汇总
    特征工程
    机器学习模型评估指标总结
    pyecharts多图表同一页显示
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351692.html
Copyright © 2011-2022 走看看