まれなファイルをお探しですか？

Question

このフラグをサポートするSEEK_HOLE lseekシステム（およびファイルシステム）（例：ext4のUbuntu 12.04）では、その値がSEEK_HOLELinuxのように4であるとします。

if perl -le 'seek STDIN,0,4;$p=tell STDIN;
   seek STDIN,0,2; exit 1 if $p == tell STDIN'< the-file; then
  echo the-file is sparse
else
  echo the-file is not sparse
fi

シェル構文はPOSIXです。内部に持ち運べないものはperlこんな感じですSEEK_HOLE。

lseek(SEEK_HOLE)最初のスタートを探しています。穴ファイルに存在する場合、または脆弱性が見つからない場合は、ファイルの末尾にあります。上記では、lseek(SEEK_HOLE)ファイルの末尾（同じ場所）に移動したときにファイルがリーンではないことがわかりますlseek(SEEK_END)。

スパースファイルを一覧表示するには:

find . -type f ! -size 0 -exec perl -le 'for(@ARGV){open(A,"<",$_)or
  next;seek A,0,4;$p=tell A;seek A,0,2;print if$p!=tell A;close A}' {} +

GNU find（バージョン4.3.3以降）は-printf %S報告する必要があります。希少性ファイルの。それを使うフロストスーツの答えディスク使用量とファイルサイズの比率を考慮しているため、すべてのスパースファイル属性を報告することを保証することはできません（たとえば、ファイルシステムレベルで圧縮が行われた場合、またはホールセーブがファイルシステムインフラストラクチャオーバーヘッドを補償できない場合、または大容量拡張ファイルの場合））、実装されていないシステム、または実装されていないファイルSEEK_HOLEシステムで動作します。SEEK_HOLEここにGNUツールがあります：

LC_ALL=C find . -type f ! -size 0 -printf '%S:%p\0' |
  LC_ALL=C awk -v RS='\0' -F : '$1 < 1 {sub(/^[^:]*:/, ""); print}'

_{find（この回答の以前のバージョンは、3.2e-05のように希少性を表現したときに正しく機能しませんでした。ありがとうございます。@flashydaveからの返信私の注目を集めた。ロケール基準の代わりにLC_ALL=C10進基準が必要です（すべての実装がロケール設定を尊重するわけではありません）。.awk}

Answer 1