Comment puis-je imprimer des lignes à partir d'un fichier vers l'arrière (sans utiliser «tac»)?

Je veux imprimer des lignes d'un fichier en arrière sans utiliser de taccommande. Existe-t-il une autre solution pour faire une telle chose avec bash?

Utilisation sedpour émuler tac:

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

Avec ed:

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

Si vous êtes sur BSD/ OSX(et si tout va bien bientôt sur GNU/ linuxaussi car ce sera POSIX ):

tail -r infile

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

via awk one liners

Comme vous l'avez demandé en bash, voici une solution qui n'utilise pas awk, sed ou perl, juste une fonction bash:

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

La sortie de

echo 'a
b
c
d
' | reverse

est

d
c
b
a

Comme prévu.

Mais attention, les lignes sont stockées en mémoire, une ligne dans chaque instance appelée récursivement de la fonction. Si prudent avec les gros fichiers.

Vous pouvez le diriger à travers:

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

Les awkpréfixes de chaque ligne avec le numéro de ligne suivi d'un espace. L' sortinverse l'ordre des lignes en triant le premier champ (numéro de ligne) dans l'ordre inverse, style numérique. Et les sedbandes des numéros de ligne.

L'exemple suivant montre cela en action:

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'

Il génère:

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

En perl:

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

Solution BASH uniquement

lire le fichier dans le tableau bash (une ligne = un élément du tableau) et imprimer le tableau dans l'ordre inverse:

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, avec mapfilementionné dans les commentaires de fiximan, et en fait une version peut-être meilleure:

# 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
}

Ses performances sont fondamentalement comparables à la sedsolution et deviennent plus rapides à mesure que le nombre de lignes demandées diminue.

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'

• Numéroter les lignes avec nl
• trier dans l'ordre inverse par numéro
• supprimer les numéros avec sed

comme indiqué ici:

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

Résultat:

c
a
f
e

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