문자열에 일치하지 않는 패턴 일치하는 펄 패턴 일치

Question

나는 ascv/zxc/zxc-asd/zx.java과 같은 문자열을 가지고 있습니다. 이제 두 번째 문자열을 자르고 / 문자열을 자르고 ascv/zxc이라는 문자열 값을 얻길 원합니다.

마찬가지로 특수 문자 유형 및 해당 레벨을 입력합니다. 입력에 따라 문자열을 잘라야합니다. 예 : 문자 첫 경기에서 -; 또는 세 번째 경기가 /

매우 도움이 되었습니까?

Answer 1

방법에 대해 :

my $str = 'ascv/zxc/zxc-asd/zx.java'; 
$str =~ s#^([^/]+/[^/]+).*#$1#; 
say $str; 

출력 :

ascv/zxc 

Answer 2

이 당신을 도움이 될 것입니다.

use strict; 
use warnings; 
use 5.010; 

my $str = 'ascv/zxc/zxc-asd/zx.java'; 

say truncate_at($str, '/', 1); 
say truncate_at($str, '/', 2); 
say truncate_at($str, '/', 3); 
say truncate_at($str, '/', 4); 
say truncate_at($str, '-', 1); 

sub truncate_at { 

    my ($str, $sep, $n) = @_; 
    my @offsets; 

    push @offsets, $-[0] while $str =~ m|\Q$sep|g; 
    substr($str, $offsets[$n-1]) = '' if $n <= @offsets; 

    $str; 
} 

출력

ascv 
ascv/zxc 
ascv/zxc/zxc-asd 
ascv/zxc/zxc-asd/zx.java 
ascv/zxc/zxc