маленькая задачка

[ocehb]

Есть текстовый файл. Сформировать массив, хранящий номера строк файла, в которых будет встречаться слово "мель"; в тексте удалить все комментарии, т.е. текст, заключенный между /* и */, включая эти символы.


Решение:

# perl -0777 -lne 'sub fun ($) { local $_ = $_[0]; s#[^\n]+##gsm; return $_; } 
                   s#/\*.*?\*/#fun($&)#gsme;
                   foreach (split "\n") { $n++; m#мель# && print $n,"\n" }' file

Comments

[jerom.livejournal.com]

не очень понял условие, но вот вариант:
perl -n '$f.=$_;/мель/ && print"$.\n";}END{$f =~ s#/\*.*?\*/##gs;'

[ocehb]

как я понял (и решил), надо выдать строки с "мелью", не считая закомментаренные. типа:

cpp test.txt | grep -v "^#" | grep -n "мель"

вот мой тестовый файл:

# cat test.txt
Гклава 1
тут была мель
лодка
лодка II /* мель
мель
яхта */
мель tst
test
test: мель
# cpp test.txt | grep -v "^#" | grep -n "мель"
2:тут была мель
7:мель tst
9:test: мель
#

[jerom.livejournal.com]

perl -0777 -n 's#^#++$n."!"#gme;s#/\*.*?\*/##gs;s#^(\d+)!.*мель#print "$1\n"#gme;'

[ocehb]

:)