function fgetcsv($f, $length, $d="^", $q='') {
$list = array();
$st = fgets($f, $length);
if ($st === false || $st === null) return $st;
while ($st !== "" && $st !== false) {
if ($st[0] !== $q) {
# Non-quoted.
list ($field) = explode($d, $st, 2);
$st = substr($st, strlen($field)+strlen($d));
} else {
# Quoted field.
$st = substr($st, 1);
$field = "";
while (1) {
# Find until finishing quote (EXCLUDING) or eol (including)
preg_match("/^((?:[^$q]+|$q$q)*)/sx", $st, $p);
$part = $p[1];
$partlen = strlen($part);
$st = substr($st, strlen($p[0]));
$field .= str_replace($q.$q, $q, $part);
if (strlen($st) && $st[0] === $q) {
# Found finishing quote.
list ($dummy) = explode($d, $st, 2);
$st = substr($st, strlen($dummy)+strlen($d));
break;
} else {
# No finishing quote - newline.
$st = fgets($f, $length);
}
}
}
$list[] = $field;
}
return $list;
}
public function import($fn) {