fork download
copy 
  1. #!/usr/bin/perl -n
  2. use File::Basename;
  3. use feature 'say';
  4.  
  5. say basename($1.$2) if /(?:file|redefined in)\s+(?:'([^']+)'|(\S+))/; # extract path, get basename
  6.  
Success #stdin #stdout 0s 4860KB
comments (?)
stdin
copy 
1    warning: rg: W, MULT: file 'filename_a.h' was listed twice.
2    warning: rg: W, SCOP: scope redefined in '/proj/test/site_a/filename_b.c'.
3    warning: rg: W, ATTC: file /proj/test/site_b/filename_c.v is not resolved.
4    warning: rg: W, MULTH: property file filename_d.vu was listed outside.
stdout
copy 
filename_a.h
filename_b.c
filename_c.v
filename_d.vu
https://ideone.com/C7evl
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!