for($i = 0; $i <= $last_dir; $i++) {
(
$deleted_file[$i]
, $void
, $the_dir[$i]
, $first_pointer[$i]
, $last_pointer[$i]
, $has_subdir[$i]
, $has_iden[$i]
) = split (/\"\|/, $tmp_2[$i], 7);
#printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i
+, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}
something like
for($i = 0; $i <= $last_dir; $i++) {
@{$data[i]}(qw(deleted_file void the_dir first_pointer las
+t_pointer has_subdir has_iden))
= split (/\"\|/, $tmp_2[$i], 7);
#printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i
+, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}
or
for($i = 0; $i <= $last_dir; $i++) {
($data[i]{deleted_file}, $void, $data[i]{the_dir}, $data[i]{first_po
+inter},
$data[i]{last_pointer}, $data[i]{has_subdir}, $data[i]{has_iden})
= split (/\"\|/, $tmp_2[$i], 7);
#printf ("sort_dirs_debug2: %5d fp: %5d, lp: %5d %s\n", $i
+, $first_pointer[$i], $last_pointer[$i], $the_dir[$i]);
}
Jenda
Enoch was right!
Enjoy the last years of Rome.
|