05/08/17 18:37:39 FkJYV7Vl
サーバのコマンド df -h をperlで実行して結果を表示しようとしたら…
Filesystem Size Used Avail Capacity Mounted on
,,,,,
って出てきました。telnetでやるとうまくできたのに、こちらではうまくできません。
教えて下さい。
ソースです↓
#!/usr/bin/perl
print "content-type: text/plain\n\n";
$CMD = "df -h";
open (RUNCMD, "$CMD |");
$df = <RUNCMD>;
close (RUNCMD);
chomp($RUNCMD);
printf ("%s,%s,%s,%s,%s,%s", $df);
exit 0;