Заменить последний символ в большом файле

Question

У меня есть программа, которая извлекает данные из ряда других файлов в один большой (~ 200MB) Bulk SQL оператора вставки

INSERT INTO ... 
VALUES 
('a','b',1,2,3), 
('c','d',4,5,6), 

К сожалению, последняя линия должна закончиться на запятой вместо запятой. Есть ли способ (идеально в моей программе perl) превращать только последний символ из , в ;?

Что я пробовал:

1) После того, как файл был закончен и закрыт:

open(DAT,">>$output") || die("Cannot Open File"); 
seek(DAT, 2, SEEK_END); 
print DAT ";"; 
close(DAT); 

Это просто ставит точку с запятой в самом конце.

2) Вызов `perl -p -i -e 's/,$/;/g' $output`; из моей программы perl, но это заменяет каждую запятую.

3) При печати последней строки заканчивайте точкой с запятой вместо запятой. Это не работает, потому что я действительно не знаю, что это была последняя строка, пока строка не была написана.

4) Скопируйте весь файл в новый файл, за исключением последнего символа: ; вместо ,. Однако это медленное и, следовательно, не идеальное.

Answer 1

Если вы знаете, что «» вы заменяете всегда собираетесь быть вторыми последними байтами в файле (последние байты будучи „\ п“), то вы можете попробовать это:

my $fsize = -s $filename; 
# print $size."\n"; 
open($FILE, "+<", $filename) or die $!; 
seek $FILE, $size-2, SEEK_SET; 
print $FILE ";"; 
close $FILE; 

Answer 2

Вы пытались

perl -p -i -e 's/,$/;/g' 

Какой будет применять эту замену в каждой строке в файле. Чтобы сделать это только один раз, чавкать файл с помощью переключателя -0:

perl -0777 -pi -e 's/,$/;/' 

Это будет соответствовать только если последний символ запятой (с опциональным символ новой строки). Если у вас есть пробелы или другие символы, это не сработает.

Answer 3

Вы используете смещение Wron. SEEK_END добавляет (!) Смещение в позицию END. Поэтому используйте «-2» в качестве смещения. Попробуйте это:

use strict; 
use warnings; 

open my $fh, "+<x.txt" or die; 
seek $fh, -2, 2; 
print $fh ";\n"; 
close $fh; 

Или немного более разговорчивым:

use strict; 
use warnings; 
use Fcntl qw(SEEK_END); 

open my $fh, "+<x.txt" or die; 
seek $fh, -2, SEEK_END; 
print $fh ";\n"; 
close $fh;