ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!usr/bin/perl -w

open(WORD, "C:/programs/word.txt") || die "$!"; # открываем файл
@word=<WORD>; # считываем строки в массив
chomp @word;
close(WORD);



$_/\do+g/;
@word=grep length{$_}>4, @words; # поиск слов
chomp @words;

open(WORDS, ">C:/programs/words.txt") || die "$!";    # запись слов в новый файл
if (! Print WORDS "Запись сделана ", @words, "\n") {
	warn "Ошибка при записи в файл words: $!";
}
Close(WORDS);

open(WORD, "C:/programs/word.txt") || die "$!"; # открываем файл
my $word = join '', <WORD>;
close WORD;

my @words = $word =~  /(\w{5,})/g; # поиск слов
open(WORDS, ">C:/programs/words.txt") || die "$!";
print WORDS join("\n", @words);
close WORDS;