我真的很懶嗎？

我一直覺得，我還蠻懶惰的，不喜歡做一堆重複的工作，寧願認真做完一次，寫個code，叫電腦自動做，也不願意重複的命令一直打，感覺這種行為很浪費生命，明明自動程序在跑幾秒鐘就沒事了，要燒個一天去做就感覺很白痴。

底下兩段CODE是把當下的UBUNTU或DEBIN系統抽出來做一個ROOTFS，也就是自動做出initrd.img的腳本，用Perl寫這種腳本還蠻快的，而且很好寫，主要是autofs.pl在運作，poCmd.pl是讀取cmd.list內容，讓autofs.pl去呼叫，poCmd.pl會按照cmd.list內列出來的命令，逐一拷貝到/bin底下，順便把需要的動態庫檔案也拷貝進去，後面要把busybox支援的命令在/bin底下做一個soft link，讓系統起來之後有一些基本的命令可以用。

原理就上一篇講的那些做一個自動腳本，把目前的系統抽一個initrd.img的小rootfs出來用，讓系統開機使用RAM DISK的ROOTFS運作，也就是有一些系統商做的小LINUX系統的搞法。

這種系統就是比誰做的小，也就是要做剛好的系統，這有兩個大原則，一個是只載入要用的模組，另外一個是只放需要的命令，所以不要白痴的把所有的模組都放在裏面，也不需要把沒用到的動態函式庫放進去，這樣會讓你做出來的ROOTFS會肥到百M的尺寸，要小，這就需要挑，挑的方法也很簡單，就先看目前系統需要哪些模組，lsmod這個命令可以列出目前系統載入了哪些模組，之後靠modinfo -n去看那個檔案放哪，只抓要用到的東西，另外有些命令用到動態庫，要調用ldd -v 命令去看用了哪些動態庫，只需要拷貝要用到的動態庫就好，這樣才能夠做出比較小的系統，我做出來的initrd.img大概就16M左右，事實上還好沒很肥，反正是自動做的，這大小還可以接受。

本來只是要我做個小系統，讓測試人員可以直接開進去使用，要穩、好拷貝，所以才要我搞這個，我也是努力的花了一星期(含其他案子同時進行)搞出來，下次就開腳本去抽就有了，不需要再來煩我~~XD。

當然不免俗的這程式有BUG(我知道有個問題)，有看出來的可以留言，我們討論一下~~XD

---

poCmd.pl

---

#!/usr/bin/perl -w

open FH,"<../cmd.list";
foreach my $line(< FH >){
 chomp($line);
 if($line ne ""){
 my $limitCounter=0;
 DOAGAIN:
  my @paths=("/bin/","/sbin/","/usr/bin/","/usr/sbin/");
  print "$line";
  my $found=0;
  foreach my $path(@paths){
   if(-e "$path$line"){
    print "\t- $path$line\n";
    system "cp $path$line bin/.";
    my @vars=`ldd -v $path$line | grep lib | grep :\$ | cut -d ':' -f 1`;
    foreach my $var(@vars){
     chomp($var);
     $var =~ s/\t//g;
     $var =~ s/\ //g;
     print "\t$var\n";
     my $libPath="lib/.";
     #$libPath = "lib64/." if($var =~ /x86\_64/i);
     system "cp $var $libPath";
    }
    $found = 1;
    $limitCounter=0;
    last;
   }
  }
  if($found == 0){
   print "Can't found command exist!";
   system "sudo apt-get install $line";
   exit 1 if($limitCounter >= 3);
   $limitCounter++;
   goto DOAGAIN;
  }
 }
}

close FH;

#process busybox softlink

print "make busybox command list\n";
chdir "bin/";
my @vars = `busybox | grep \,\ `;
foreach my $var (@vars){
 if($var !~ /copyright/i){
  chomp($var);
  $var =~ s/\ //g;
  $var =~ s/\t//g;
  my @cmds = split /\,/,$var;
  foreach my $cmd(@cmds){
   if($cmd !~ /\[/){
    print "[busybox command]\t$cmd\n";
    system "ln -s busybox $cmd";
   }
  }
 }
}

---

autofs.pl

---

#!/usr/bin/perl -w

use File::Basename;
#Auto make rootfs on Debin/Ubuntu
#Author Jones
print "Auto make rootfs for Debin/Ubuntu\n";
print "Author Jones Lai\n";

my $var = `uname -a`;

if(($var !~ /ubuntu/i)&&($var !~ /debin/i)){
 print "This script just made for Debin/Ubuntu\n";
 exit 1;
}

$var = `dpkg -l`;

if($var !~ /build\-essential/){
 print "Require build-essential\r\n";
 system "sudo apt-get install build-essential";
}

my @kernels = `ls /lib/modules/`;

@kernels = sort {$b cmp $a} @kernels;

my $lastKernel = $kernels[0];

chomp($lastKernel);

print "Last kernel version is $lastKernel\n";

if(!(-e "vmlinuz")){
 print "copy kernel to local\n";
 system "cp /boot/vmlinuz-$lastKernel ./vmlinuz";
}
if(!(-e "initrd.img")){
 system "mkinitramfs -o initrd.img $lastKernel";
}
if(!(-e "tmp")){
 system "mkdir tmp";
}else{
 system "rm tmp/ -fr";
 system "mkdir tmp";
}

chdir "tmp/";
system "gunzip < ../initrd.img | cpio --extract --preserve --verbose --no-absolute-filenames";
my @modules = `lsmod`;

open(FH,">conf/modules");

foreach my $module(@modules){
 chomp($module);
 next if($module =~ /module/i);
 my ($MOD,$others) = split /\ +/,$module;
 print FH "$MOD\n";
 my $var = `modinfo -n $MOD`;
 chomp($var);
 my $dirname  = dirname($var);
 system "mkdir -p .$dirname/\n";
 system "cp -p $var .$var\n";
 print "[copy module]: $var\n";
}
close(FH);

system "perl ../poCmd.pl";

system "cp ../init init";
system "chmod +x init";

$var = `find . | cpio --create --format='newc' > ../newinitrd`;
print "$var\n";
$var = `gzip ../newinitrd`;
print "$var\n";
$var = `mv ../newinitrd.gz ../newinitrd.img`;
print "$var";
$var = `rm ../initrd.img` if(-e "../initrd.img");
$var = `mv ../newinitrd.img ../initrd.img`;

chdir "../";

---