Perl을 사용하여 줄의 일부를 어떻게 추출 할 수 있습니까?

Question

펄의 작은 문제가 아래에 설명이 있습니다

안녕하세요 친구 -> 안녕하세요 (0.2)

안녕하세요 친구 -> 안녕 내 친구 (: 나는이 같은 파일이 0.2)

는

는 나는 단지 화살표 전에 문구 추출하고자하는

는 "->" 그것은이 의미 안녕하세요 친구

Answer 1

그냥 이런 식으로 뭔가를 시도 :

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 2

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

Answer 3

한 가지 방법 : AWK 모드에서

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

Answer 4

펄 당신은 무엇을

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

hello friends