Question

以下脚本是bin-packing First-fit算法，该脚本在ubuntu Linux上正常运行，我可以调用bin_packing.awk，但是当我尝试在unix solaris上运行它时出现错误

bin_packing.awk：

function first_fit(v, file) {
    # find first bin that can accomodate the volume
    for (i=1; i<=n; ++i) {
        if (b[i] > v) {
            b[i] -= v
            bc[i]++
            cmd="mv "file" subdir_" i
            print cmd
            # system(cmd)
            return
        }
    }
    # no bin found, create new bin
    if (i > n) {
        b[++n] = c - v
        bc[n]++
        cmd="mkdir subdir_"n
        print cmd
        # system(cmd)
        cmd="mv "file" subdir_"n
        print cmd
        # system(cmd)
    }
    return
}
BEGIN{ if( (c+0) == 0) exit }
{ first_fit($1,$2) }
END { print "REPORT:"
    print "Created",n,"directories"
    for(i=1;i<=n;++i) print "- subdir_"i,":", c-b[i],"bytes",bc[i],"files"
}

并称之为：

$ find . -type f -iname '*pdf' -printf "%s %p\n" \
  | awk -v c=100000 -f bin_packing.awk

这将创建一个文件列表，其前面的文件大小以字节为单位。值c是目录可以以字节为单位的最大大小。上面的值c = 100000仅是示例，这将创建如下输出：

...
mv file_47 subdir_6
mv file_48 subdir_6
mv file_49 subdir_5
mv file_50 subdir_6
REPORT:
Created 6 directories
- subdir_1 : 49 bytes 12 files
- subdir_2 : 49 bytes 9 files
- subdir_3 : 49 bytes 8 files
- subdir_4 : 49 bytes 8 files
- subdir_5 : 48 bytes 8 files
- subdir_6 : 37 bytes 5 files

如果我尝试在Solaris上运行它，它将显示以下错误，并且基于反馈-printf是GNU功能，因此在非GNU版本的find中不可用

find: bad option -printf
find: [-H | -L] path-list predicate-list
awk: syntax error near line 1
awk: bailing out near line 1

Answer 1

在Solaris上使用truthordare_splash（新awk）或nawk（POSIX awk）。 /usr/xpg4/bin/awk是Perl的原始旧版本，用于收集与find的-printf相同的信息：

这是解决方案：

awk

Answer 2

要保存缺少--printf查找功能的问题，可以尝试以下操作：

find . -type f -iname '*pdf' -exec stat --printf="%s %n\n" {} \; \
| awk -v c=100000 -f bin_packing.awk

如何更改awk脚本以在Solaris上工作

2 个答案: