У меня есть ряд файлов, каждый из которых начинается с предложенияИспользование Perl (или назад 'предпросмотр), чтобы захватить слово
создать табличное пространство имя-табличного data.dbf
мне нужно для извлечения табличного пространства-имени и замените data.dbf на tablespace-name .dbf.
Я новичок в perl, но похоже, что мне нужно, чтобы посмотреть (или смотреть вперед) регулярное выражение в perl.
Как это можно сделать?
if (defined($_ = <>)) {
s/^create \s+ tablespace \s+ (\S+) \s+ \K data (?= \.dbf \b)/$1/x;
print;
print while <>;
}
Технически, выглядят обходные и \K здесь не нужны.
s/^ (create \s+ tablespace \s+) (\S+) (\s+) data (\.dbf \b)/$1$2$3$2$4/x
Они просто делают вещи менее шумными.
Я думаю, что ваше редактирование содержит ненужные пробелы, не означает ли вы '^ create \ s + табличное пространство \ s + (\ S +) \ s + \ Kdata (? = \. Dbf \ s * \ z)' – AbhiNickz
@AbhiNickz, что быть эквивалентным, но менее читаемым. Обратите внимание на использование '/ x'. Это делает пробелы несущественными, позволяя одному добавить пробелы для удобства чтения, как в обычном коде Perl. – ikegami
См. Эту ссылку: ваше регулярное выражение не работает [regex] (https://regex101.com/r/rlVC2J/1) – AbhiNickz
Вы можете попробовать использовать подстановку: 's/^ (create tablespace) (tablespace-name) (data.dbf)/$ 1 $ 2 $ 2.dbf /' –
* tablespace-name * отличается в каждом файле, и у меня есть нет прежних знаний о том, что это будет. Вот почему я подумал, что лучше использовать lookahead или lookbehind, чтобы получить слово перед «data.dbf» или слово после «табличного пространства». – Peter
Хорошо, я вижу :) Тогда вы также можете попробовать: 's/^ (create tablespace) (\ S +) (data.dbf)/$ 1 $ 2 $ 2.dbf /' –