앞에 추가

Question

방법 파일에서 얻을 수있는 같은 라인에 라인의 서브 텍스트 :

This is a line 2 
There is 1 line 
imagine 3 lines 
two times two is 4 
There is no number here 

다음 :

2, This is a line 2 
1, There is 1 line 
3, imagine 3 lines 
4, two times two is 4 

그래서, 접두사가 라인에서 검색되며 라인마다 다를 수 있습니다. bash와 perl에서이 작업을 수행하는 방법은 무엇입니까? 대략적으로 같은

s/\d+/$&, $`$&$'/ 

Answer 1

sed -En 's/.*([0-9]+).*/\1, &/p' filename 

Answer 2

는 펄 하나의 라이너를 사용하여

perl -ne 'print "$1, $_" if /(\d+)/' filename 

스위치 :

• -n 각 “ 라인 ”에 대한 while(<>){...} 루프를 작성 당신의 inp ut 파일.
• -e : perl에게 명령 줄에서 코드를 실행하도록 지시합니다.

Answer 3

명령 줄에서 bash를 사용

:

$ while read -r line; do 
    [[ $line =~ [0-9]+ ]] && echo "${BASH_REMATCH[0]}, $line"; 
done < file 
2, This is a line 2 
1, There is 1 line 
3, imagine 3 lines 
4, two times two is 4