仅复制文本，直到每一行特殊字符到另一个文件

Question

我有一个包含以下数据的文本文件：

ChainCtrlBuildChain() : ChainController.c 
ChainCtrlDumpChain() : ChainController.c 
ChainCtrlDumpChanCallback() : ChainController.c 
ChainCtrlExit() : ChainController.c 
ChainCtrlGetBitStreamChan() : ChainController.c 
ChainCtrlInit() : ChainController.c 

我想只有函数名复制到另一个文本文件。

我想要的输出：

ChainCtrlBuildChain 
ChainCtrlDumpChain 
ChainCtrlDumpChanCallback 
ChainCtrlExit 
ChainCtrlGetBitStreamChan 
ChainCtrlInit 

我该怎么办呢？

请注意，根据用户输入，函数名称和类名称将有所不同。

---

通过使用user4035's code，

$text =~ s/\s:\s.*//g; 

我 “（）” 函数以外的身体像

ChainCtrlBuildChain() 
ChainCtrlDumpChain()  

Answer 1

我给你纯文本处理部分。我想，你可以自己做文件I/O。

#!/usr/bin/perl 

use strict; 
use warnings; 

my $text = qq{ChainCtrlBuildChain() : ChainController.c 
ChainCtrlDumpChain() : ChainController.c 
ChainCtrlDumpChanCallback() : ChainController.c 
ChainCtrlExit() : ChainController.c 
ChainCtrlGetBitStreamChan() : ChainController.c 
ChainCtrlInit() : ChainController.c}; 

$text =~ s/\s:\s.*//g; 
print $text; 

打印：

ChainCtrlBuildChain() 
ChainCtrlDumpChain() 
ChainCtrlDumpChanCallback() 
ChainCtrlExit() 
ChainCtrlGetBitStreamChan() 
ChainCtrlInit()