Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
                                                                          
    +          
    ...
    printf " After remove\n"; system($lscmd); system($dfcmd);    sleep 1;
    printf "Try ^Z to see for yourself (cmd:  $dfcmd) ...\n"; sleep 5;
    printf "Now exiting the program\n";
    
  2. or download this
    [liverpole@golux ~/perl]% chmod +x rmtest2
    [liverpole@golux ~/perl]% ls -lt rmtest2
    ...
    [liverpole@golux ~/perl]% df --block-size=1 .
    Filesystem            1-blocks      Used Available Use% Mounted on
    /dev/hda2            77584592896 29352759296 44290691072  40% /