Help for this page

Select Code to Download


  1. or download this
    ...
foreach(@arr) {
    
    @IDINFO = split(/:/,"$arr[$_]");
...
  2. or download this
    $HAN = "handle";
$FILE = "passwd.txt";
open("$HAN", "$FILE")||die "Error opening file: $!\n";
  3. or download this
    open my $HAN, $FILE
    or die "Error opening file '$FILE': $!";
  4. or download this
    while(<$HAN>) {
@arr = <$HAN>;
}
  5. or download this
    ...
    print "UID is: @IDINFO[2] \n";
    print "GID is: @IDINFO[3] \n";
...
  6. or download this
        print "UID is: $IDINFO[2] \n";
    print "GID is: $IDINFO[3] \n";