awk で外部プログラムを実行し、結果を取得する

元ネタは Perlで外部プログラムを実行し、結果を取得する です。 コードを見ていただけると分かると思いますが、非常に Perl に似ています。

#! /usr/bin/gawk -f
BEGIN {
    LS = "ls -l";
    while ((LS | getline) > 0) {
        print $0;
    }
    close(LS);
}

Perl の while() でファイルをオープンする記法は awk でも非常に似た形で使うことができます。