Perl语言写程序时怎么换到下一行打？

windows用户一般都是用这个吧？

2025-05-10 03:05:47

推荐回答（1个）

回答1：

#/usr/bin/perl

open (IN, 'D:\\words.txt ') || die $!;
@words=();
close IN;
open (OUT,'>','D:\\wordlist.txt')or die $!;
foreach $line(@words){
$line=~s/\n//g;
@words=split /\s+/,$line;
foreach $word(@words){
$word=~s/\W+//;
$freq {$word}++;
print OUT $word ."=>". $freq{$word}."\n";
}
}

close OUT;
你试一下这个程序，文件可以不用每行一个单词，直接读取原文本就好！有问题再交流！