昔こんなのがあったんだけど・・・

awk

テキストの中にプログラムが埋め込まれている場合、埋め込まれているテキストだけを抜き出すようなもので、そのままでも読めるし、取り出せばサンプルになるようなものです。

■ サンプルコード

以下のようにすれば、そうした取り出しを行なうことができます。

^----- awkdecode1.awk ここから
#! /usr/bin/gawk -f
# awkdecode.awk - decode files from text file
#   usage: gawk -f awkdecode.awk inputfile

# header operation
$0 ~ /^\^\-\-\-/ {
    flag = 1;
    target_file = $2;
    getline;
}

# decode from text file
flag == 1 && $0 !~ /^\$\-\-\-/ {
    print $0 > target_file;
}

# close file
$0 ~ /^\$\-\-\-/ {
    flag = 0;
}
$----- ここまで

これを以下のように実行します。

$ gawk -f awkdecode.awk foo.txt

昔はこういったものでも、ときめいたものです。