my
$dirname
=
'c:\demo'
;
my
$filename
=
File
:
:
Spec
->
catfile
(
$dirname
,
$basename
)
;
print
$filename
.
"\n"
;
本文主要记录perl中分离和组合文件路径与文件名的方法。
原帖地址：http://yesho.blogbus.com/c1615293/index_3.html
perl
有句格言：There is more than one way to do it。意思就是任何问题用
perl
都有好几种解决方法。以前处理
文件
路径
的时候都是自己写正则表达式，而用
perl
的模块来解决则更加迅速、准确。
1). File::Basename
有3个方法：fi...
system “touch name_list.log”;
system “ls $dir_path >> name_list.log”;
list="namelist.log";open(INDIR,"list = "name_list.log";
open (IN_DIR,"list="namelist.log";open(INDIR,"list");
while($line = <IN_D
opendir (DIR, $dir) or die "can't open the directory!";
@dir = readdir DIR;
foreach $file (@dir) {
有时候客户给的
文件
文件名
里面有很多空格，在网页解析的时候会把这些空格变成只保留一个，所以得去掉这些空格。通过重命名是一种方法。这里我是对
文件名
进行批量过滤。
1 #!/usr/bin/
perl
-w
2 use strict;
3 use warnings;
4 use File::Find ();
5 use File::Basename ;
7 #
文件名
过...
@html_file=glob '/home/site/*.html';
@three_letter_extensions=glob '*.???';
@lcfirst=glob '[a-z]*';
@files=glob 'file[0-9][0-9][0-9]';
@files=glob '???*';
my $dir ='F:\VirtualShare\NRT\2019183_14_02_igu1888';
my @files = glob( $dir );
foreach (@files ){
print $_ . "\n";
运行结果：
文件
夹未带
文件
描述时仅显示当...
