Script for detecting sparsed files

check_sparse.pl

#!/usr/bin/perl

# based on: https://code.google.com/p/unixtoolbox/source/browse/trunk/sparse_files/checksparse.pl?r=8
# author: pavel.odintsov@gmail.com 

use strict;
use warnings;

unless (scalar @ARGV == 1) {
    die "Please specify path";
}

sub process_file {
    my $path = shift;

    unless (-f $path) {
        die "It's not an file";
    }

    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat $path;

    my $blocks_used = $blocks * 512;
    my $is_sparsed = '';
    if ($blocks_used < $size) {
        $is_sparsed = 1;
    }       
    
    if ($is_sparsed) {
        print "File $path is sparsed, size: $size, actual space used: $blocks_used\n";
    } else {
        print "File $path is not sparsed, size: $size, actual space used: $blocks_used\n";
    }
}

process_file($ARGV[0]);