如何将shell脚本case语句转换为perl脚本

Question

如何编写以下shell脚本stmt的perl脚本

$.ajax({
  dataType:"json",
  url:"api/v1/ajax/json/CustomerController/getList",
  data:"namespace=\\App\\Http\\Controllers\\",
  success:function(data){

  }
})

Answer 1

使用Cwd库函数abs_path。

use Cwd 'abs_path';
my $script_location = abs_path( $0 );