Переместить определенную строку с позиции на другую

sed -n '1h;2,10H;11G;11,$p' 

Первая строка, скопируйте hиз-за новой строки, затем добавьте Hдо 10.

В строке 11 получите место для удержания

От 11 до конца, распечатать.

]#  sed -n '1h;2,10H;11G;11,$p' bonj 
French: Bonjour 
English: Hello 
Turkish: Marhaba 
Italian: Ciao 
German: Hallo 
Spanish: Hola 
Latin: Salve 
Greek: chai-ray 
Welsh: Helo 
Finnish: Hei 
Breton: Demat 

Так лучше:

]# seq 20 | sed -n '1h;2,10H;11G;11,$p' 
11
1
2
3
4
5
6
7
8
9
10
12
13
14
15
16
17
18
19
20

Я беру твой пример:

]# sed -e 1p -e 11p -n bonj 
English: Hello 
French: Bonjour 

...с переключателем -nв конце, чтобы показать, что он учитывается для обоих выражений.

У меня также есть -n, а затем 1h;2,10H, который должен быть просто 1,10H, который представляет собой диапазон номеров строк и команду «удерживать» (сохранить ). Пока ничего не печатается.

11,$p— другой диапазон. В строке 11 печатается то, что `11G' только что получил из удержания (, т.е. 1 -10 ), и добавляется к строке 11.

Строки с 12 по $ просто печатаются сами по себе из-за -n.

Я должен сделать два -eтаких, как ты:

sed -n -e '1h;2,10H' -e '11G;11,$p'

От 1,10 - холд, от 11,$ - печать.

В строке 11 сначала G, затем p. Это важно, потому что:

]# seq 20 | sed -n -e '1h;2,10H' -e '11,$p;11G'
11
12
13
14
15
16
17
18
19
20

Здесь строка 12 стирает то, что строка 11 получила после печати.

Как функция с параметрами

Всегда скучно в одиннадцатой строке с функцией "поместить первым":

]# declare -f putfirst 
putfirst () 
{ 
    e="1h;2,$(($1-1))H;${1}G;${1},\$p";
    sed -ne "$e" $2
}

Два шага :генерация строки, затем вызов sed. "$" имеет два значения :"p" не является переменной!

Это наименьшее число, которое работает:

]# seq 7 | putfirst 3 
3
1
2
4
5
6
7

Или с исходным файлом "bonj":

]# putfirst 4 bonj | putfirst 6 |head -4
Latin: Salve 
German: Hallo 
English: Hello 
Turkish: Marhaba 

Это два sed подряд, но теперь выполняются две операции.

Перл

perl -ne '$n++; $h.=$_ if $n<11; print $_.$h if $n==11; print if $n>11' <(seq 20)

И как некий скрипт, который принимает имя файла и не нуждается в опциях:

$want=11 ;
while (<>) {
    $n++ ;
    if ($n < $want)            # before $want: store line
        { $lowlines.= $_ ; 
          next }               # next line (avoids 'else')  
    if ($n == $want)           # at line $want: append stored lines to $_    
        { $_.= $lowlines }   
    print ;                    # print $_ for $n not less than $want
}

AWK(украдено у Эда (не редактор!))

NR < 11 { 
    buf[NR] = $0; next 
}
NR >=11 {
    print
    if (NR == 11) {
        for (i=1; i<11; i++) { print buf[i] }
    }
}

Я использовал NRвместо увеличения nи сделал поток более явным. Тот же «трюк» :упрощает nextнисходящий поток.

Сperl -n

$n++ ;
$tmp = $tmp. $_  if $n < 11  ; 
print  $_. $tmp  if $n == 11 ;
print  $_         if $n > 11  ;

Это лучший формат. Симметричный.