Вырезать строку perl'ом

[Sintez_MAT]

Подскажите плиз, как perl'ом(или может awk) вырезать из большого html текста определеный кусок начинающийся, например, с <div id="result_box" dir="ltr"> и заканчивающийся на </div></td></tr><tr><td id="submitcell">
Спасибо!

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[idle]

Подскажите плиз, как perl'ом(или может awk) вырезать из большого html текста определеный кусок начинающийся, например, с <div id="result_box" dir="ltr"> и заканчивающийся на </div></td></tr><tr><td id="submitcell">
Спасибо!

Код: Выделить всё

$_='<div id="result_box" dir="ltr"> определённый кусок </div></td></tr><tr><td id="submitcell">';
s/<div id="result_box" dir="ltr">(.*)<\/div><\/td><\/tr><tr><td id="submitcell">/$1/;
print;

[ProFTP]

Код: Выделить всё

foreach $i (@contents){
           $i=~s{'>.*.</a></td>}{}ig;
           $i=~s{' target=_blank>.*.</div>}{}ig;
print "$i";
}

строку

Код: Выделить всё

@dd = grep { (<div)|(<title>)/i } @contents;

[Я]

Привет всем. Не хочу показаться археологом, но все же.
Есть дира в ней есть разные файлы среди которых есть файл (1) с расширением .c. делаю:

Код: Выделить всё

ls | grep .c

появляется файл, к примеру test.c (имя.расширение). Подскажите как отрезать только имя файла, чтобы не было .c (точки и расширения).
Заранее благодарен за отввет.

[ProFTP]

Код: Выделить всё

my ($head, $tail) = $file =~ /^(.*)\.([^.]+)$/

[Я]

Сорри за оффтоп, а для шелла есть команда? заранее спасибо.

Может сработает что-то типа:

Код: Выделить всё

ls | grep .c | perl -e 'my ($head, $tail) = $file =~ /^(.*)\.([^.]+)$/'

просто пишу makefile для avrdude, и в makefile есть строка target = <namefile_without_dot_c>
вот я и хочу сделать один makefile для этой цели.