Início / unix / Perguntas / 721044
Accepted
showkey
Asked: 2022-10-15 17:46:55 +0800 CST

Quantos códigos escritos por perl no debian?

  • 772

Meu sistema operacional debian:

cat   /etc/os-release
PRETTY_NAME="Debian GNU/Linux 11 (bullseye)"
NAME="Debian GNU/Linux"
VERSION_ID="11"
VERSION="11 (bullseye)"
VERSION_CODENAME=bullseye

Existe o código para calcular códigos escritos por perl no Debian woody, calcular código em os

Por exemplo, no Debian woody é em torno de 400-500 Mbs, tente isto:

size=0
for i in `grep -A 1 -B 1 "^Section: base" /var/lib/dpkg/available | grep -A 2 "^Priority: required" |grep "^Installed-Size" |cut -d : -f 2
`; do size=$(($size+$i)); done
echo $size
 47762

Eu copio todos os códigos e executo no meu sistema operacional:

debian@debian:~$ size=0
debian@debian:~$ for i in `grep -A 1 -B 1 "^Section: base" /var/lib/dpkg/available |
  grep -A 2 "^Priority: required" |grep "^Installed-Size" |cut -d : -f 2
  `; do size=$(($size+$i)); done
debian@debian:~$ echo $size
0

Por que o tamanho é zero?

debian perl

1 respostas

  1. Best Answer

    Código errado

    Se eu seguir seu link, o código é:

    for i in /bin/* /sbin/* /usr/bin/* /usr/sbin/*; do
    [ -f $i ] && {
        type=`file $i | grep -il perl`
        [ -n "$type" ] && echo $i;
    }
done

    Além disso, em sua tentativa (veja acima), você está tentando grepa baseseção do arquivo e, como no meu debian, esta seção não está presente lá, então o resultado zero é normal.

    Solução

    #!/bin/bash

size=0
for i in /bin/* /sbin/* /usr/bin/* /usr/sbin/*; do
    [[ -x $i ]] &&
    file -i $i |
    grep -q perl &&
    ds=$(du $i | awk '{print $1}')
    ((size+=ds))
done
echo "$((size/1024)) MiB"
    • 2

relate perguntas