-1

次のデータを含むテキスト ファイルがあります。

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 のコードを使用することで、

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

関数本体の外側に「()」を取得しました

ChainCtrlBuildChain()
ChainCtrlDumpChain()
4

1 に答える 1

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()
于 2013-07-30T08:02:12.697 に答える