regex - Perl を使用して行の一部を抽出するにはどうすればよいですか?

Question

以下に説明する Perl に小さな問題があります。次のようなファイルがあります。

こんにちは友達-> こんにちは (0.2)

こんにちは友達-> こんにちは友達 (0.2)

矢印 "->" の直前のフレーズのみを抽出したいのですが、これは次のことを意味します: Hello friends

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