写了一个程序如下:
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 。。。。。。。。为什么。。。。为什么呢。。。