perl split用法（perl如何将读取的文件去掉后缀名，然后再将文件名输出去）
本文目录
- perl如何将读取的文件去掉后缀名，然后再将文件名输出去
- perl，split的用法问题
- perl如何用split分割字符串并自动在末尾加上换行符
- 如何让 perl 的 split 使用多个分隔符
- perl怎么从一个序列中截取不同位置的字符串，并保存成txt格式
perl如何将读取的文件去掉后缀名，然后再将文件名输出去
my $path="f:/drl"; #设置查询的目录
#需要把这个文件句柄修改为可持续添加的格式 : "》》"
open OUT, "》》f:/TMp/dd" or die "Can’t create output file";
opendir(TEMPDIR, $path) or die "can’t open it:$!";
my @dir = grep/.drl/g, readdir TEMPDIR; #筛选文件
# 用split 对数组内每个文件进行分割，然后截取文件名，舍去后缀
foreach my $line (@dir){
$line = (split /\./,$line);
print "$line\n";
print OUT "$line\n"; # 输出保存到指定文件
}
close TEMPDIR;
close OUT;
perl，split的用法问题
***隐藏网址***
split有4种使用方式，没有你想要的省略Pattern而留有Expr的情况。
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split
@number = split, $number;这句话，实际的意思是@number=split(/ /,$_),$number;
然后在Perl中=操作符的优先级比,高，所以它会先执行@number=split(/ /,$_)，然后再执行$number。
$_为空，所以 @number的结果可想而知
perl如何用split分割字符串并自动在末尾加上换行符
不知道你想把加上换行后的值保存在什么样类型的变量里。
1.结果保存在标量里：
my $str = "hello world";
my $rst = join "\n",split(/ /, $str);
print "$rst";
输出结果：
hello
world
2.结果保存在列表里
my $str = "hello world";
my @rst = map { $_."\n" } split(/ /, $str);
print "$rst";
print "$rst";
输出结果：
hello
world
如何让 perl 的 split 使用多个分隔符
my @a = split //, $b;
my ($a)=(split /;
my ($a,$c)=(split /;
my ($a,$b,$c)=(split /;
perl怎么从一个序列中截取不同位置的字符串，并保存成txt格式
open F,"1.txt"; #画面上文件
open O,"》2.txt"; #保存到2.txt
@array=《F》;
$count=0;
foreach (@array){
s/\s+//g;
if(/+/){@new=split(undef,$_);}
foreach (@new){ $count++;
if($count》=10 and $count《=20){ push @new1, $_;} #把10和20分别改成你要的范围，例如1000 2000，前提确保你的序列有那么长
if($count》=30 and $count《=50){ push @new2, $_;} #把20和40分别改 3000 5000
if($count》=60 and $count《=80){ push @new3, $_;}} #把60和80分别改 6000 8000
}
print O "》1000-2000\n";foreach(@new1){print O $_;} print O "\n";
print O "》3000-5000\n";foreach(@new2){print O $_;} print O "\n";
print O "》6000-8000\n";foreach(@new3){print O $_;}
更多文章：
什么时候用inner join（SQL中，用select语句时，为什么有时候要用inner join，有时候不用啊希望好心人帮忙）
2026年7月15日 12:30
2025年9月19日 10:00
2025年7月11日 01:30
javascript窗口对象是什么（demo是不是javascript的window对象的方法）
2025年9月15日 11:30
2026年4月13日 23:15
dedecmsv6怎样安装模板（dedecms 导入新的模板，模板的css，js等，怎么设置路径）
2025年11月5日 00:30
2025年12月27日 06:00
2025年7月17日 01:30
distinction学位在国内（M.A.with distinction是什么学位）
2025年7月12日 04:15
time clock power loss（电脑显示clockpowerloss还有optionsnot）
2026年1月10日 12:00
2026年1月6日 09:45
在 C语言中字符串的替换如何实现的！？js 字符串 replace 只能替换一个
2025年6月3日 05:30
2025年6月9日 06:30
2026年4月12日 04:15
2026年7月17日 20:45
sleep函数作用（linux 的sleep（）、usleep（）、nanosleep（）函数）
2025年10月3日 01:00
2025年9月7日 03:15
2025年9月17日 19:00
2026年1月7日 19:30
2026年3月24日 11:00
