Perl 获得当前路径

最新推荐文章于 2024-07-18 16:28:37 发布
最新推荐文章于 2024-07-18 16:28:37 发布
阅读量1.6w 收藏 5
点赞数 3
分类专栏： Perl Study 文章标签： perl path linux
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zxianyong/article/details/6018795
版权
Perl 获得当前路径

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);

zxianyong0
关注
专栏目录
Perl目录操作
追梦赤子心
12-29 3484
Perl目录操作 1. 工作目录 1.1 当前工作目录 程序运行的时候总有一个相应的工作目录，后续要做的事情都是从这个目录开始的。借助标准模块的Cwd模块，我么可以查看当前目录。 #!/usr/bin/perl #code1 use v5.10; use Cwd; say "The cuurent working directory is："，getcwd(); #打印的路径应该就是程序的保存位置...
Perl基础
luguifang2011的专栏
11-30 2123
脚本 Perl 是一种脚本语言，它在每次运行前都需要编译。在unix/linux下，通常perl脚本都是以 #!/usr/bin/perl 为开头的。这其实是perl（可执行文件）的全局路径，这个路径当然可以写成其他，只要能找到perl， 但有一点需要注意，perl的全局路径（/usr/bin/perl)不能超过32个字符。 Perl的内容和命令行 Perl路径给出后: #!/usr/bi
在Perl中获取当前目录的完整路径
xinerer的专栏
10-17 993
有两种方法：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'};
perl获取当前绝对路径
weixin_40936351的博客
08-02 1098
perl获取当前绝对路径
一文搞懂CPU处理器
最新发布
明静致远
07-18 3121
是计算机的核心部件。如果把计算机比作人，那CPU就是大脑，负责执行计算机程序中的指令，进行算术和逻辑运算，控制其他硬件组件工作。
在Perl中获取当前目录的完整路径pwd
sxlwzl的专栏
04-13 1万+
zz : http://hi.baidu.com/kenking2008/item/85b170c1d24150ddef183b49 在Perl中获取当前目录的完整路径 有两种方法： 1. use Cwd; my $dir = getcwd; #$dir中即为当前目录的完整路径信息。 2. my $dir = $ENV{'PWD'}; #ENV是一个散列，用于
Perl 获取当前程序的绝对路径与勘误
北雨南萍
02-23 2512
前言   你写的脚本（或程序）的应用场景肯定有很多，如：本机登录用户在程序所在的目录下运行；本机登录用户在根目录下运行；或者是远程用户使用SSH调用。   而此时，你的程序涉及到一些文件的读/写操作，这时就需要以当前程序所在绝对路径为文件路径坐标基点--以定位读/写文件的所在，才能成功地读写文件。 1. 错误方式之一 use Cwd; my $cwd = getc
Perl-目录操作1
Arkardia的博客
11-08 1475
1. 当前工作目录 程序运行时总有一个相应的工作目录，后续要做的事都是从这个目录开始 借助标准模块之一的Cwd模块，我们可以看到当前的工作目录是哪个 use v5.10; use Cwd; say "The current working directory is ", getcwd(); 打印出来的目录应该就是程序保存的位置 如果使用相对路径打开某个文件，perl会按当前目录定位这个相对路径 比如当前工作目录是/home/fred，运行以下代码来读取文件，perl会定位到/home/fred/relat
WWW-Curl-4.15.tar_curl_www_www-curl_Perl_
09-29
**WWW-Curl-4.15.tar - 关于curl、www-curl 和 Perl 的知识** ...`curl` 的存在使得开发者可以在终端上轻松地进行文件下载、上传、查看网页...同时，选择旧版本的库也需要考虑其与当前系统的兼容性以及新版本的功能更新。
perl 安装mysql_Perl +MySQl安装说明
weixin_29643223的博客
01-19 637
Perl对MySQL的支持借助DBI/DBD客户接口而提供。见20.5 MySQL Perl API。PerlDBD/DBI客户代码要求Perl 5.004或以后版本。如果你有Perl的一个更旧的版本，接口将不能工作。MySQL Perl支持也要求你安装了MySQL客户编程支持。如果你从RPM文件安装MySQL，客户程序在客户RPM中，但是客户编程支持在开发者RPM。确定你安装了后一个RPM 。对...
绝对路径与相对路径祥解
11-27
这段代码通过`__FILE__`魔术变量获取当前文件的路径，并进行处理得到绝对路径。 5. **如何检测相对路径？** 同样，可以编写另一个子程序来获取当前Perl程序的相对路径。例如： ```perl sub myurl { local $...
perl打印文件头
oTobias的博客
03-03 378
#!/usr/bin/perl -w use strict; use POSIX; my $cur_time=strftime("%m/%d/%Y",localtime()); my $file_name; my $tab = " "x4; if (@ARGV == 1) { $file_name = $ARGV[0]; } else { &help_message(); } open (...
Perl - 如何查看Perl模块路径
IT架构师
05-26 1782
Perl - 如何查看Perl模块路径
Perl处理文件及文件夹
weixin_34375251的博客
03-08 608
前言 更多内容，请访问我的 个人博客。 use FindBin qw($Bin); #遍历文件夹 my $fileReportDir = $Bin; #出报告所在的文件夹地址 if(-e $fileReportDir){ opendir DIR, $fileReportDir || die "Error in opening dir $fileReportDir\n"; while( my $...
perl 获取目录下的文件
wq_ocean_的博客
07-27 2214
文件目录结构如下： 方法一：使用glob操作（获得绝对路径） 文件夹未带相关描述时仅显示当前路径： my $dir ='F:\VirtualShare\NRT\2019183_14_02_igu1888'; my @files = glob( $dir ); foreach (@files ){ print $_ . "\n"; } 运行结果： 文件夹未带文件描述时仅显示当...
[Perl]如何取绝对路径:FindBin模块和Cwd模块用法和区别
热门推荐
VirBird的专栏
02-28 1万+
用法： FindBin use FindBin qw($Bin);my $root_path = $Bin; print "脚本的路径:$root_path\n"; Cwd use Cwd qw(abs_path getcwd); my $abs = abs_path(getcwd());print "运行脚本的路径:$abs\n"; 区别 大家一定注意到了"脚本
perl模块默认路径linux,Perl模块安装到非默认路径及其使用
weixin_36346221的博客
05-06 2836
当需要使用某些Perl模块，但由于某些原因没有管理员权限时, 这是比较有效的方法Perl安装到非默认路径的方式: (以 /home/yangl/perl_lib为例)perl Makefile.PL PREFIX=/home/yangl/perl_lib 或者 perl Makefile.PL INSTALL_BASE=/home/yangl/perl_libmakemake installPe...
perl-运行时指定perl路径
深未来技术
03-13 745
hello,world如下 #!/usr/bin/perl print "hello,world!";
perl打印当前文件夹的绝对路径
06-30
在 Perl 中，你可以使用 `Cwd` 模块来获取当前文件夹的绝对路径。下面是一个示例代码： ```perl use Cwd; my $abs_path = Cwd::abs_path('.'); print "当前文件夹的绝对路径为：$abs_path\n"; ``` 这段代码中，`Cwd::abs_path('.')` 返回当前文件夹的绝对路径，并将其存储在 `$abs_path` 变量中。然后，通过 `print` 语句将路径打印出来。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值