in reply to How to extract the filenames in an array
#!/usr/bin/perl -l use warnings; use strict; use File::Spec::Functions qw(splitdir); my $path = '/login/user/temp/file.txt'; my @names = splitdir $path; print $names[0]; # prints: "" print $names[1]; # prints: "login" print $names[2]; # prints: "user" print $names[3]; # prints: "temp" print $names[4]; # prints: "file.txt"
|
|---|