Use of uninitialized value $line in chomp


写了一个程序如下:


#!perl

use strict;
use warnings;

sub add_copyright
{
    my $flag = 0;
    my $line;
    my $filename = shift @ARGV;
    open my $input_handler, "<", $filename or die "Failed to open $filename:$!";
     while (chomp ($line = <$input_handler>))
    {
        if ($line eq "## Copyright (C) 20XX by Yours Truly")
        {
            print "The file has the copyright\n";
            $flag = 1;
            last;
        }
        print $line, "\n";
    }
    if ($flag == 0)
    {
        print "## Copyright (C) 20XX by Yours Truly\n";
    }

}

&add_copyright();

结果报: 

Use of uninitialized value $line in chomp 错误,之后将程序改为:

#!perl

use strict;
use warnings;

sub add_copyright
{
    my $flag = 0;
    my $line;
    my $filename = shift @ARGV;
    open my $input_handler, "<", $filename or die "Failed to open $filename:$!";
    while ($line = <$input_handler>)
    {
        chomp($line);

        if ($line eq "## Copyright (C) 20XX by Yours Truly")
        {
            print "The file has the copyright\n";
            $flag = 1;
            last;
        }
        print $line, "\n";
    }
    if ($flag == 0)
    {
        print "## Copyright (C) 20XX by Yours Truly\n";
    }

}
&add_copyright();

问题解决, 求高人告知为啥呢????????请走过路过的指导下哈~~~

令: 在perl 中没有 Break了,取而代之的是last 。。。。。。。。为什么。。。。为什么呢。。。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值