Làm cách nào tôi có thể in các dòng từ tập tin ngược (mà không cần sử dụng tính năng của hệ thống)?

Tôi muốn in các dòng từ một tập tin ngược mà không sử dụng taclệnh. Có giải pháp nào khác để làm điều đó với bash không?

Sử dụng sedđể mô phỏng tac:

sed '1!G;h;$!d' ${inputfile}

Với ed:

ed -s infile <<IN
g/^/m0
,p
q
IN

Nếu bạn đang bật BSD/ OSX(và hy vọng sẽ sớm bật GNU/ linuxvì nó sẽ là POSIX ):

tail -r infile

awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' file.txt

thông qua awk một lót

Như bạn đã yêu cầu làm điều đó trong bash, đây là một giải pháp không sử dụng awk, sed hoặc perl, chỉ là một hàm bash:

reverse ()
{
    local line
    if IFS= read -r line
    then
        reverse
        printf '%s\n' "$line"
    fi
}

Đầu ra của

echo 'a
b
c
d
' | reverse

Là

d
c
b
a

Như mong đợi.

Nhưng hãy cẩn thận rằng các dòng được lưu trữ trong bộ nhớ, một dòng trong mỗi thể hiện được gọi đệ quy của hàm. Vì vậy, cẩn thận với các tập tin lớn.

Bạn có thể dẫn nó qua:

awk '{print NR" "$0}' | sort -k1 -n -r | sed 's/^[^ ]* //g'

Các awktiền tố mỗi dòng với số dòng theo sau là khoảng trắng. Việc sortđảo ngược thứ tự của các dòng bằng cách sắp xếp trên trường đầu tiên (số dòng) theo thứ tự ngược lại, kiểu số. Và các seddải ra khỏi số dòng.

Ví dụ sau đây cho thấy điều này trong hành động:

pax$ echo 'a
b
c
d
e
f
g
h
i
j
k
l' | awk '{print NR" "$0}' | sort -k1 -n -r | sed 's/^[^ ]* //g'

Nó xuất ra:

l
k
j
i
h
g
f
e
d
c
b
a

Trong perl:

cat <somefile> | perl -e 'while(<>) { push @a, $_; } foreach (reverse(@a)) { print; }'

Giải pháp chỉ BASH

đọc tệp vào mảng bash (một dòng = một phần tử của mảng) và in ra mảng theo thứ tự ngược lại:

i=0 

while read line[$i] ; do
    i=$(($i+1))
done < FILE


for (( i=${#line[@]}-1 ; i>=0 ; i-- )) ; do
    echo ${line[$i]}
done

Bash, với các mapfileý kiến ​​được đề cập đến fiximan, và thực sự là một phiên bản có thể tốt hơn:

# last [LINES=50]
_last_flush(){ BUF=("${BUF[@]:$(($1-LINES)):$1}"); } # flush the lines, can be slow.
last(){
  local LINES="${1:-10}" BUF
  ((LINES)) || return 2
  mapfile -C _last_flush -c $(( (LINES<5000) ? 5000 : LINES+5 )) BUF
  BUF=("${BUF[@]}") # Make sure the array subscripts make sence, can be slow.
  ((LINES="${#BUF[@]}" > LINES ? LINES : "${#BUF[@]}"))
  for ((i="${#BUF[@]}"; i>"${#BUF[@]}"-LINES; i--)); do echo -n "${BUF[i]}"; done
}

Hiệu suất của nó về cơ bản có thể so sánh với sedgiải pháp và nhanh hơn khi số lượng dòng được yêu cầu giảm.

Simple do this with your file to sort the data in reverse order, and it should be unique.

sed -n '1h; 1d; G; h; $ p'

• Đánh số các dòng bằng nl
• sắp xếp theo thứ tự ngược theo số
• loại bỏ các số với sed

như được hiển thị ở đây:

echo 'e
> f
> a
> c
> ' | nl | sort -nr | sed -r 's/^ *[0-9]+\t//'

Kết quả:

c
a
f
e

awk '{print NR" "$0}' | sort -nr