在Windows和Linux下使用未初始化的值更改

Question

我正在開發一個小的Perl腳本來自動執行一些服務器任務，當我在Windows計算機上測試它時一切正常，但是當我將它上載到Linux服務器時，腳本返回多個：

Use of uninitialized value $line in chomp at CreateEntity.pl line 52, <HANDLE> line 5. 
Use of uninitialized value $line in string ne at CreateEntity.pl line 52, <HANDLE> line 5. 
Use of uninitialized value $string in substitution (s///) at CreateEntity.pl line 67, <HANDLE> 
Use of uninitialized value $string in substitution (s///) at CreateEntity.pl line 68, <HANDLE> 
Use of uninitialized value $string in substitution (s///) at CreateEntity.pl line 67, <HANDLE> 
Use of uninitialized value $string in substitution (s///) at CreateEntity.pl line 68, <HANDLE> 

這裏是代碼本身：

#!/usr/bin/env perl 

# This fils SHOULD go in the root of Symfony... put it anywhere else AT YOUR OWN RISK !!! 

use warnings; 

# Declare the subroutines 
sub trim; 

if(!defined $ARGV[0]) 
{ 
    die("No FilePath Specified!\n"); 

} 

my $entityFile = $ARGV[0]; 

open(HANDLE, $entityFile) or die("The file could not be open!"); 

my $entityCmd = "php app/console doctrine:generate:entity --entity=\"rapliqBundle:"; 
my $entityName = ""; 

chomp(my $line = (<HANDLE>)); 
$line = trim($line); 
while($line ne "END") 
{ 
    if(trim($line) ~~ "NAME:") 
    { 
     chomp($line = (<HANDLE>)); 
     $entityName = trim($line); 
     $entityCmd = $entityCmd . $entityName; 
     $entityCmd = $entityCmd . "\" --fields=\""; 
    } 
    elsif(trim($line) ~~ "FIELDS:") 
    { 
     chomp($line = (<HANDLE>)); 
     my @data = split('=', $line); 
     foreach my $val (@data) 
     { 
      $val = trim($val); 
      if($val ~~ lc "string") 
      { 
       $entityCmd = $entityCmd . $val . "(255) "; 
      } 
      else 
      { 
       $entityCmd = $entityCmd . $val . ":"; 
      } 
     } 
    } 

    52: chomp($line = (<HANDLE>)); 
} 

close(HANDLE); 
$entityCmd = $entityCmd . "\""; 

#print $entityCmd; 

system($entityCmd); 
system("php app/console doctrine:generate:entities rapliqBundle:" . $entityName); 
system("php app/console doctrine:schema:update --force"); 

sub trim 
{ 
    my $string = $_[0]; 
    67:$string =~ s/^\s+//; 
    68:$string =~ s/\s+$//; 
    return $string; 
} 

感謝您的任何想法或意見:)

編輯：我把行號爲關注在代碼行前面。

Answer 1

這一切都歸結爲更好地處理輸入文件的末尾。

1. 在CreateEntity.pl線52使用在格格未初始化值$線，線5

   <HANDLE>返回undef表示你已經到達了文件的末尾。你忽略這一點，並嘗試chomp返回的值。在CreateEntity.pl線52

2. 使用字符串NE初始化值$線，線5

   誤報行號。該警告實際上來自$line ne "END"。

   $line從到達文件末尾時仍未定義。

3. 使用未初始化值$字符串在CreateEntity.pl線67替代（S ///），在CreateEntity.pl線替代（S ///）

4. 使用未初始化值$字符串68，

   trim($line) ~~ "NAME:"

   $line仍然從已經到達文件的結尾未定義的。

5. 使用未初始化值$字符串在CreateEntity.pl線67替代（S ///），在CreateEntity.pl線替代（S ///）

6. 使用未初始化值$字符串68，

   trim($line) ~~ "FIELDS:"

   $line仍然從已經到達文件的結尾未定義的。

您應該只修剪一條線，如果您要修剪，則無需修飾。

---

在光華一閃，我想我知道你根本問題是:)

你的數據文件中有Windows行結尾。你踩着這條線，留下"END\r"而不是"END"。dos2unix命令行工具可以解決這個問題，並且trim明。

while (my $line = <HANDLE>) { 
    $line = trim($line); 
    last if $line eq "END"; 
    ... 
}