主页 / unix / 问题 / 721044
Accepted
showkey
Asked: 2022-10-15 17:46:55 +0800 CST

perl 在 debian 中写了多少代码？

  • 772

我的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

Debian woody中有 计算perl写的代码，os中计算代码

例如，在 Debian woody 中它大约是 400-500 Mbs，试试这个：

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

我复制所有代码并在我的操作系统中执行：

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

为什么大小为零？

debian perl

1 个回答

  1. Best Answer

    错误代码

    如果我按照您的链接，代码是：

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

    此外，在您的尝试中（见上图），您正在尝试从文件中访问grep该base部分，就像在我的 debian 上一样，该部分不存在，因此零结果是正常的。

    解决方案

    #!/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

相关问题