Help for this page

Select Code to Download


  1. or download this
    perl -i~ -pe 'if($ARGV ne $z){$f=$z=$ARGV;$f=~s/\.war$//;substr($_,-11
+)=$f.$/;}' *
  2. or download this
    perl -i~ -pe 'if($ARGV ne $z){$f=$z=$ARGV;$f=~s/\.war$//;s/.{10}$/$f/}
+' *
  3. or download this
    perl -i~ -pe 'if($ARGV ne $z){$z=$ARGV; s/.{10}$/$z/; s/\.war$//}' *