Распечатайте GLOB() вместо имени переменной

Question

Я определил и открыл имя файла, как:

open my $file1, '<', 'test_dll.txt'; 

Теперь, когда я зову его и хочу сказать, что, например, напечатать имя файла он печатает GLOB() вместо test_dll.txt.

print "The name of file is: $file1\n"; 

Выход:

The name of file is: GLOB(0x389e74) 

бы один, пожалуйста, дайте мне знать, почему это происходит? и как я могу назвать имя переменной?

Answer 1

Первый аргумент open - это дескриптор файла, а не имя файла. Если вы хотите сохранить имя файла в переменной, используйте отдельный один:

my $filename = 'test_dll.txt'; 
open my $FH, '<', $filename or die $!; 
print "The name of file is: $filename\n"; 

Answer 2

Это потому, что вы сделали

# Create a file handle and assign it to $file1. 
open my $file1, '<', 'test_dll.txt'; 

вместо

# Assign a string to $file1. 
my $file1 = 'test_dll.txt';