perl - 如何检查参数是否同时具有文件名和路径或仅具有文件名

Question

用户输入可以只是一个文件名/文件名加上文件所在的路径存在。这是用户仅有的 2 个选项。

use File::Basename qw(dirname basename);

my $input = <STDIN>;
my $file = basename($input);
my $path = dirname($input);

每当用户只给出文件名时，我得到的路径为 .(DOT - 当前目录)。该路径中不存在该文件。对我来说，如果用户不提供路径，则意味着我从特定目录中选择它。

我目前正在使用一种粗略的逻辑来检查 $path 的长度以查看是否给定了路径。

有没有其他方法可以告诉我是否提到了路径。任何输入都非常有帮助。

Answer 1

您可以检查 $input 中是否有 /。

use File::Basename qw(dirname basename);

my $input = <STDIN>;
my ($file, $path);

if ($input =~ m{/}) {
    $file = basename($input);
    $path = dirname($input);
} else {
    $path = '/foo/bar/';
    $file = $input;
}