Класс URI Perl неправильно анализирует информацию о пользователе | Важность строгого и предупреждения в Perl

Question

use URI; 
my $url = new URI("ssh://username@host/path/to/file.txt"); 
print "User: ", $url->user, "\n"; 
print "Host: ", $url->host, "\n"; 
print "Path: ", $url->path, "\n"; 

output>>> 
    User: 
    Host: username 
    Path: /path/to/file.txt 

expected output>>> 
    User: username 
    Host: host 
    Path: /path/to/file.txt 

Другой пример

use URI; 
my $url = new URI("ssh://username@host/path/to/file.txt"); 
print $url->as_string; 

output>>> 
ssh://username/path/to/file.txt 

Это явно ошибка не так ли? Но никто, кажется, не беспокоит! Никто не сообщил об этой ошибке в https://rt.cpan.org/Public/Dist/Display.html?Name=URI. Я попытался сообщить об этом, но у вас есть учетная запись с битной карточкой.

Что вы используете в своем случае? Простое регулярное выражение?

Что я использую?

• Perl версия: v5.10.1 версия
• URI: 1,37

Answer 1

URI в порядке.

Это очень хороший пример того, почему вы всегда должны use strict и use warnings.

use URI; 
my $url = new URI("ssh://username@host/path/to/file.txt"); 
print $url->user, $url->host, $url->path; 

__END__ 
username/path/to/file.txt 

С strict.

use strict; 
use URI; 
my $url = new URI("ssh://username@host/path/to/file.txt"); 
print $url->user, $url->host, $url->path; 

__END__ 
Global symbol "@host" requires explicit package name at /home/simbabque/code/scratch.pl line 1739. 
Execution of /home/simbabque/code/scratch.pl aborted due to compilation errors. 

И теперь с use warnings сверху.

use strict; 
use warnings; 
use URI; 
my $url = new URI("ssh://username@host/path/to/file.txt"); 
print $url->user, $url->host, $url->path; 

__END__ 
Possible unintended interpolation of @host in string at /home/simbabque/code/scratch.pl line 1740. 
Global symbol "@host" requires explicit package name at /home/simbabque/code/scratch.pl line 1740. 
Execution of /home/simbabque/code/scratch.pl aborted due to compilation errors. 

Это довольно ясно, что здесь не так. Perl считает, что @host является переменной, потому что у вас есть это в двойных кавычках "".

Возможная непреднамеренное интерполяция @host в строке

либо избежать его, используя "user\@host" или одиночные кавычки '' как 'user@host'.

Answer 2

Вот хороший пример того, почему вы должны ВСЕГДА use strict;use warnings;:

Возможный непреднамеренного интерполяции @host в строка

Это означает, что вы на самом деле не отправляете то, что думаете, что отправляете. Попробуйте print ING его, и вы получите:

ssh://username/path/to/file.txt 

Который не то, что вы думаете, вы посылаете.

#!/usr/bin/perl 

use warnings; 
use strict; 
use URI; 

my $url = URI->new("ssh://username\@host/path/to/file.txt"); 
print "User: ", $url->user, "\n"; 
print "Host: ", $url->host, "\n"; 
print "Path: ", $url->path, "\n"; 

Однако, дает желаемый результат.

Примечание. Я изменил линию new, потому что new URI является косвенным обозначением объекта, а URI->new - лучший стиль.