http://www.perlmonks.org?node_id=995138


in reply to Re: df sometimes hangs in Win32 OS
in thread df sometimes hangs in Win32 OS

So, what I think is being said is that the script this is in needs an OS checker so it can load a Win32 specific utility to do the job?

The script needs to be cross-platform. 95%+ of the installations are on *nix. Maybe 5% of the Win installs come up with this problem. So it's a pretty rare issue.

Replies are listed 'Best First'.
Re^3: df sometimes hangs in Win32 OS
by BrowserUk (Patriarch) on Sep 22, 2012 at 22:21 UTC
    So, what I think is being said is that the script this is in needs an OS checker so it can load a Win32 specific utility to do the job?

    I have a df utility on my windows system -- part of the UnxUtils package though it segfaults on my 64-bit OS -- but generally most windows systems will not have it, and expecting users to find and install one is naive.

    Far simpler I think to use something like:

    sub freespace {
    if( $^O eq 'MSWin32' ) {
        `fsutil volume diskfree .` =~ m[avail free bytes  : (\d+)]; 
        return ( $1 // die $! ) / 1024;
    }
    elsif( $^O eq ... ) {
        ...
    }
    else {
        `df -k .` =~ m[...]; 
        return $1 // die $!
    }
}
...

my $free = freespace();

    [download]
    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    RIP Neil Armstrong
    div class=
[reply]
[d/l]

      Thank you - this is exactly what I need.

[reply]

In Section Seekers of Perl Wisdom