Help for this page

Select Code to Download


  1. or download this
        my ($filename, $rest) = split /,/, $_, 2;
    if (index($filename, $to_find) > -1) {
      my ($cms, $path, $size, $day, $time) = split /,/, $rest;
  2. or download this
      open(F, "+< $infile"); 
  while (sysread F, $_, 32768) { 
    $_ .= <F>;
...
    }
  }
  close(F);
  3. or download this
      open(F, "+< $infile"); 
  while (sysread F, $_, 32768) { 
    $_ .= <F>;
...
    }
  }
  close(F);