www.okubo.tk/blog

そこで、上記ページを参考に以下のようなスクリプトを書いてみた。
salvage.pl
#!/usr/bin/perl

if ($ARGV[2] eq ''){
        print "usage: $0 {DEVICE} {BLOCK_SIZE} {SEARCH_KEY}\n";
        exit;
} # if

$dev = $ARGV[0];
$blksz = $ARGV[1];
$key = $ARGV[2];

print `df $dev`;
$blkno = 0;
open(FH, "< $dev") or die "can't open $!";
while (read(FH, $block, $blksz)) {
        if ($block =~ m|\#!/usr/bin/perl|) {
                print "$blkno -> $blkno.data\n";
                `dd if=$dev of=$blkno.data bs=$blksz count=1 skip=$blkno`;
        }
        else {print "$blkno\r";}
        $blkno += 1;
}
exit;

見たまんまだが、デバイスとブロックサイズと検索キーを指定して走らせる。
スクリプトなんかのテキスト系ファイルでブロックサイズ以下のものであればヒットさせられるはずだ。
バイナリファイルでもブロックサイズ以下ならファイル特有のヘッダでどうにかなるのではないかな？
…ということで、どうにか消してしまったファイルもサルベージ出来た。

ちなみに、どうしてもファイルシステムをリードオンリーで再マウントするわけにいかなかったので、マウントについては特にナニもせずそのまま実施した。
本来ならリードオンリーで再マウントすべき。