正则表达式拆分路径值C:\ Users\goudarsh\Desktop\Perl_test_scripts\rtl2gds

Question

我需要perl正则表达式来分割以下值

  $path = 'C:\Users\goudarsh\Desktop\Perl_test_scripts\sample';

我试过以下代码似乎不起作用

my @var = split(/\\/,$path);
        print @var;
        if(grep /rtl2gds/, @var){
            print $path;
        }

我没有得到我做错的地方.

即使我试过跟随

 my @var = split(//\/,$path);
        print @var;
        if(grep /rtl2gds/, @var){
            print $path;
        }

Answer 1

我建议使用,而不是依赖于手动分割 File::Spec

use File::Spec;

my ($volume, $dir, $file) = File::Spec->splitpath($path);
my @components = File::Spec->splitdir($dir);
push @components, $file;

现在@components是您想要的阵列,具有更安全,更便携的实现.