当循环无法读取perl脚本中的文件时

我正在编写一个perl脚本，并试图读取两个不同的文件

第一档

---

打开我的$data1，“while

和

foreach

循环太多。您只需要其中一个：

open my $data2, "<" , "/opt/app/d1ebl1m5/dv02/cingbt02/J2EEServer/config/AMSS/application/properties/att_application.properties_try"  
   or die "unable to open file: $!";

while( my $line1 = <$data2> ) {
    print "$line1";
} 
close($data2);

---

打开我的$data2，“while

和

foreach

循环太多。您只需要其中一个：

open my $data2, "<" , "/opt/app/d1ebl1m5/dv02/cingbt02/J2EEServer/config/AMSS/application/properties/att_application.properties_try"  
   or die "unable to open file: $!";

while( my $line1 = <$data2> ) {
    print "$line1";
} 
close($data2);

---

打开我的$data2，“while

和

foreach

循环太多。您只需要其中一个：

open my $data2, "<" , "/opt/app/d1ebl1m5/dv02/cingbt02/J2EEServer/config/AMSS/application/properties/att_application.properties_try"  
   or die "unable to open file: $!";

while( my $line1 = <$data2> ) {
    print "$line1";
} 
close($data2);

---

打开我的$data2，“while

和

foreach

循环太多。您只需要其中一个：

open my $data2, "<" , "/opt/app/d1ebl1m5/dv02/cingbt02/J2EEServer/config/AMSS/application/properties/att_application.properties_try"  
   or die "unable to open file: $!";

while( my $line1 = <$data2> ) {
    print "$line1";
} 
close($data2);

---

打开我的$data2，“同时从文件中每次读取一行。Foreach也这样做。所以你是在跳轨。同时从文件中每次读取一行。Foreach也这样做。所以你是在跳轨。同时从文件中每次读取一行。Foreach也这样做。所以你是在跳轨。同时从文件中每次读取一行。Foreach也这样做。所以你是在越轨。