私のファイルの内容は次のとおりです。
123456789
私の結果は次のとおりです
1234CC789
希望の出力は次のとおりです。
1234CC56789
n番目の位置にPPを挿入するとします。
ただし、テキストを挿入すると、その場所にテキストが挿入されますが、既存の文字も削除されます。
何が問題なのか教えてください。
#!/usr/bin/perl
my $file;
my $char='CC';
my $pos=5;
open($file,'+<',"file.txt") or die $!;
seek($file,$pos,0);
print $file $char;
close($file);
ベストアンサー1
seek次のように合計を慎重に組み合わせて、ファイルの途中に文字列を挿入できますread。
$ perl -wMstrict -e '
my $if = shift;
my($str, $ins_pos) = qw/CC 5/;
my($buffer_pre, $buffer_post);
open my $fh, "+<", $if
or die "Opening: $!\n";
# park the pos pointer at the beginning of file
seek $fh, 0, 0 or die "Seeking: $!\n";
my $buffer_pre_size = $ins_pos - 1;
read($fh, $buffer_pre, $buffer_pre_size) == $buffer_pre_size
or die "Reading: $!\n";
# park the pos pointer at the eof
seek $fh, 0, 2 or die "Seeking: $!\n";
my $eof_pos = tell $fh;
my $buffer_post_size = $eof_pos - $ins_pos + 1;
# park the pos pointer at the insertion location
seek $fh, $ins_pos-1, 0 or die "Seeking: $!\n";
read($fh, $buffer_post, $buffer_post_size) == $buffer_post_size
or die "Reading: $!\n";
# park the pos pointer at the beginning of file
seek $fh, 0, 0 or die "Seeking: $!\n";
print $fh $buffer_pre, $str, $buffer_post;
close $fh or die "Closing: $!\n";
' file.txt
結果：
1234CC56789