Perl. Работа с текстовым файлом.

[_Varyag_]

Нужно в указанном файле, в заданой строке подсчитать количество заданных символов. Нужна помощь, это моё первое знакомство с Perl. По чуть-чуть ковырял учебник и инет и вот что наковырял, не судите строго:

#!perl.exe
my $directory = "fileinfo";
my $symbol = "b";
my $Desired_Line_Number = 2;
open(SESAME, $directory);
while (<Sesame>) 
{ 
	preg_match_all($symbol, $Desired_Line_Number, $matshes); #подсчет кол-ва совпадений в строке
}
#print "Content-type: text/html\n\n"; #нужно открывать браузером через локалхост апача как CGI-файл
print count($matshes[0]);

[_Varyag_]

нашел решение, может кому-то понадобится

#!perl.exe
open SESAME, "C:\\Files\\Study\\5_sem\\Lab_WEB\\Lab3_CGI\\text.txt" || die("Error open file");
@s=<SESAME>;
$line=1;
$chr='b';
$u=()=$s[$line]=~/$chr/g;
print "Content-type: text/html\n\n";
print "Число символов $chr в строке $line : $u";

[Ципихович Эндрю]

раз вопрос решён, чтобы не создавать тему хотел тоже спросить, с Перлом особенно не знаком, так вопрос такой в данном примере не принципиально, что файл находится на РС, не на сайте?
2. тоже самое но с файлом Ворда можно сделать, есть примеры?

[Alex11223]

Сообщение от Ципихович Эндрю

Перлом особенно не знаком

Зачем тогда лезете сюда?

Сообщение от Ципихович Эндрю

тоже самое но с файлом Ворда можно сделать, есть примеры?

Ворд не текстовый файл, это либо бинарный формат (< 2007), либо (≥ 2007) zip архив с XML и прочими файлами (изображения, ...)

NotificationsForm 2016-11-20 18.46.36.png

[Ципихович Эндрю]

сначала этому сообщению не придал значение, но подумал, вроде xml тоже подходит, что он может, может работать с Bookmark Word? спс

[Alex11223]

Ну вам же говорили уже что почти для любого ЯП есть библиотеки позволяющие работать с файлами ворда (особенно 2007+)

[Ципихович Эндрю]

если не сложно, есть пример?

[Alex11223]

Пример чего? Библиотеки для Perl? Не знаю, не писал никогда на нем, вполне возможно что не просто будет найти ибо он малопопулярен сейчас. https://www.google.com/search?q=perl+docx

Для РНР и не только для него уже давали в предыдущей теме.

И что за внезапный переход на Perl у вас?

[Ципихович Эндрю]

просто человек, который мне пишет мне скрипты на пхп говорит, что это нельзя сделать, а поворот в сторону xml я ему ещё не закидывал, но мне не в лом спросить ещё у десяти человек о том, можно ли сделать что-то просто в ходе разговора я узнаю иногда много того, что даже не ожидал

[Alex11223]

дык 10 раз в предыдущей теме сказали что можно.

С xml ворда вам не надо напрямую работать, надо взять библиотеку для docx.