Help for this page

Select Code to Download


  1. or download this
    mounted_disks=$(mount | perl -le'$d = shift; print join " ", sort { le
+ngth( $b ) <=> length( $a ) } map m{/dev/$d} ? (split)[2] : (), <>' $
+dest)
  2. or download this
    mounted_disks=$(perl -le'$d = shift; print join " ", sort { length( $b
+ ) <=> length( $a ) } map m{/dev/$d} ? (split)[2] : (), qx(mount)' $d
+est)