Help for this page

Select Code to Download


  1. or download this
    echo "/home/code/work"|\
perl -pe's|(/[^/]+)|$`$1 |g'
  2. or download this
    perl -pe's|(/[^/]+)|$`$1$"|g' ### $" - DUH!
perl -l40p057e'$_=$;.$_;$;="$_/"'
perl -ne'print$1,$"while m|($&/[^/]+)|'
perl -e'$_=<>;print$1,$"while m|($&/[^/]+)|'
perl -e'@_=<>=~m|(/[^/]+)|g;print@_[0..$_],$"for(0..$#_)'