-2

我想我到处都看过了，但运气并不好。我正在尝试创建一个简单的自动计费报告。我需要创建一个包含 3 列的 CSV。像这样

Folder   Size   Billing Code
Folder1  300M   XXXXX
Folder2  600M   XXXXX
Folder3  200M   XXXXX

我可以得到一个du -sh并使用awk它来安排我想要的东西，并且我得到了我正在尝试做的大部分事情。但是我不知道如何在每列之前创建一个标题。我在 bash、perl 和 python 中寻找方法，但成功有限。如果我能弄清楚如何制作列标题标签，我想我会很好。

4

3 回答 3

4

试试 Python 中的csv 模块。具体来说，您需要 writeheader() 方法，它非常简单。

或者，如果您已经在 shell 脚本中执行此操作，为什么不先将标题行回显到文件中，然后确保后续命令使用附加运算符 (>>)？

于 2013-01-05T00:06:21.030 回答
3

在渲染值之后添加名称怎么样？

$ sed 1i"This is the first line" - < /proc/loadavg
This is the first line
3.14 3.48 3.58 2/533 17661
于 2013-01-05T00:17:48.477 回答
1

perl 的一种方法：

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

open my $fh, '>:encoding(utf8)','your outfile.csv';

# write the first line with the column names
print $fh "Folder,Size,Billing Code\n";

# Do your folder calculations
my $dirpath = "/your/path";
my $bytes;
find(\&folders,$dirpath);
close $fh;

sub folders {
    if (-d $_) {
        $bytes = 0;
        find(\&size,$_);
        $bytes = $bytes/1_048_576; # Convert Bytes to Mega Bytes
        print $fh $_.",".$bytes."M,your_billing_code \n";
    }
}

sub size {
    if(-f $_){
        $bytes += -s _; # This is not a typo
                        # -X _ does a filesystem operation on the 
                        # last used stat structure
                        # this saves new filesystem calls and therefore performance
                        # see http://perldoc.perl.org/functions/-X.html for more info
    }
}

这会写入 CSV 文件而无需像 du 这样的外部命令，并且适用于每个平台。另请查看 Perl 的 CSV 模块以获取更多选项

于 2013-01-05T03:37:44.817 回答