📄 ch32_18.htm
字号:
<html><head><title>File::Basename (Programming Perl)</title><!-- STYLESHEET --><link rel="stylesheet" type="text/css" href="../style/style1.css"><!-- METADATA --><!--Dublin Core Metadata--><meta name="DC.Creator" content=""><meta name="DC.Date" content=""><meta name="DC.Format" content="text/xml" scheme="MIME"><meta name="DC.Generator" content="XSLT stylesheet, xt by James Clark"><meta name="DC.Identifier" content=""><meta name="DC.Language" content="en-US"><meta name="DC.Publisher" content="O'Reilly & Associates, Inc."><meta name="DC.Source" content="" scheme="ISBN"><meta name="DC.Subject.Keyword" content=""><meta name="DC.Title" content="File::Basename"><meta name="DC.Type" content="Text.Monograph"></head><body><!-- START OF BODY --><!-- TOP BANNER --><img src="gifs/smbanner.gif" usemap="#banner-map" border="0" alt="Book Home"><map name="banner-map"><AREA SHAPE="RECT" COORDS="0,0,466,71" HREF="index.htm" ALT="Programming Perl"><AREA SHAPE="RECT" COORDS="467,0,514,18" HREF="jobjects/fsearch.htm" ALT="Search this book"></map><!-- TOP NAV BAR --><div class="navbar"><table width="515" border="0"><tr><td align="left" valign="top" width="172"><a href="ch32_17.htm"><img src="../gifs/txtpreva.gif" alt="Previous" border="0"></a></td><td align="center" valign="top" width="171"><a href="ch32_01.htm">Chapter 32: Standard Modules</a></td><td align="right" valign="top" width="172"><a href="ch32_19.htm"><img src="../gifs/txtnexta.gif" alt="Next" border="0"></a></td></tr></table></div><hr width="515" align="left"><!-- SECTION BODY --><h2 class="sect1">32.18. File::Basename</h2><p><blockquote><pre class="programlisting">use File::Basename;$fullname = "/usr/local/src/perl-5.6.1.tar.gz";$file = basename($fullname);# file="perl-5.6.1.tar.gz"$dir = dirname($fullname);# dir="/usr/local/src"($file,$dir,$ext) = fileparse($fullname, qr/\..*/);# dir="/usr/local/src/" file="perl-5" ext=".6.1.tar.gz"($file,$dir,$ext) = fileparse($fullname, qr/\.[^.]*/);# dir="/usr/local/src/" file="perl-5.6.1.tar" ext=".gz"($file,$dir,$ext) = fileparse($fullname, qr/\.\D.*/);# dir="/usr/local/src/" file="perl-5.6.1" ext=".tar.gz"($file,$dir,$bak) = fileparse("/tmp/file.bak", qr/~+$/, qr/\.(bak|orig|save)/)# dir="/tmp/" file="file" ext=".bak"($file,$dir,$bak) = fileparse("/tmp/file~", qr/~+$/, qr/\.(bak|orig|save)/)# dir="/tmp/" file="file" ext="~"</pre></blockquote>The <tt class="literal">File::Basename</tt> module provides functions to parse pathnamesinto their individual components. The <tt class="literal">dirname</tt> function pullsout the directory portion and <tt class="literal">basename</tt> the nondirectory portion.The more elaborate <tt class="literal">fileparse</tt> function picks out the full pathnameinto the directory name, the filename, and the suffix; you mustsupply a list of regular expressions describing the suffixes thatinterest you. The examples above illustrate how choice of suffixpatterns affects the result. By default, these functions parsepathnames according to the native conventions of your currentplatform. The <tt class="literal">fileparse_set_fstype</tt> function selects a differentplatform's parsing rules, such as <tt class="literal">fileparse_set_fstype("VMS")</tt>to parse names using VMS rules, even when running on non-VMS systems.</p><!-- BOTTOM NAV BAR --><hr width="515" align="left"><div class="navbar"><table width="515" border="0"><tr><td align="left" valign="top" width="172"><a href="ch32_17.htm"><img src="../gifs/txtpreva.gif" alt="Previous" border="0"></a></td><td align="center" valign="top" width="171"><a href="index.htm"><img src="../gifs/txthome.gif" alt="Home" border="0"></a></td><td align="right" valign="top" width="172"><a href="ch32_19.htm"><img src="../gifs/txtnexta.gif" alt="Next" border="0"></a></td></tr><tr><td align="left" valign="top" width="172">32.17. Fcntl</td><td align="center" valign="top" width="171"><a href="index/index.htm"><img src="../gifs/index.gif" alt="Book Index" border="0"></a></td><td align="right" valign="top" width="172">32.19. File::Compare</td></tr></table></div><hr width="515" align="left"><!-- LIBRARY NAV BAR --><img src="../gifs/smnavbar.gif" usemap="#library-map" border="0" alt="Library Navigation Links"><p><font size="-1"><a href="copyrght.htm">Copyright © 2001</a> O'Reilly & Associates. All rights reserved.</font></p><map name="library-map"> <area shape="rect" coords="2,-1,79,99" href="../index.htm"><area shape="rect" coords="84,1,157,108" href="../perlnut/index.htm"><area shape="rect" coords="162,2,248,125" href="../prog/index.htm"><area shape="rect" coords="253,2,326,130" href="../advprog/index.htm"><area shape="rect" coords="332,1,407,112" href="../cookbook/index.htm"><area shape="rect" coords="414,2,523,103" href="../sysadmin/index.htm"></map><!-- END OF BODY --></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -