mkcdisk

来自「geekos 0.3.0简单的操作系统」· 代码 · 共 26 行

#! /usr/bin/perl

# Build a binary image containing a pseudo fat filesystem with the listed files

# $Revision: 1.1 $
use FileHandle; 

if ( scalar(@ARGV) < 2 ) {
    print STDERR "usage: mkuprog <diskImage> <filenames>\n";
    exit 1;
}


$filename = shift @ARGV;
$filecount = scalar ( @ARGV );

$fh = new FileHandle(">$filename");

write

while (scalar(@ARGV)) {
    $filename = shift @ARGV;

    print  "got file ", $filename, "\n";
}