Найти и заменить только в начале строки

Question

Я совершенно новый для Perl (как в, только начал играть с ним по необходимости сегодня днем), потому что мне приходится иметь дело с большими, громоздкими текстовыми файлами, которые вам нужны для включения в .sql. После работы через пару базовых регулярных выражений поиска/замены операции, я использовал следующую строку:

s/$/');/g; 

И я закончил с 300k + строк, которые выглядят следующим образом:

');INSERT INTO `test` VALUES('aa1b','MediaWiki1Deletecomment','1',5609'); 

К сожалению. Таким образом, это должно было положить '); в конец каждой строки, но, очевидно, я неправильно понял и застрял в начале и конце строки. Итак, пару вопросов:

1. Как бы я сделал это правильно? Очевидно, что я недопонимаю s/$/');/g;
2. Как исправить этот файл сейчас, когда я вставил '); в начале каждой строки, как я выборочно просматриваю каждую строку и удаляю '); в начале строки, а не конец?

Этот Perl/Regex noob благодарит вас!

Answer 1

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

perl -pe 's/^.{3}//' infile 

Answer 2

Perl имеет включенное с помощью переключателя -i. Используйте его в вашем случае, как и в

$ perl -i.bak -pe "s/$/');/" *.sql 

Это создаст кучу *.sql.bak резервных копирование файлов с исходным кодом, и измененное содержимое будет в ваших *.sql файлах.

Чтобы исправить уже обливали из них, запустить

$ perl -i.bak -pe "s/^');//" *.sql