小编Dyn*_*mic的帖子

我正在制作一个非常非常简单的模块(这是我写过的第一个):

package Master::Math;
use 5.12.4;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter)

our %EXPORT_TAGS = ( 
    'all' => [ qw(
        max



=cut

1; # End of Master::Math

当我在我的程序中运行使用它时,我收到错误

C:/Perl/lib/Master/Math.pm第3行的无效版本格式(非数字数据),靠近"package Master :: Math"

"语法错误在C:/Perl/lib/Master/Math.pm第3行,附近"包Master :: Math

require Exporter"编译失败,需要在C:\ MainDev\myperl\max.pl第3行.BEGIN失败 - 编译在C:\ MainDev\myperl\max.pl第3行中止.

我需要解决这个问题？谢谢!

我是Java的新手(刚刚本周末开始)并且拥有Perl的背景知识.所以我有一个问题:

与Perl Diamond Operator(<>)等效的Java是什么？

所以基本上什么是Java相当于:

print "What is your name?";
my $name = <>;
print "Hello, $name!";

提前致谢!

对于那些不了解Perl的人:

由于使用的,<>是短期的readline(ARGV),这里ARGV是代表一个特殊的文件句柄STDIN(如果没有参数传递给程序)或作为参数传递给程序的文件的内容的串联.readline不删除行终止符.

如何.txt使用Perl 在文件中找到前100个最常用的字符串(单词)？到目前为止,我有以下内容:

use 5.012;
use warnings;

open(my $file, "<", "file.txt");

my %word_count;
while (my $line = <$file>) {
  foreach my $word (split ' ', $line) {
     $word_count{$word}++;
  } 
} 

for my $word (sort keys %word_count) {
  print "'$word': $word_count{$word}\n";
}

但这只计算每个单词,并按字母顺序组织.我想要文件中前100个最常用的单词,按出现次数排序.有任何想法吗？

相关:计算文件perl中重复字符串的次数

当我今天上电脑时,我发现了一个令人不快的惊喜.每天,我运行的第一个Perl程序非常简单,以确保一切顺利进行:

use 5.12.4;
use strict;
use warnings;

my $greeting="Hello, World";
print $greeting;

然而今天,事情没有按计划进行.尝试运行程序时出现以下错误:Can't locate strict.pm in @INC (@INC contains: .).@INC不习惯包含".".这里发生了什么,我该如何解决这个问题？

谢谢