Помогите с Perl

Приветствую, господа.

Для создания базы данных для шпиона понадобился парсер inc файлов

Вопрос: как подсчитать количество DWORD в строке и сформировать такую строку



Например

CreateDirectoryA PROTO WORD,WORD

Получим:

CreateDirectoryA , 2



Заранее спасибо!

 

вот если бы не было в посте "Для создания базы данных для шпиона", тогда я запостил бы тебе примерно это:



my @arr = split('WORD', $str);

print $#arr;

 

Код (Text):

1.  
2. my (@params,$func,$str);
3. $str = <>;
4. …
5. if($str =~ / PROTO /){
6.  $func = $`;
7.  @params = split(':DWORD',$str);
8.  print "$func,$#params\n";
9.  }

Оно?

 

2 IceStudent

Да оно!!!!



Все работает. Спасибо огромное!!!

 

Вопрос можно считать закрытым.

 

[OFFTOP]

Rustem

Кстати ты какой Rustem?

Которого я знаю, или которого я не знаю?