Итак, у меня есть этот Perl Script, который является счетчиком частоты слов. Но теперь я должен изменить этот скрипт и сделать его чувствительным к регистру. Поэтому, если пользователь добавляет -i в командную строку, сценарий должен сравниваться с учетом регистра. Если -i не введен в командной строке, он должен сравниваться старым способом с учетом регистра.
Вот сценарий:
#!/usr/bin/perl
#words hash
my %words;
while( my $a = <> )
{
chomp $a;
foreach my $word ( split ( /\s+/, $a ))
{
$words{$word}++;
}
}
foreach $word (keys %words)
{
print "<$word> appears $words{$word} times\n";
}
use Getopt::Std
помочь вам с вашим вариантом разбора.Ответы:
Вы хотите, чтобы
use Getopt::Std
помочь вам с вашим вариантом анализа и установить$case_insensitive
1, если-i
дано.А потом
или, более кратко
источник