string manipulation

i have a path to a file: x:\dir1\dir2\test.txt < this path is generated dynamically.
i need a way to get only x:\dir1 from that string. i.e. get the drive and the first directory.
Who is Participating?
Perl_DiverConnect With a Mentor Commented:
my $path = 'x:\dir1\dir2\test.txt';
my ($first_dir) = $path =~ m#^(\w:\\[^\\]+)\\#;
print $first_dir;
You could use a regex:
$path =~ s/(.{3}[^\\]+)/$1/;

or use the File::Spec module:
use File::Spec;
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.