Help for this page

Select Code to Download


  1. or download this
    $SYS_TYPE=1;
...
if ($SYS_TYPE == 1) {
  2. or download this
    $sys_type = "AIX";
...
if ($sys_type eq "AIX") {
  3. or download this
    open (DF, $FILE) || die "Can't Open File: $FILE\n";
  4. or download this
    open my $df, "<", $file or die "Can't Open File: $file: $!\n