1 #!/usr/bin/perl -w

 2 use strict;

 3 use FindBin qw($Bin $Script);

 4

 5 my $rp=$Bin;

 6 print "the script dir:$rp\nscript name:$Script\n";

 7

 8 use Cwd qw(abs_path getcwd);

 9 my $abs=abs_path(getcwd());

10 print "current path is:$abs\n"

最新文章

1. WPF中实现验证码功能
2. C#复习⑦
3. POJ C++程序设计 编程题＃2 编程作业—多态与虚函数
4. List排序的两种简便方式
5. Vue自定义事件
6. INITTAB 配置文件
7. Bound Found [POJ2566] [尺取法]
8. (六）STL仿函数functor
9. mxnet自定义dataloader加载自己的数据
10. 190. Reverse Bits (Int; Bit)
11. 【巷子】---fetch---基本使用
12. Google chrome浏览器打不开网页，显示ERR_Failed...等问题的解决方法
13. PAT 1070 结绳（25）（代码）
14. 20155225 2006-2007-2 《Java程序设计》第四周学习总结
15. word-wrap，word-break，white-space
16. lnmp服务器的目录信息
17. [转] Node.js的线程和进程
18. Apache实现一个ip（如：127.0.0.1）和多个域名（虚拟主机）绑定
19. linux下c,c++头文件的路径
20. SSL：Ubuntu证书配置

热门文章

1. [对对子队]会议记录5.20(Scrum Meeting7)
2. 这一篇 K8S（Kubernetes）我觉得可以了解一下！！！
3. NOIP 模拟 $79\; \rm y$
4. （继承）Program2.1
5. hdu 2586 How far away? （LCA模板）
6. docker 简单总结
7. 如何减小微信小程序代码包大小
8. 羽夏看Win系统内核——保护模式篇
9. buuoj刷题 October
10. ArrayList 源码分析和自定义ArrayList实现