Добавьте столбец чисел в оболочке Unix

160

Учитывая список файлов в files.txt, я могу получить список их размеров следующим образом:

cat files.txt | xargs ls -l | cut -c 23-30

который производит что-то вроде этого:

  151552
  319488
 1536000
  225280

Как я могу получить общий всех этих чисел?

Теги:

19 ответов

347
Лучший ответ
... | paste -sd+ - | bc

является самым коротким из найденных мной (из UNIX Command Line).

Изменить: добавлен аргумент - для переносимости, благодаря @Dogbert и @Owen.

  • 0
    Я согласен, это явно лучший ответ.
  • 0
    Brilliant. Действительно, так много, чтобы узнать с этим простым ответом.
Показать ещё 6 комментариев
139

Здесь

cat files.txt | xargs ls -l | cut -c 23-30 | 
  awk '{total = total + $1}END{print total}'
  • 33
    Использование awk - отличная идея, но зачем держать cut ? Это предсказуемый номер столбца, поэтому используйте ... | xargs ls -l | awk '{total = total + $5}{END{print total}'
  • 2
    Вы, конечно, правы - проще было просто добавить к концу того, что уже было :-)
Показать ещё 2 комментария
9

cat не будет работать, если в именах файлов есть пробелы. здесь вместо этого используется perl-вкладыш.

perl -nle 'chomp; $x+=(stat($_))[7]; END{print $x}' files.txt
8

Вместо использования cut, чтобы получить размер файла из вывода ls -l, вы можете использовать напрямую:

$ cat files.txt | xargs ls -l | awk '{total += $5} END {print "Total:", total, "bytes"}'

Awk интерпретирует "5 долларов США" как пятый столбец. Это столбец из ls -l, который дает вам размер файла.

7
cat files.txt | xargs ls -l | cut -c 23-30 | python -c'import sys; print sum(int(x) for x in sys.stdin)'
5

TMTWWTDI: Perl имеет оператор размера файла (-s)

perl -lne '$t+=-s;END{print $t}' files.txt
3

если у вас нет установленной bc, попробуйте

echo $(( $(... | paste -sd+ -) ))

вместо

... | paste -sd+ - | bc

$( ) < - вернуть значение выполнения команды

$(( 1+2 )) < - вернуть полученные результаты

echo < - эхо на экран

3

Все ls -l, а затем разрезание довольно сложно, когда у вас stat. Он также уязвим для точного формата ls -l (он не работал, пока я не изменил номера столбцов для cut)

Кроме того, исправлено бесполезное использование cat.

<files.txt  xargs stat -c %s | paste -sd+ - | bc
  • 1
    Да. Я использую Unix в течение 32 лет и никогда не знал, что <infile command такая же, как (и в лучшем порядке, чем) command <infile .
3

В ksh:

echo " 0 $(ls -l $(<files.txt) | awk '{print $5}' | tr '\n' '+') 0" | bc
  • 0
    Хорошо для сбора на пропуск cut , но вы игнорируете awks способность делать математику ...
3

Вместо этого я использовал бы "du".

$ cat files.txt | xargs du -c | tail -1
4480    total

Если вы просто хотите номер:

cat files.txt | xargs du -c | tail -1 | awk '{print $1}'
  • 4
    Использование диска! = Размер файла. du сообщает об использовании диска.
  • 4
    Я думаю, что ключ -b заставляет du делать то, что мне нужно.
Показать ещё 3 комментария
3

Вы можете использовать следующий script, если вы просто хотите использовать сценарии оболочки без awk или других интерпретаторов:

#!/bin/bash

total=0

for number in `cat files.txt | xargs ls -l | cut -c 23-30`; do
   let total=$total+$number
done

echo $total
1

Мне нравится использовать....

echo "
1
2
3 " | sed -e 's,$, + p,g' | dc 

они будут отображать сумму каждой строки...

применительно к этой ситуации:

ls -ld $(< file.txt) | awk '{print $5}' | sed -e 's,$, + p,g' | dc 

Итого - последнее значение...

1
#
#       @(#) addup.sh 1.0 90/07/19
#
#       Copyright (C) <heh> SjB, 1990
#       Adds up a column (default=last) of numbers in a file.
#       95/05/16 updated to allow (999) negative style numbers.


case $1 in

-[0-9])

        COLUMN=`echo $1 | tr -d -`

        shift

;;

*)

        COLUMN="NF"

;;

esac

echo "Adding up column .. $COLUMN .. of file(s) .. $*"

