2014-01-29から1日間の記事一覧
open my $cmd, 'dir k: |'; my @a = <$cmd>; my $a = pop @a; ($a =~ m/\s+?([0-9,]+)\s+?(\D+)空き領域/) ? $a=$1 : 1; $a =~ tr/,//d; return $a
open my $cmd, 'dir k: |'; my @a = <$cmd>; my $a = pop @a; ($a =~ m/\s+?([0-9,]+)\s+?(\D+)空き領域/) ? $a=$1 : 1; $a =~ tr/,//d; return $a