Как я могу извлечь путь к файлу из строки Perl?

Я хочу найти имя файла с полным путем из этой строки

"[exec] /snschome/sns/ccyp/mb_ccsns/bb/cbil5/v85_8/amdocs/iamcust/bil/cl/business/handlers/ClReportsHandler.java:233: cannot resolve symbol"

Я хочу извлечь

/snschome/sns/ccyp/mb_ccsns/bb/cbil5/v85_8/amdocs/iamcust/bil/cl/business/handlers/ClReportsHandler.java

и я пытаюсь это в Perl

    $_=$string_from_to_match
    my @extract_file=split(/.*(\/.*)\:.*/);
    print $extract_file[1],"\n";`

но я получаю этот вывод:

/ClReportsHandler.java:233:

Это соответствует последнему/ и последнее:, Как я могу изменить его на первый/ и первый:?

Ответы на вопрос(4)

Ваш ответ на вопрос