试图创建一个目录树,其中一个目录的名称中有一个正斜杠 (/)。查看艺术家名称的$artist变量和我创建目录的尝试。
#!/usr/bin/perl
use warnings;
use strict;
use File::Path qw(make_path);
my $srcpath = '/home/<username>;/music';
my $artist = "";
my $album = 'somealbum';
# Using single quotes
#t1
$artist = 'AC/DC';
make_path("${srcpath}/t1/${artist}/${album}/");
#t2
$artist = 'AC//DC';
make_path("${srcpath}/t2/${artist}/${album}/");
#t3
$artist = 'AC\/DC';
make_path("${srcpath}/t3/${artist}/${album}/");
# Using double quotes
#t4
$artist = "AC/DC";
make_path("${srcpath}/t4/${artist}/${album}/");
#t5
$artist = "AC//DC";
make_path("${srcpath}/t5/${artist}/${album}/");
#t6
$artist = "AC\/DC";
make_path("${srcpath}/t6/${artist}/${album}/");
#t7
$artist = "AC\\/DC";
make_path("${srcpath}/t7/${artist}/${album}/");
我想要的目录树(5 个文件夹):
/ -> 主页 -> <用户名> -> 音乐 -> AC/DC -> somealbum
我得到的目录树(6 个文件夹):
/ -> home -> <username> -> music -> AC -> DC -> somealbum