Help for this page

Select Code to Download


  1. or download this
    open(TEMPFILE, ">${TempPath}/temp_shad") || die;
open(SHADFILE, "${TempPath}/$passwdfile") || die;
...
    (@entry) = split(/:/,$_);
        $newentry = join(":", @entry);
        print TEMPFILE "$newentry\n";
  2. or download this
    foo:asDflkj123./d:6445
  3. or download this
    ($user,$passwd,$mod,$f1,$f2,$f3,$f4,$f5) = split(/:/,$_);
$newentry = "$user" . ":" . "$passwd" . ":" . "$mod" . ":" . "$f1" . "
+:" . "$f2" . ":" . "$f3" . ":" . "$f4" . ":" . "$f5)\n";
  4. or download this
            (@entry[0..8]) = split(/:/,$_);
        $newentry = join(":", @entry[0..8]);