Perl: Mở tệp

Question

Tôi đang cố mở tệp nhận được làm đối số.

Khi tôi lưu đối số vào biến toàn cục mở hoạt động thành công.

Nhưng

Nếu tôi sử dụng cho làm cho nó càng mở của tôi thất bại trong việc mở tập tin.

Lý do là gì.

#use strict; 
use warnings; 

#my $FILE=$ARGV[0]; #open Fails to open the file $FILE 

$FILE=$ARGV[0];  #Works Fine with Global $FILE 
open(FILE) 
    or 
die "\n ". "Cannot Open the file specified :ERROR: $!". "\n"; 

Answer 1

Chỉ hoạt động mở một cách độc lập trên các biến gói (toàn cầu). Đây là tài liệu trên the manpage.

Cách tốt hơn để mở một tập tin để đọc sẽ là:

my $filename = $ARGV[0];   # store the 1st argument into the variable 
open my $fh, '<', $filename or die $!; # open the file using lexically scoped filehandle 

print <$fh>; # print file contents 

T.B. luôn sử dụng strict và warnings trong khi gỡ lỗi tập lệnh Perl của bạn.

Answer 2

Đó là tất cả trong perldoc -f open:

Nếu EXPR được bỏ qua, các biến vô hướng cùng tên như filehandle chứa tên tập tin. (Lưu ý rằng từ vựng biến - những khai báo với "tôi" - sẽ không làm việc cho mục đích này, vì thế nếu bạn đang sử dụng "của tôi", xác định EXPR trong lệnh gọi để mở.)

Lưu ý rằng đây không phải là cách hay để chỉ định tên tệp. Như bạn có thể thấy, nó có một ràng buộc khó khăn về kiểu biến nó ở trong, và cả biến toàn cục mà nó yêu cầu hoặc tập tin toàn cục mà nó mở ra thường là tốt nhất nên tránh.

Sử dụng một filehandle từ vựng giữ phạm vi của nó trong kiểm soát, và xử lý đóng cửa tự động:

open my $fh, '<', "filename" or die "string involving $!"; 

Và nếu bạn đang dùng rằng tên tập tin từ dòng lệnh, bạn có thể có thể loại bỏ mà open hoặc bất kỳ xử lý hoàn toàn và sử dụng toán tử đơn giản <> để đọc từ các đối số dòng lệnh hoặc STDIN. (xem nhận xét để biết thêm về điều này)

Answer 3

use strict; 
use warnings; 

my $file_name = shift @ARGV; 
open(my $file, '<', $file_name) or die $!; 
… 
close($file); 

Luôn sử dụng strict và warnings. Nếu một trong hai người đó than phiền, hãy sửa mã, đừng bình luận ra các pragmas. Bạn cũng có thể use autodie để tránh rõ ràng or die sau khi mở, xem autodie.

Answer 4

Từ Perl's docs for open()

Nếu EXPR được bỏ qua, các biến vô hướng của tên giống như filehandle chứa tên tập tin. (Lưu ý rằng các biến từ vựng - những biến được khai báo với tôi - sẽ không hoạt động cho mục đích này, vì vậy nếu bạn đang sử dụng, hãy chỉ định EXPR trong cuộc gọi của bạn để mở.)