nawk  ' OFMT="%.2f"                                       # 1 "%12.2f"

        { x = '$COLUMN'                                   # 2

          neg = index($x, "$")                            # 3

          if (neg > 0) X = gsub("\\$", "", $x)

          neg = index($x, ",")                            # 4

          if (neg > 1) X = gsub(",", "", $x)

          neg = index($x, "(")                            # 8 neg (123 & change

          if (neg > 0) X = gsub("\\(", "", $x)

          if (neg > 0) $x = (-1 * $x)                     # it to "-123.00"

          neg = index($x, "-")                            # 5

          if (neg > 1) $x = (-1 * $x)                     # 6

          t += $x                                         # 7

          print "x is <<<", $x+0, ">>> running balance:", t

        } ' $*


# 1.  set numeric format to eliminate rounding errors
# 1.1 had to reset numeric format from 12.2f to .2f 95/05/16
#     when a computed number is assigned to a variable ( $x = (-1 * $x) )
#     it causes $x to use the OFMT so -1.23 = "________-1.23" vs "-1.23"
#     and that causes my #5 (negative check) to not work correctly because
#     the index returns a number >1 and to the neg neg than becomes a positive
#     this only occurs if the number happened to b a "(" neg number
# 2.  find the field we want to add up (comes from the shell or defaults
#     to the last field "NF") in the file
# 3.  check for a dollar sign ($) in the number - if there get rid of it
#     so we may add it correctly - $12 $1$2 $1$2$ $$1$$2$$ all = 12
# 4.  check for a comma (,) in the number - if there get rid of it so we
#     may add it correctly - 1,2 12, 1,,2 1,,2,, all = 12   (,12=0)
# 5.  check for negative numbers
# 6.  if x is a negative number in the form 999- "make" it a recognized
#     number like -999 - if x is a negative number like -999 already
#     the test fails (y is not >1) and this "true" negative is not made
#     positive
# 7.  accumulate the total
# 8.  if x is a negative number in the form (999) "make it a recognized
#     number like -999
# * Note that a (-9) (neg neg number) returns a postive
# * Mite not work rite with all forms of all numbers using $-,+. etc. *
1

Здесь моя

cat files.txt | xargs ls -l | cut -c 23-30 | sed -e :a -e '$!N;s/\n/+/;ta' | bc
  • 4
    +1 за доказательство раз и навсегда, что есть более уродливые языки, чем perl :)
1

Труба для gawk:

 cat files.txt | xargs ls -l | cut -c 23-30 | gawk 'BEGIN { sum = 0 } // { sum = sum + $0 } END { print sum }'
0
cat files.txt | awk '{ total += $1} END {print total}'

Вы можете использовать awk, чтобы сделать то же самое, он пропускает не целые числа

$ cat files.txt
1
2.3
3.4
ew
1

$ cat files.txt | awk '{ total += $1} END {print total}'
7.7

или вы можете использовать команду ls и рассчитать удобочитаемый вывод

$ ls -l | awk '{ sum += $5} END  {hum[1024^3]="Gb"; hum[1024^2]="Mb"; hum[1024]="Kb"; for (x=1024^3; x>=1024; x/=1024) { if (sum>=x) { printf "%.2f %s\n",sum/x,hum[x]; break; } } if (sum<1024) print "1kb"; }'
15.69 Mb

$ ls -l *.txt | awk '{ sum += $5} END  {hum[1024^3]="Gb"; hum[1024^2]="Mb"; hum[1024]="Kb"; for (x=1024^3; x>=1024; x/=1024) { if (sum>=x) { printf "%.2f %s\n",sum/x,hum[x]; break; } } if (sum<1024) print "1kb"; }'
2.10 Mb
0
sizes=( $(cat files.txt | xargs ls -l | cut -c 23-30) )
total=$(( $(IFS="+"; echo "${sizes[*]}") ))

Или вы можете просто сложить их, как вы читаете размеры

declare -i total=0
while read x; total+=x; done < <( cat files.txt | xargs ls -l | cut -c 23-30 )

Если вы не заботитесь о размерах укуса и блоки в порядке, то просто

declare -i total=0
while read s junk; total+=s; done < <( cat files.txt | xargs ls -s )
0

Чистый bash

total=0; for i in $(cat files.txt | xargs ls -l | cut -c 23-30); do 
total=$(( $total + $i )); done; echo $total
0

На мой взгляд, самым простым решением для этого является команда expr unix:

s=0; 
for i in `cat files.txt | xargs ls -l | cut -c 23-30`
do
   s=`expr $s + $i`
done
echo $s

Ещё вопросы

Сообщество Overcoder
Наверх
Меню