將sed單線轉換爲perl

Question

我在我的perl腳本中使用此sed單線程。然而，有沒有一種方法（我確信有）在Perl中做同樣的工作？

這裏是我的文件：

$ cat all_log1.txt 
Looking into the table etl_f_gl_balance 
# of -1 values in etl_f_gl_balance.row_key: 
0 
# of -1 values in etl_f_gl_balance.ledger_key: 
1020 
# of -1 values in etl_f_gl_balance.gl_account_key: 
1020 
# of -1 values in etl_f_gl_balance.legal_entity_key: 
1020 
# of -1 values in etl_f_gl_balance.cost_center_key: 
995 
# of -1 values in etl_f_gl_balance.natural_account_key: 
1020 
# of -1 values in etl_f_gl_balance.posting_period_fiscal_key: 
5 
# of -1 values in etl_f_gl_balance.posting_period_key: 
5 

而且我想下面的輸出，這裏是我的sed解決方案：

$ sed ':a; N; $!ba; s/:\n/: /g' all_log1.txt 
Looking into the table etl_f_gl_balance 
# of -1 values in etl_f_gl_balance.row_key: 0 
# of -1 values in etl_f_gl_balance.ledger_key: 1020 
# of -1 values in etl_f_gl_balance.gl_account_key: 1020 
# of -1 values in etl_f_gl_balance.legal_entity_key: 1020 
# of -1 values in etl_f_gl_balance.cost_center_key: 995 
# of -1 values in etl_f_gl_balance.natural_account_key: 1020 
# of -1 values in etl_f_gl_balance.posting_period_fiscal_key: 5 
# of -1 values in etl_f_gl_balance.posting_period_key: 5 

目前，我沒有能夠得到它完成無論我使用哪種正則表達式組合，都使用perl。因此，我最終在我的perl腳本中調用了sed命令。

我不是在尋找一個Perl腳本，而是一個班輪。

謝謝。

Answer 1

這Perl的一個班輪應工作：

perl -pe 's/:\n$/: /' file 
Looking into the table etl_f_gl_balance 
# of -1 values in etl_f_gl_balance.row_key: 0 
# of -1 values in etl_f_gl_balance.ledger_key: 1020 
# of -1 values in etl_f_gl_balance.gl_account_key: 1020 
# of -1 values in etl_f_gl_balance.legal_entity_key: 1020 
# of -1 values in etl_f_gl_balance.cost_center_key: 995 
# of -1 values in etl_f_gl_balance.natural_account_key: 1020 
# of -1 values in etl_f_gl_balance.posting_period_fiscal_key: 5 
# of -1 values in etl_f_gl_balance.posting_period_key: 5 

Answer 2

這一次將當前文件的備份和更新：

perl -i.bak -pe 's/\n$/ /g if /^#/gm' all_log1.txt 

如果你想在屏幕輸出，然後用這一個：

perl -pe 's/\n$/ /g if /^#/gm' all_log1.txt