作者 主題: PERL︰找出檔案所在的 device number  (閱讀 5146 次)

0 會員 與 1 訪客 正在閱讀本文。

劍客

  • 活潑的大學生
  • ***
  • 文章數: 238
    • 檢視個人資料
    • http://kalug.ks.edu.tw
PERL︰找出檔案所在的 device number
« 於: 2001-11-23 21:07 »
#!/usr/bin/perl
use File::stat;
$filename=shift;
if( -e $filename){
    $st=stat($filename);
    print "Major number is ".($st->dev>> 8 & 0xff ) ."n";
    print "Minor number is ".($st->dev & 0xff)."n";
}else{
    print "tUsage : $0 filenamen";
}

就降子了!