当前位置: 技术问答>linux和unix
用perl程序 如何取得上级目录的路径
来源: 互联网 发布时间：2016-02-06
本文导语: 如我现在的路径 /home/path/prg 我想得到/home/path 别告诉我用cd .. 我需要在程序中得到 多谢 请教了 | $pwd = `pwd`; chomp( $pwd ); 这样就得到了当前目录，如果你需要的是打印出上级目录，那...
如我现在的路径 /home/path/prg
我想得到/home/path
别告诉我用cd ..
我需要在程序中得到 多谢
请教了
我想得到/home/path
别告诉我用cd ..
我需要在程序中得到 多谢
请教了
|
$pwd = `pwd`;
chomp( $pwd );
这样就得到了当前目录，如果你需要的是打印出上级目录，那大概需要字符串操。
如果你仅仅只是想在上级目录搜索或创建东西，可以
$pwdparent = $pwd.'/../'
通过增加../得到上级目录
chomp( $pwd );
这样就得到了当前目录，如果你需要的是打印出上级目录，那大概需要字符串操。
如果你仅仅只是想在上级目录搜索或创建东西，可以
$pwdparent = $pwd.'/../'
通过增加../得到上级目录
|
#!/usr/bin/perl -w
use strict;
my $homepath = $ENV{HOME};
my $wantpath = join('', $homepath, "相对目录")；
use strict;
my $homepath = $ENV{HOME};
my $wantpath = join('', $homepath, "相对目录")；
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。