fork download
copy 
  1. $_ = '/spam';
  2. print "'$_'\t\t --> ";
  3. s#^.*((?<=^/spam/).*|(?<=^/spam))$#/$1#;
  4. print "'$_'\n";
  5.  
  6. $_ = '/spam/';
  7. print "'$_'\t --> ";
  8. s#^.*((?<=^/spam/).*|(?<=^/spam))$#/$1#;
  9. print "'$_'\n";
  10.  
  11. $_ = '/spam/one';
  12. print "'$_'\t --> ";
  13. s#^.*((?<=^/spam/).*|(?<=^/spam))$#/$1#;
  14. print "'$_'\n";
  15.  
  16. $_ = '/spam/one/two';
  17. print "'$_'\t --> ";
  18. s#^.*((?<=^/spam/).*|(?<=^/spam))$#/$1#;
  19. print "'$_'\n";
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
'/spam'		 --> '/'
'/spam/'	 --> '/'
'/spam/one'	 --> '/one'
'/spam/one/two'	 --> '/one/two'
https://ideone.com/YqAAA
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

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!