Не могу врубиться как на перле сделать следующее:
Есть файл, я в цикле перебераю поочередно все строки -
while <FILE> { $line=$_; }
Задача такова: необходимо сделать так, если встретилась в строке определенная комбинация симолов, то в переменную $key заносить эту строку- но не всю целиком, а определенную ее часть определяемую условию. Пример:
ФАЙЛ:
_____________________________
qwerty ytruiuy
FOO: bar
treopg X#hello#X bfdbuifewwe
jifsd erew
_____________________________

После прохода всего цикла в переменной $key1 должно быть bar
а в переменной key2 должно быть hello. По принципу что кей1 реагирует на появление подстроки FOO: и пишет в кей1 все что после FOO:
А в кей2 заноситься все что находится между X# и #X  

Подскажите, как это выполнить.
Большое всем спасибо.

  
  

• RE: перл: поиск подстроки - непойму :(,1, 12:44 , 01-Фев-03

if ($line=~/.*\:(.*)/){
$key1=$1
}elsif ($line=~/X\#(.*)\#X/){
$key2=$1
}