Help for this page

Select Code to Download


  1. or download this
    > perl -le '$,=":";print reverse split /\./, "filename.ext", 2'
ext:filename
  2. or download this
    perl -le '$,=":";print reverse( "filename.ext" =~ /(.*)\.([^.]+)$/ )'