下面的文件处理程序文件不工作,我是不是遗漏了什么?我不能让它写入文件$failed_launches?
open(my $data, '<', $file) or die "Could not open '$file' $!\n";
while (my $line = <$data>) {
chomp $line;
if ($csv->parse($line)) {
my @fields = $csv->fields();
foreach ($fields[1] =~ /
我想用Bigarray.map_file创建一个新文件,如下所示:
let file_write_ba path =
try
let fd = Unix.openfile path ~mode:[Unix.O_WRONLY;Unix.O_CREAT] in
let ba = Bigarray.array1_of_genarray (Unix.map_file fd
~pos:0L Bigarray.char Bigarray.c_layout true [|(-1)|])
in
Some ba