Re: Regular Expression Question

[Masem]

OOTOMH...

while (<FILE>) {
    my $boxname;
    if ( ! ( /^Filesystem/ ) ) {
        $boxname = $_;
    } else {
        while (<FILE>) {
            my ( $title, $blocks, $used, $avail, $percent, $mounted ) 
+= split /\s+/;
            last if ( !defined( $title ) );
            my $number = ( $percent =~ /(\d*)\%/ );
            if ( $number > 88 ) {
                print "$boxname's $title is at $percent!\n";
            }
        }
    }
}

Update Should be split \/s+\ rather than \/s*\

---

Dr. Michael K. Neylon - [e-mail] || "You've left the lens cap of your mind on again, Pinky" - The Brain

[MrNobo1024]

Did you mean split(/\s+/)? split(/\s*/) will split it into individual characters because /\s*/ can match a 0 character string.