Это должно сделать это:
$ perl -pe 's/(\w+)=>(\d+)/$2 $1/'
Пример запуска с вашими тестовыми данными:
$ cat dummy.txt
array databse
(
user_content_1=>0
no_entry=>1
user_content_2=>2
user_content_2=>3`
left=>4
....
)
$ perl -pe 's/(\w+)=>(\d+)/$2 $1/' dummy.txt
array databse
(
0 user_content_1
1 no_entry
2 user_content_2
3 user_content_2`
4 left
....
)
Вам придется работать с \w+
и \d+
, если ваши реальные данные содержат больше символов, чем показано в вашем примере.