Làm cách nào để chuyển đổi từ dấu gạch dưới sang trường hợp lạc đà bằng regex?

Question

Làm cách nào để chuyển đổi tên có dấu gạch dưới vào tên trường hợp lạc đà như sau bằng cách sử dụng số tìm kiếm biểu thức chính quy Java/Perl và thay thế?

underscore_variable_name -> underscoreVariableName 
UNDERSCORE_VARIABLE_NAME -> underscoreVariableName 
_LEADING_UNDERSCORE -> leadingUnderscore 

Lý do tôi yêu cầu một cụm từ thông dụng là tôi muốn thực hiện việc này bằng cách sử dụng Eclipse hoặc Notepad ++ tìm kiếm và thay thế.

Answer 1

Some Perl examples:

my $str = 'variable_name, VARIABLE_NAME, _var_x_short, __variable__name___'; 

### solution 1 
$_ = $str; 

$_ = lc; 
s/_(\w)/\U$1/g; 

say; 

### solution 2: multi/leading underscore fix 
$_ = $str; 

$_ = lc; 
s/(?<=[^\W_])_+([^\W_])|_+/\U$1/g; 

say; 

### solution 3: without prior lc 
$_ = $str; 

s/(?<=[^\W_])_+([^\W_])|([^\W_]+)|_+/\U$1\L$2/g; 

say; 

Output:

variableName, variableName, VarXShort, _variable_name__ 
variableName, variableName, varXShort, variableName 
variableName, variableName, varXShort, variableName 

Answer 2

Nếu bạn đã có biến camelCase trong chuỗi, sau đó @ câu trả lời Qtax sẽ làm cho họ chữ thường. Nếu tất cả các biến của bạn là thấp hơn trường hợp under_scored sau đó bạn có thể làm cho việc sửa đổi sau đây để # 3: W ->A-Z

's/(?<=[^\A-Z_])_+([^\A-Z_])|([^\A-Z_]+)|_+/\U$1\L$2/g' 

Answer 3

Uppercases chữ sau _-:

s/[_-]([a-z])/\u$1/gr