Perl腳本搜索/替換和轉換結果

Question

我正在運行一個簡單的Perl腳本，它複製了所有以\txt開頭到\xtx的行。到現在爲止還挺好。

use strict; 
use warnings;  

$^I = '.bak'; 

while (<>) { 

    s/(\\txt)(.*)/$1$2\n\\xtx $2/g; 

    print; 
} 

現在我想「擦洗」所有的新線開始\\xtx和

1. 刪除所有非單詞字符：即非字母，但保持字符，任何字符變音符號

2. 將所有內容轉換爲小寫。

而這正是我的基本的編程技能結束

我的文本文件看起來像這樣：

\txt Text (.) with [ symbols and Num[bers (.2) and cháractẽrs with diacrítics 
\abc More text ... 

我的劇本至今生產：

\txt Text (.) with [ symbols and Num[bers (.2) and cháractẽrs with diacrítics 
\xtx Text (.) with [ symbols and Num[bers (.2) and cháractẽrs with diacrítics 
\abc More text ... 

而且我想實現：

\txt Text (.) with [ symbols and Num[bers (.2) and cháractẽrs with diacrítics 
\xtx text with symbols and numbers and cháractẽrs with diacrítics 
\abc More text ... 

任何幫助非常感謝！

編輯：
這裏有一個真實的例子字符串：

\_sh v3.0 400 Text3 

\ref 2013-05-01_08.36.14 001 
\txt Djawy (.) de osẽ[ma (.2) EDJu:: 
\fts Te equivocaste, saliste, 
\fte 

\ELANParticipant #TBGD 
\ELANBegin 00:00:05.367 
\ELANEnd 00:00:06.521 
\dt 26/May/2016 

\ref 2013-05-01_08.36.14 002 
\txt [A;;;;;;;;;;;;; 
\fts A;;;;;;;;;;;;; 
\fte 
... 

...一切都應該保持原樣，除了開始\ TXT線...

Answer 1

你可以試試這個轉換版爲

的Perl

use strict; 
use warnings; 

binmode (DATA, ":utf8"); 
binmode (STDOUT, ":utf8"); 

while (<DATA>) { 
    s/^(\\txt)(.*)/GetConvetedLine($1,$2)/me; 
    print; 
} 

sub GetConvetedLine 
{ 
    my ($txt, $body) = @_; 
    my $newbody = $body; 
    $newbody =~ s/[^\pL\s]+//g; 
    $newbody =~ s/\s+/ /g; 
    $newbody = lc($newbody); 
    return $txt . $body . "\n" . "\\xtx " . $newbody; 
} 


__DATA__  
\txt Text (.) with [ symbols and Num[bers (.2) and cháractẽrs with diacrítics 

輸出

\txt Text (.) with [ symbols and Num[bers (.2) and cháractẽrs with diacrítics 
\xtx text with symbols and numbers and cháractẽrs with diacrítics 

Answer 2

您可以重構它有點，所以你不必把它全部放到一個正則表達式：

use strict; 
use warnings;  
$^I = '.bak'; 
while (<>) { 
    print; 
    if(/^\\txt/) { 
     s/^\\txt//; # remove \txt 
     s/[\[\]\(\)//g; # remove all unwanted characters 
     print "\xtx $_"; 
    } 
    print; 
} 

Answer 3

根據記錄，這是SLN的回答上面，我結束了使用的（略有修改）的版本。它可被調用，我用於調用與perl script.pl myfile.txt原始腳本相同的方式：

#!/usr/bin/perl 

use strict; 
use warnings; 
use open qw(:std :utf8); 
$^I = '.bak'; # create a backup copy 

while (<>) { 
    s/^(\\txt)(.*)/GetConvetedLine($1,$2)/me; 
    print; 
} 

sub GetConvetedLine 
{ 
    my ($txt, $body) = @_; 
    my $newbody = $body; 
    $newbody =~ s/[^\pL\s]+//g; 
    $newbody =~ s/ \s+/ /g; 
    $newbody = lc($newbody); 
    return $txt . $body . "\n" . "\\xtx " . $newbody; 
}