如何在Perl中拆分和连接字符串？

Question

我试图分开一条路

Y:/P18/4000/source/xyz.pl 

我需要一切除了Y:\然后与另一条路径连接

http:/aswee/5000/trunk

所以我得到了

http:/aswee/5000/trunk/P18/4000/source/xyz.pl

谁有人建议？

Answer 1

而不是使用split它可能值得考虑File::Spec- 这是一种独立于平台的方法.

#!/usr/bin/env perl
use strict;
use warnings;

use File::Spec;

my $path     = 'Y:/P18/4000/source/xyz.pl';
my $add_this = 'http:/aswee/5000/trunk';

my ( $volume, $directories, $file ) = File::Spec->splitpath($path);

my $url = $add_this . $directories . $file;
print $url;