Perl的文件测试运算符-f为符号链接返回true
在Perl中，文件测试运算符-f用于检查文件是否为普通文件。当文件是普通文件时，-f运算符返回true，否则返回false。
然而，需要注意的是，-f运算符在处理符号链接时会返回true，因为它会检查符号链接指向的文件是否为普通文件。这意味着，如果你使用-f运算符检查一个符号链接，它会返回true，即使符号链接本身不是普通文件。
如果你想要检查符号链接本身是否为普通文件，而不是检查符号链接指向的文件，请使用-l运算符来检查是否为符号链接，然后再使用-f运算符检查符号链接指向的文件是否为普通文件。例如：
if (-l $file && -f readlink($file)) {
# 处理符号链接指向的普通文件
# ...
}在上述示例中，我们首先使用-l运算符检查文件是否为符号链接，然后使用readlink()函数获取符号链接指向的文件路径，并使用-f运算符检查该文件是否为普通文件。只有当两个条件都满足时，才会执行相应的处理逻辑。
相关·内容
我过去常常认为-f测试一个文件是为了查看它是否是一个常规文件，而不是其他任何东西。但是Perl似乎有不同的表现。我查找了条目，它说：
-f File is a plain file.
假设我有一个目录，其中包含一个名为file1的文件和5个符号链接1 2 3 4 5，每个符号链接都指向file1，如下所示：
-rw-r--r-- file1
lrwxrwxrwx 1 -> file1
lrwxrwxrwx 2 -> file1
lrwxrwxrwx 3 -> file1
lrwxrwxrwx 4 -> file1
lrwxrwxrwx 5 -> file1
dr
浏览 0提问于2012-04-25得票数 18
回答已采纳
5回答
我想使用Perl删除目录中一个破损的符号链接。
在我看来，我只需列出目录的文件，并测试这是一个符号链接(-l)，如果它返回false，只需将其解链接即可。
但是，当使用readir列出所有文件时，我损坏的符号链接似乎不会被重新命名为文件。因为我的链接没有指向任何东西，我明白为什么。
然后：如何检测Perl中的符号链接是否被破坏？
谢谢,
更新
$myDir中的所有文件都是符号链接，有效或损坏。当我显示@文件时，我只得到一个有效的符号链接列表。
opendir DIR, $myDir;
my @files = grep(/$regexp/,readdir(DIR));
closedir DIR;
浏览 5提问于2011-07-05得票数 8
回答已采纳
我需要复制一个目录树充满符号链接到一个不同的挂载上的文件，但埋在目录是2或3个符号链接到目录之外的复制树。我需要将指向文件的符号链接复制为实际文件，但将2或3个符号链接作为符号链接保存到目录。
"scp -L“取消一切
我试了一下"rsync -avHS“，然后是"rsync -avHS
浏览 0提问于2020-09-06得票数 0
在我的项目中，我使用这种模式。
if [ -f "$path" ] || [ -d "$path" ]; then
echo "$path exists"
fi
检查$path是否存在于文件系统中，而不管它是文件还是目录。这是否完全等同于
if [ -e "$path" ]; then
echo "$path exists"
fi
？对于特殊的文件，如符号链接或设备，情况如何？是否有任何平台相关的细节需要注意？我使用Bash，但是我想知道shell之间的细微差别。
浏览 2提问于2021-10-17得票数 1
回答已采纳
2回答
我需要将文件从一个目录复制到另一个目录(非常明显:) )，但我想存储与目标路径一起复制的文件列表。假设我有: /mnt/a/f1 /mnt/a/f2
我想将所有文件从'a‘复制到根目录，所以我这样做了：cp -rv /mnt/a/* /
cp的输出将如下所示：
`/mnt/a/f1` -> `/f1`
`/mnt/a/f2` -> `/f2`
现在我想存储在一些文件列表中，如下所示：
/f1
/f2
有人知道我如何才能实现这样的输出吗？
浏览 2提问于2012-10-01得票数 0
回答已采纳
1回答
我有这个：
use constant JAR_FILE => qr/\.jar$/;
my @dir_list = ...;
my @jar_list;
find ( sub {
return unless -f;
return unless JAR_FILE; #THIS IS THE TROUBLED LINE
push @jar_list, $File::Find::name;
}, @dir_list;
say join ": ", @jar_list;
这将打印出@dir_list中的所有文件-- jar文件和非jar文件
浏览 0提问于2013-05-01得票数 4
回答已采纳
2回答
我有一个c++类，它使用stat读取有关文件的信息。它在各自的文件上设置dir和reg都很好，但是当我在我的ubuntu PC上一个已知的sym链接("/vmlinuz.old")上测试它时，lnk仍然是假的。在这种情况下，它设置reg为true。我的代码必须在这里引用： (漫步到按钮)
class file_info
{
public:
string size;
string owner;
string group;
string path;
string acc_time;
string mod_time;
st
浏览 1提问于2012-02-16得票数 0
如果只想列出目录(在当前目录中)，请使用ls -d */
如果您只想列出普通文件、可执行文件、软链接或任何其他类型的文件，该怎么办？
因为ls -F将*附加到可执行文件，@附加到符号链接文件，/附加到目录中，所以我尝试了ls -d **和ls -d *@，但它们不起作用。
浏览 0提问于2014-07-28得票数 2
我刚刚开始使用Perl，我得到了一个我不完全理解的脚本。具体来说，我不明白这个条件线：
if ( -d "$dirPath\\$file" and not $file =~ /^\./ )
条件的第一部分是文件是否存在于目录中，但我不理解"not $file =~ /^./ "，这意味着什么？我在网上做了一些调查，但什么也找不到。
浏览 0提问于2016-08-22得票数 0
回答已采纳
我花了相当多的时间在SE上寻找解决方案，但还没有遇到这个问题。 我有一个Perl脚本" script“，可以安装在不同的位置，但它总是读取本地文件(与脚本位于同一目录中)。如果用户直接调用脚本( la ../../foo/ script )，一切都会按预期进行。Perl脚本查找本地文件。 但是，如果用户创建一个指向Perl脚本的符号链接(ln -s my_脚本../../foo/ script )，并运行sym_链接，sym_链接的Perl脚本在当前目录中查找文件，而不是脚本原始位置的本地目录。 我正在尝试弄清楚如何确定Perl脚本实际所在的路径。然后我会把它放在我想要读入的文件的前
浏览 38提问于2015-05-07得票数 1
回答已采纳
my $Path = $_[0];
return "" if(not $Path or not -f $Path);
我正在浏览一个perl文件，但不能理解-f选项的含义-f不是什么意思？
浏览 0提问于2012-02-16得票数 2
回答已采纳
看两个例子：
$ perl -e ' print -e "registrar" && -d _ ? "YES" : "NO" '
YES
$ perl -e ' print -e "registrar" && -l _ ? "YES" : "NO" '
The stat preceding -l _ wasn't an lstat at -e line 1.
-d和-l都是文件测试操作符。为什么第二不起作用？-l _前面的st
浏览 5提问于2022-08-31得票数 0
回答已采纳
我有一个.pm文件，我们称之为A.pm，它是在另一个文件B.pl中使用的，该文件位于一个单独的目录中。在A.pm内部，我想引用一个存在于同一个目录中的外部非perl文件。为了避免硬编码到该外部文件的路径，我希望在运行时获得A.pm所在的目录。
我试过使用$FindBin::Bin和file：：Spec->rel2abs(‘.’.‘)，但我了解到，这些都指向当前正在执行的脚本的目录，而不是当前文件。$0也给出了当前正在执行的脚本的名称。
除了在A.pm中对路径进行硬编码之外，是否还有一种方法可以使目录A.pm驻留？
编辑:我还应该注意，我尝试过使用相对于A.pm的路径引用外部文件，但是在执
浏览 0提问于2019-02-25得票数 2
回答已采纳
1回答
在这个例子中感叹号是什么意思？在“打开”之前的那个？这本书不能回答我的问题。
if ( ! open PASSWD, "/etc/passwd") {
die "How did you get logged in? ($!)";
}
while (<PASSWD>) {
chomp;
...
}
浏览 0提问于2019-04-04得票数 0
回答已采纳
我使用import将htaccess转换为iis上的web.config，但收到消息‘条件模式不受支持：-l’。其中-l是RewriteCond %{REQUEST_FILENAME}！htaccess中的-l，
htaccess
Options -MultiViews
RewriteEngine On
Options -Indexes
RewriteCond %{REQUEST_FILENAME} !-d
RewriteCond %{REQUEST_FILENAME} !-f
RewriteCond %{REQUEST_FILENAME} !-l
RewriteRule ^(.+)$ ind
浏览 2提问于2016-07-21得票数 0
2回答
我有一个带有deleteDir函数的文件实用程序类 @Override
public boolean deleteDir(File file) {
File[] contents = file.listFiles();
if (contents != null) {
for (File f : contents) {
if (! Files.isSymbolicLink(f.toPath())) {
deleteDir(f);
}
}
}
file.
浏览 23提问于2020-01-23得票数 0
1回答
我升级了perl，它安装在/usr/local/lib/perl 5/.以前的perl版本安装在/usr/lib/perl 5/
现在，当我在它的位置中安装spamassasin的旧位置，并显示以下错误。
启动spamd:无法在@INC中找到Mail/SpamAssassin.pm (@INC包含:/usr/lib/perl 5/供应商perl/5.8.8 /usr/local/lib/perl5/site_perl/5.12.3/i686-linux-thread-multi /usr/local/lib/perl 5/site_perl/5.12.3 /usr/local/lib/perl
浏览 0提问于2011-05-13得票数 0
回答已采纳
2回答
我希望在某个目录中找到最老的文件的年代，如果这个目录中没有任何文件，则返回0。我还需要一个单行命令。到目前为止，我的命令是查找目录中最老的文件的年龄(以秒为单位)：
expr $(($(date +%s) - $(stat -c %Y $(ls -lt /path/to/dir/ | tail -1 | awk '{print $NF}'))))
问题是，如果没有文件，它将返回以下错误：
$ expr $(($(date +%s) - $(stat -c %Y $(ls -lt /path/to/dir/ | tail -1 | awk '{print $NF}'
浏览 0提问于2019-04-04得票数 4
回答已采纳
作为perl及其版本的新手，我认为它的工作方式类似于R，但显然不是。我有文件夹/usr/share/perl/5.26.1文件夹和/usr/share/perl/5.26文件夹，所以我删除了/usr/share/perl/5.26文件夹。一切都很好。当我进入perl -v时，我得到了This is perl 5, version 26, subversion 1 (v5.26.1)。但出于某种原因，当尝试安装DBD::SQLite时，包"DBD-SQLite-1.66“中的Makefile.PL默认为PERL_LIB = /usr/share/perl/5.26。如何使其默认为PERL
浏览 0提问于2020-09-04得票数 3
回答已采纳
测试-> a.pl
my $file = '/home/joe/test';
if ( -f $file && -l $file ) {
print readlink( $file ) ;
}
如何获取symlink文件的绝对路径？
浏览 0提问于2011-02-03得票数 7
回答已采纳
我的环境是：
CentOS 6.9
Ubuntu 16.04 LTS
GNUcoreutils8.4具有使用-f选项检查文件的test命令。
man test显示
-f文件文件存在，是一个常规文件。
“常规文件”的定义对我来说是模棱两可的。
在终点站，我做了
$ touch afile
$ ln -fs afile LN-FILE
然后，我执行了以下脚本(check_file_exist_180320_exec)
#!/usr/bin/env bash
if [ -e LN-file ]
then
echo "file exists [-e]"
浏览 1提问于2018-03-20得票数 2
回答已采纳
我有一些Perl代码正在做一些我无法理解的奇怪的事情。我在本节代码前面定义了两个变量：
$latestPatch = '000';
$test_setup{appl}{Rev0_OK} = 'F'; # a hash element
两者都被定义为字符串。如果打印出原始变量(环绕‘)，'int($latestPatch)'是'0'，'$test_setup{appl}{Rev0_OK}'是'F'。到目前为止，正如预期的那样。现在，我运行以下操作：
$shouldInstall = int($lat
浏览 2提问于2013-10-04得票数 1
回答已采纳
我的问题是，返回值im打印没有被转换成一个值。
我在一个测试文件中有以下代码。
#!/usr/bin/perl -I/srv/www/jonathan/m/www
my $var = sprintf("$%.1f lbs",(77*2.20462));
print $var;
它返回：0.1f，而不是我需要看到的值。
我在这里做错了什么？我是perl新手。
浏览 8提问于2016-08-09得票数 0
回答已采纳
2回答
是否有一个Perl模块(最好是核心模块)具有一个函数，可以告诉我给定的文件名是否在目录(或者目录的子目录中，递归地)？
例如：
my $f = "/foo/bar/baz";
# prints 1
print is_inside_of($f, "/foo");
# prints 0
print is_inside_of($f, "/foo/asdf");
我可以自己编写，但是有一些复杂的因素，比如符号链接、相对路径、检查文件系统是否可以，等等。
浏览 1提问于2014-05-10得票数 0
回答已采纳
我试图从我的Ubuntu机器上删除postgres，但是当我这样做的时候，我得到了错误信息
Can't locate PgCommon.pm (@INC is [... a list of paths ...])
你知道为什么PostgreSQL会忘记自己安装的文件吗？
浏览 2提问于2017-04-07得票数 1
我试图找出一种方法来检查在模块函数中是否在Perl脚本中声明了哈希。
给定以下脚本(文件script.pl)：
#!/usr/bin/perl -w
use strict;
use checkHash;
our %testHash = ("key"=>"value");
print &checkHash() ? 1 : 0;
与此模块(checkHash.pm)一起；
sub checkHash {
if(%main::testHash) {
return 1;
}
else {
ret
浏览 4提问于2011-07-26得票数 1
回答已采纳
任何人都可以帮助删除文件中的行，如果行包含较少的列或坏记录，则需要删除这些列。
Input File:
a,b,c,d
a,b,d,f
c,d
a,v,b,h
d,e,v,n
在上面的文件中，如果数据显示小于4，我必须从文件中删除行。
Output File :
a,b,c,d
a,b,d,f
a,v,b,h
d,e,v,n
下面的命令给出一行的数据，如果不等于4，我如何删除，
egrep -iv '"' file.csv | awk -F',' '{print NF}'
谢谢。
浏览 0提问于2015-04-06得票数 1
回答已采纳
5回答
下面的bash脚本是什么意思？
if [ -d "directory name" -a ! -L "directory name" ]; then # do something fi，我能理解到这里：
如果[ -d“目录名”
但那之后我就迷路了。如果除了解释之外，还需要考虑解释-a！-L的文档
浏览 6提问于2014-08-01得票数 0
回答已采纳
我正在用perl strawberry编写一个脚本。它需要能够做的第一件事是接受路径参数并获得该路径的目录列表，并且它需要能够区分文件和文件夹。我阅读了一些关于这个主题的教程，并编写了下面的脚本，但只有当我给它提供脚本当前所在的路径时，它才能起作用。如果我给它任何其他路径，-f和-d测试就不起作用。
编辑:澄清:脚本确实将所有文件和文件夹放入@thefiles如果我给它一个路径而不是它自己的路径，那只是-f和-d测试不起作用。
use Getopt::Long;
my $dir;
GetOptions('-d=s' => \$dir);
opendir(DIR, $
浏览 3提问于2010-08-25得票数 4
2回答
解决损坏的符号链接
、、、
我想让我的Go程序解析一些符号链接的目标。唯一的问题是这些符号链接将指向实际上不存在的目的地，这很好，因为之后我会做一些文件路径操作。这有可能吗？如果我执行"readlink -f "，我确实得到了一个空结果，退出代码为1。
// path is the filepath of a symlink
// this symlink will most likely be pointing to a non-existent file/location
// this is fine and is handled elsewhere
func handleSymlink(path
浏览 0提问于2017-07-11得票数 1
我开始真的喜欢上了C#的操作符，并且我已经习惯了这样一个事实:在某些语言中有一些方便的东西，它很可能也是用Perl编写的。
但是，我找不到?？在Perl中等效。有吗？
浏览 0提问于2009-12-12得票数 21
回答已采纳
1回答
我遇到了以下材料：
by ，章节:调试正则表达式。
，它提到了perl的re::debug模块
我还尝试使用其他各种技术：
re=debugcolor，突出了它的输出。
跟踪施工?{print "$1 $2\n"}。
但仍然没有弄明白如何读取它们的输出。我还找到了另一个用于调试正则表达式的模块，但我还没有尝试它们，请解释一下如何读取use re 'debug'的输出或用于在perl中调试正则表达式的另一个命令吗？
编辑以回应Borodin：
第一个例子：
perl -Mre=debug -e' "foobar&
浏览 3提问于2015-03-20得票数 4
我有一个脚本，它创建一个新目录，然后遍历一个不同(源目录)目录的所有内容，并在新目录中创建指向源目录中每个元素的链接。剧本的相关部分是：
use strict;
use warnings;
use Getopt::Long;
use Cwd 'getcwd';
use Cwd 'realpath';
#...
opendir ($LC, $source_dir) or die "Cannot open directory: '$source_dir': $!";
while ($entry = readdir $LC) {
浏览 0提问于2014-12-07得票数 0
回答已采纳
我有一段Javascript代码想要理解
// read big-endian (network byte order) 32-bit float
readFloat32 = function(data, offset) {
var b1 = data.charCodeAt(offset) & 0xFF,
b2 = data.charCodeAt(offset+1) & 0xFF,
b3 = data.charCodeAt(offset+2) & 0xFF,
b4 = data.charCodeAt(offset+
浏览 0提问于2011-08-09得票数 8
回答已采纳
2回答
在bash中使用/home/zzz和/home/zzz/有什么不同？
我刚刚发现，当/home/zzz是指向另一个目录的链接时，find /home/zzz -type f将什么也得不到，但find /home/zzz/ -type f将返回该目录下的所有文件。
还有其他不同之处吗？
浏览 0提问于2012-11-20得票数 2
回答已采纳
我有一堆XML，它们的行如下所示
<_char font_name="/ITC Stone Serif Std Bold" italic="true" />
但有时看起来像这样
<_char font_size="88175" italic="true" font_name="/ITC Stone Serif Std Bold" />
我要做的是
将italic="true"替换为italic="false“，每一行包含ITC Stone Serif Std Bold
浏览 8提问于2008-10-13得票数 4
回答已采纳
20回答
这将检查文件是否存在：
#!/bin/bash
FILE=$1
if [ -f $FILE ]; then
echo "File $FILE exists."
else
echo "File $FILE does not exist."
fi
如何只检查文件是否存在不存在？
浏览 26提问于2009-03-12得票数 3817
回答已采纳
为什么我在Windows和Linux上的use integer杂注下的异或表达式0 ^ 2506133561得到了不同的结果？
Windows：
perl -e "use integer; print 0^2506133561"
-1788833735
Linux：
perl -e 'use integer; print 0^2506133561'
2506133561
浏览 0提问于2014-02-12得票数 3
1回答
给定一个File或Path目录对象，如何检查它是否是符号链接，以及如何将其解析为实际目录？
我尝试过File.getCannonicalFile()、Files.isSymbolicLink(Path)和许多其他方法，但它们似乎都不起作用。有趣的是，Files.isDirectory(Path)返回false，而Files.exists(Path)返回true。java是否将symlink视为文件而不是目录？
浏览 1提问于2015-02-07得票数 12
回答已采纳
1回答
我尝试使用dirent.h递归地列出我的本地文件系统。为了防止跟随sym链接，我使用了sys/stat.h头。在下面的代码中，您可以找到我的SSCCE程序。
/**
* coding: utf-8
*
* Copyright (C) 2013, Niklas Rosenstein
*
* listdir.c - List up directories and file-content recursively.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#inclu
浏览 18提问于2013-01-22得票数 0
回答已采纳
1回答
我希望在维护目录结构的同时，从多个文件夹生成符号链接。我读了几个答案，现在我能想到的最好的事情是：
find /data/DIV5/SASC/e042_ctcl/input/*/Clean_data/*/*/*.fq.gz -type f -exec ln -sf \{\} . \;
这将生成所有位于同一目录中的符号链接。但是，我想要的是拥有与find命令相同的目录结构，如果可能的话，使用相同的结构作为输入。例如：input/*/Clean_data/*/*/*.fq.gz
当文件和目录匹配时，符号链接应该遵循与使用find命令找到的绝对链接相同的结构。
如有任何意见，我们将不胜感激。
浏览 0提问于2014-06-10得票数 2
回答已采纳
我通常使用以下代码遍历文件中的行：
open my $fh, '<', $file or die "Could not open file $file for reading: $!\n";
while ( my $line = <$fh> ) {
...
}
但是，，编辑了我的答案，将我的while语句更改为：
while ( defined( my $line = <$fh> ) ) {
...
}
他的理由是，如果您有一行是0 (它必须是最后一行，否则它将有一个回车)，那么如果您使用my语句($line将被设置为
浏览 12提问于2010-09-23得票数 15
回答已采纳
我需要获取文件，逐行读取并搜索always_ff块。如果存在always_ff，则需要从找到的always_ff块中打印特定的行。
use strict;
use warnings;
for my $file ('*.sv')
{
open my $fh, "<", $file or die $!;
while (<$fh>) {
print scalar <$fh> if /begin/;
}
}
该档案有：
always_ff @(negedge clk )
begin
if
浏览 0提问于2019-02-14得票数 0
回答已采纳
我试图使用一个自动回复程序的其中一个用户。
当我在.forward文件中定义了用户电子邮件地址时，它工作得很好，但是当我把它放在脚本中时，它会产生以下错误：
Jun 28 12:25:38 localhost sendmail[5210]: s5SJPFkN005208: to="|/home/alpha/autoreply.pl", ctladdr=alpha@localhost (501/501), delay=00:00:10, xdelay=00:00:00, mailer=prog, pri=60446, dsn=5.0.0, stat=Service unavail
浏览 3提问于2014-06-28得票数 0
回答已采纳
2回答
我需要重命名我的Linux/Solaris机器中的许多目录和文件。有许多指向这些目录/文件的链接。
因此，首先我创建以下脚本来查找我想要重命名的所有目录(如DOMAIN.city.country、DOMAIN.type.country等)。以及他们的链接。
该脚本从info.file文件中获取节点的旧名称和新名称。每行中的第一个字段表示旧目录名，第二个字段表示新目录名。
文件find_and_recreate_link_to_new_dir.ksh
while read -r line ; do
[[ -z $line ]] && continue
name_old_di
浏览 2提问于2013-03-15得票数 1
回答已采纳
我如何翻转ord('a')的部分？我试过了，看上去是正确的，但我希望专家们能参与进来。注:这是一个ascii文本'a‘。
#! /usr/bin/env perl
use warnings;
use strict;
printf "0x%07b\n", ord('a');
printf "0x%07b\n", (~ord('a')) & (0x7f);
exit(0);
浏览 1提问于2020-04-01得票数 0
回答已采纳
这段C代码显示斐波那契数：
#include <stdio.h>
int main(){
for (long long int t, i=1, p=1, f=2; f>0 ; i++, t=f, f+=p, p=t)
printf("%lli: %lli\n", i, f);
}
正如预期的那样，它停止了，而不必硬编码迭代的次数。
Perl中的代码正在尝试使用相同的技术：
my $t;
my $p=1;
my $f=2;
for ($i=1; $f>0; $t=$f, $f+=$p, $p=$t, $i++){
print
浏览 0提问于2011-03-31得票数 1
回答已采纳
我不知道Perl，所以请耐心等待！这是生成错误的脚本中的一小部分：
if (-x '/usr/bin/gcc') {
$gcc = Fink::Services::enforce_gcc(<<GCC_MSG);
Under CURRENT_SYSTEM, Fink must be bootstrapped or updated with gcc
EXPECTED_GCC, however, you currently have gcc INSTALLED_GCC selected.
This typically is due to alter
浏览 0提问于2012-09-01得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
云直播活动推荐
腾讯云开发者
