1、有两种方法：
1. use Cwd;
my $dir = getcwd;
#$dir中即为当前目录的完整路径信息。
2. my $dir = $ENV{'PWD'};
#ENV是一个散列，用于存放环境变量。PWD是Linux的环境变量，表示当前所在目录。
my $path=`pwd`;
print $path,"/n";
2、STAF的Lib库路径信息
该程序利用Perl来调用STAF的接口，所以一定要将STAF相关的PM文件，库文件的路径信息指定。其中Perl程序中需要调用STAF的PM文件时，可以利用
BEGIN {
push @INC, "/usr/local/staf/bin";
}将路径信息包含在内。
3、
perl里将当前路径保存到变量
use FindBin qw($Bin);
Perl 获得当前路径<br />1、有两种方法：<br />1. use Cwd;<br />my $dir = getcwd;<br />#$dir中即为当前目录的完整路径信息。<br />2. my $dir = $ENV{'PWD'};<br />#ENV是一个散列，用于存放环境变量。PWD是Linux的环境变量，表示当前所在目录。<br /> <br />my $path=`pwd`;<br />print $path,"/n";<br /><br /> <br />2、STAF的Lib库路径信
从一个“普通”的Oracle DBA（Oracle数据库管理员）转变为Oracle Applications DBA（Oracle应用程序数据库管理员），有两个内容你必须去弄清楚。第一个内容是如何成为一个Oracle Applications DBA（Oracle应用程序数据库管理员）。第二个内容是你要搞清楚Oracle应用程序背后的架构体系，也就是说你要明白诸如以下产品的结构体系：Oracle电子商务套件、Oracle 11i数据库、Siebel产品等。
本文首先讲述如何从一个普通的Oracle DBA转变为一个Oracle Applications DBA（Oracle应用程序数据库管理员），接着讲述一些Oracle应用软件架构方面的内容 。
如何成为Oracle应用程序数据库管理员
首先是角色的转变
Oracle Applications DBA（Oracle应用程序数据库管理员）对“普通”的Oracle DBA（Oracle数据库管理员）来说是一个很大的挑战。拿Oracle EBS DBA（Oracle 电子商务套件DBA）来说，不仅需要了解EBS的各个组件、服务，而且还要更主动和其他相关人员接触。 一个Oracle Applications DBA（Oracle应用程序数据库管理员）不仅需要和其他DBA一样去负责managing、 sizing、maintaining和 tuning database这些日常的数据库管理的工作，如果他的Apps database是OLTP系统的话，他还需要监察wait和lock 。Oracle E-Business Suite还有一些特性需要DBA去完成，比如从外部资源里灌数据到Apps database里，或支持开发人员从已有数据中提取数据。
接着工作内容的转变
作为一个Oracle Applications DBA（Oracle应用程序数据库管理员），要想更好的对Oracle Application database做支持，需要仔细记住以下几项。
1．网络上没有什么比较容易简单的文档让你去熟悉Apps DBA,所以我建议去看帮助。
2．在你没有经过多次测试并且得到客户认可的时候不要去打补丁，并且你要确信这个补丁解决了现有的问题，而且没有带来其它新的问题。
3．记住Oracle Applications会有很多索引，定期rebuild index会对性能有好处，当然做这项工作应该在系统的空闲时间。
4．不要为了提高性能而在没有询问oracle Support前试着去增加额外的indexes。如果你一定要去做，那千万记住要有文档作记录，因为在这之后你再打patch的时候它可能会把你做的修改自动复原。
5． 知道怎么样是正确的打patch，先计划打哪个patch，然后取得patch，接着打patch，测试，最后文档记录。
6． 要知道任何时刻数据库都可能会有一些object 是invalid的，你的一些操作也会增加invalid objects，定期检查这些invalid objects的数量，然后定期用utlrp去重新编译，utlrp.squ在ORACLE HOME的rdbms/admin下，需要用SYS运行。在你的DB运行过程中如果碰到错误，就可以先重新编译invalid objects，如果没有解决问题再去递交iTAR(Internet created Technical Assistance Request).
7．能看懂日志。
8．了解Apps database的环境，包括操作系统和DB的，当你对你的工作环境了如指掌后，一切也就变得容易了，那时，你就是一个悠闲的Apps DBA了。
另外，对于APPS DB（应用程序数据库）来说，你可能需要创建或拷贝（克隆）多个生产库以外的数据库，比如测试和开发数据库，当然，需要多少数据库是由你的商业需求所决定的。开发环境数据库是供开发人员进行report,PL/SQL等开发的，这个环境可以在开发人员觉得数据已经不再满足开发需求的时候，当然也可以在这个环境测试补丁（patches）。当然最终使用patch的时候还需要在测试环境做测试，因为测试数据库是和生产数据库环境最接近的。（上面说的克隆cloning是一种将applications layer和database layer完全复制的一种方法。）所以，当你拥有这三个数据库的时候，打patch的步骤是先development database再test database最后才在production database环境应用。
构架应用体系
如果你研究过Oracle Forms，使用过Application Server和Devel
有两种方法：1. use Cwd;my $dir = getcwd;#$dir中即为
当前
目录的完整
路径
信息。2. my $dir = $ENV{'PWD'};#ENV是一个散列，用于存放环境变量。PWD是
Linux
的环境变量，表示
当前
所在目录。若
当前
目录为/usr/lib/, 则上面的$dir = /usr/lib
在
Perl
中获取
当前
目录的完整
路径
有两种方法：1. use Cwd;my $dir = getcwd;#$dir中即为
当前
目录的完整
路径
信息。2. my $dir = $ENV{'PWD'};
my $dir ='F:\VirtualShare\NRT\2019183_14_02_igu1888';
my @files = glob( $dir );
foreach (@files ){
print $_ . "\n";
运行结果：
文件夹未带文件描述时仅显示当...
你写的脚本（或程序）的应用场景肯定有很多，如：本机登录用户在程序所在的目录下运行；本机登录用户在根目录下运行；或者是远程用户使用SSH调用。
而此时，你的程序涉及到一些文件的读/写操作，这时就需要以
当前
程序所在绝对
路径
为文件
路径
坐标基点--以定位读/写文件的所在，才能成功地读写文件。
1. 错误方式之一
use Cwd;
my $cwd = getc
这将把/
path
/to/my/lib目录添加到
Perl
库
路径
中。如果你想要在每次启动时都自动设置这个环境变量，可以将上述命令添加到你的shell配置文件（例如.bashrc或.zshrc）中。
在Windows操作系统中，可以按照以下步骤设置
PERL
5LIB环境变量：
1. 右键点击“计算机”或“我的电脑”，然后选择“属性”。
2. 点击“高级系统设置”。
3. 在“高级”选项卡下，点击“环境变量”。
4. 在“系统变量”或“用户变量”中，找到
PERL
5LIB，并添加
路径
到值中。如果没有该变量，请点击“新建”创建它。
请注意，以上
路径
是示例，你需要将其替换为你实际的
路径
。
