$path
=
"C:\Users\ABC\Desktop\ivector\data\A1_0.htk"
;
@Name
=
split
(
/\\/
,
$path
);
$num
=
1
;
$count
=
@Name
;
$ind
=
$count
-
$num
;
$fileName
=
$Name
[
$ind
];
print
"
$fileName
"
#获取path变量内的A1_0.htk文件名$path="C:\Users\ABC\Desktop\ivector\data\A1_0.htk";@Name = split(/\\/,$path); #将path按“\”分割，得到一个数组，@表示数组$num = 1; #因为perl数组是从0开始，一会需要将数组的长度减1$count = @Name; #获取数组的长度$ind = ...
#!/usr/bin/
perl
-W## File: find.pl# License: GPL-2
use strict;use warnings;use File::Find;
#定义要匹配的关键字
my $str1="20090414095014";my $str2="Report";
#定义键盘接收输入，第一个为文件夹
路径
，第二个为文件扩展名。
die "Usage: $0...
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
以下内容来自Code Snippets。
Perl
的File::Basename 模块
File::Basename
模块被用来析取文件
路径
中的目录，
文件名
以及后缀。我的这个简单例子演示了如何
获取
文件后缀。
至于详细用法，用
perl
doc File::Basename命令查看。
DESCRIPTION
These routines allow you to parse file specificat
opendir (DIR, $dir) or die "can't open the directory!";
@dir = readdir DIR;
foreach $file (@dir) {
#!/bin/
perl
# Extension_filename_lister v0.1
# List all extension filenames without duplicate in a directory.
use strict;
use warnings;
其中，`要替换的
字符串
` 是要被替换掉的
字符串
，`替换后的
字符串
` 是要替换成的新
字符串
，`修饰符` 是可选的，用于控制替换的行为。
例如，将
字符串
`$str` 中的所有 `foo` 替换为 `bar`，可以使用以下代码：
$str =~ s/foo/bar/g;
其中，`=~` 是绑定操作符，用于将左侧的
字符串
与右侧的正则表达式进行匹配。`g` 修饰符表示全局匹配，将会替换
字符串
中所有的匹配项。
