regex - 如何使用 Perl 提取行的一部分？

Question

我在下面描述的 Perl 中有一个小问题：我有一个这样的文件：

你好朋友->你好（0.2）

你好朋友->你好我的朋友（0.2）

我想只提取箭头“->”之前的短语，这意味着： 你好朋友

Answer 1

my ($pre, $post) = split /\s*->\s*/, $line;

Answer 2

单程：

perl -F'->' -alne '/->/ and print $F[0];' file

Answer 3

试试这样的事情：

    my $line = "hello friends -> Hello (0.2)";
    if ($line =~ m/([\w\W]+)->([\W\w]+)/) {
        my $property=$1;
        my $value=$2;

        # stuff here
        print STDOUT "property = $property\n";
        print STDOUT "value = $value\n";
    }

Answer 4

awk 模式下的 Perl

$ perl -F'-' -lane 'print $F[0]' input
hello friends 

hello friends