Parsing Pathnames

carlriz has asked for the wisdom of the Perl Monks concerning the following question:

I have been having trouble parsing out these pathnames. What I want to do is to extract the name of the last file in the pathname. What is the best way to do this?


my @file_name_array = (
"/proc/cpuinfo", "/proc/meminfo", "/etc/fstab",
"/proc/net/pf_ring/info", "/var/log/boot.log",
"/etc/sysconfig/network-scripts/ifcfg-eth0",
"/etc/sysconfig/network-scripts/ifcfg-eth1",
"/etc/sysconfig/network-scripts/ifcfg-eth2",
"/etc/sysconfig/network-scripts/ifcfg-eth3",
"/etc/sysconfig/network-scripts/ifcfg-eth4",
"/etc/udev/rules.d/70-persistent-net.rules"
);
[download]

Comment on Parsing Pathnames Download Code

Replies are listed 'Best First'.
Re: Parsing Pathnames by toolic (Bishop) on Apr 03, 2014 at 20:24 UTC
File::Basename is one way... use warnings; use strict; use File::Basename qw(basename); my @file_name_array = ( "/proc/cpuinfo", "/proc/meminfo", "/etc/fstab", "/proc/net/pf_ring/info", "/var/log/boot.log", "/etc/sysconfig/network-scripts/ifcfg-eth0", "/etc/sysconfig/network-scripts/ifcfg-eth1", "/etc/sysconfig/network-scripts/ifcfg-eth2", "/etc/sysconfig/network-scripts/ifcfg-eth3", "/etc/sysconfig/network-scripts/ifcfg-eth4", "/etc/udev/rules.d/70-persistent-net.rules" ); print basename($_), "\n" for @file_name_array; __END__ cpuinfo meminfo fstab info boot.log ifcfg-eth0 ifcfg-eth1 ifcfg-eth2 ifcfg-eth3 ifcfg-eth4 [download]	[reply] [d/l]
Re: Parsing Pathnames ( Path::Tiny ) by Anonymous Monk on Apr 03, 2014 at 23:04 UTC
`use Path::Tiny qw/ path /; print path( qw[ /ro/sham/bo ] )->basename; __END__ bo` [download]	[reply] [d/l]