为什么 Perl 认为“0 but true”是一个数字？
这个问题涉及到编程语言Perl中的数字和布尔值的处理。在Perl中，数字和布尔值是两种不同的数据类型，但是它们之间有一些相互转换的规则。
在Perl中，0被视为一个特殊的数字，称为“false”。这意味着它在布尔上下文中被视为假，例如在if语句中。但是，如果Perl试图将0作为一个数字来使用，例如在算术运算中，它将被视为0。
当Perl试图将一个数字转换为布尔值时，它使用的规则是，如果数字为0，则返回false，否则返回true。因此，当Perl将数字0转换为布尔值时，它返回的是true。这就是为什么Perl认为“0 but true”是一个数字的原因。
这种转换规则可能会导致一些意外的行为，因此在编写Perl代码时需要注意这些规则。如果需要将数字转换为布尔值，可以使用特殊的函数，例如“!!”来实现。
相关·内容
我已经更新了这个问题，正如在最初的问题中，我所追求的问题被证明是一个完全不同的错误(在这个上下文中不感兴趣)。但是，我在测试中犯的第二个错误是其他人可能会遇到的问题，并以非常有趣的洞察力给出了答案，所以我将这个问题放在这里。
我试图找出正则表达式由于前导零而不匹配的问题。我发现在命令行测试中，以下所有regexp都不匹配：
"005630" =~ /^0056(10|11|15|20|21|25|30|31)$/
"005630" =~ /0056(10|11|15|20|21|25|30|31)/
"005630" =~ /56(10|11
浏览 3提问于2012-11-22得票数 4
回答已采纳
Perl对任何以数字开头的字符串进行数值计算(在警告它不是数字之后)是真的吗？
我试图了解各种比较操作符是如何工作的。我编写了一个脚本来输出各种真或假结果，如下所示。(我的问题是在之后提出的。)
(在我的帖子中，我把花括号浓缩成单行，以节省空间，或许可以让人更容易阅读。)
这是我向StackOverflow提出的第一个问题，如果我能改进我的问题是如何被问到的，或者问到哪里，请告诉我。)
#!/usr/bin/perl -w
#compOpers-mathyIn_TF.pl
use strict;
print "Enter expression to compare.\n";
浏览 0提问于2020-06-27得票数 2
我想在向量上找到一个元素，它有一个'，而不是一个空格。
我在不同的来源发现：
( \b或\s代表空白\S除了空格^应该是除以外的所有东西)
为什么这些不能产生预期的结果？考虑到/S是除了一个空格之外的所有东西，^\s的意思应该是相同的.
grepl(',[^\b]', c('a,', 'b, ', 'c,')) # output: FALSE TRUE FALSE expected: TRUE FALSE TRUE
gsub(',[^\b]', 'here', c('a,'
浏览 5提问于2021-08-24得票数 1
回答已采纳
在标量(布尔)上下文中计算表达式时，如果表达式的计算结果为true，则Perl使用显式值1作为结果，如果表达式的计算结果为false，则使用空字符串。我很好奇为什么Perl使用空字符串来表示布尔值，而不是0，后者看起来更直观。
请注意，我并不关心Perl在标量(布尔)上下文中将空字符串视为false。
编辑
使用为真的字符串(例如"false")作为假值的字符串表示将如何改变现有代码的含义？我们是否可以说，在这样的更改之后更改语义的代码比它本来应该具有的健壮性/正确性更差？我猜字符串上下文在Perl中是如此普遍，以至于导致合理语义的唯一选择是布尔值在字符串之间来回传递后保持其值
浏览 2提问于2010-10-12得票数 18
回答已采纳
最近，我开始为我的新工作学习Perl，我对'0' (0-string)是假的感到好奇。
我读到过，这种特殊的行为就是为什么Perl必须使用<>操作符来读取文件的原因，所以我现在觉得这更像是一个设计缺陷。然而，我也知道Perl是一种成熟的语言，我猜这种行为有它的用处，否则它早就被修复了。
那么在什么情况下'0' = false是有用的呢？
浏览 3提问于2013-01-09得票数 8
回答已采纳
有人能解释一下为什么这段代码不起作用吗？我希望nums字符向量输出"4.4“5.0”，但我得到了一条错误消息。是关于do.call()的。
除了知道为什么要这样做之外，还可以有人提供一种更简单的方法，将"5“转换为"5.0”，但保留其他数字。请记住，我实际上有很多数字，所以像nums[3] <- "5.0"这样的东西就没有用了。
y <- 0
nums <- c("4.4", "", "5")
for(x in nums){
y <- 0 + 1
if(nchar(x)
浏览 1提问于2019-02-22得票数 1
回答已采纳
我在玩Rakudo Star 2015.09。
如果我试图用前导零对整数进行字符串化，编译器将发出警告：
> say (~01234).WHAT
Potential difficulties:
Leading 0 does not indicate octal in Perl 6.
Please use 0o123 if you mean that.
at <unknown file>:1
------> say (~0123<HERE>).WHAT
(Str)
我想也许我可以通过将整数值赋值给一个变量来帮助编译器，但是得到了
浏览 0提问于2016-01-10得票数 8
回答已采纳
sub is_integer {
defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}
sub is_float {
defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/;
}
对于上面提到的代码，如果我们将输入作为999999999999999999999999999999999999999999，它就会将输出作为非实数。
为什么会这样呢？
我忘了再提一件事：
如果我使用$x的代码作为上面的值：
if($x > 0 || $x <= 0 ) {
print "
浏览 0提问于2009-09-08得票数 2
3回答
我试图弄清楚如何从一个包含一个十进制数的文件中读取一个时间戳，但是我似乎无法得到我想要的输出，任何帮助都是很棒的！提前谢谢。
示例：
[Time since reference or first frame: 691.933275000 seconds]
[Time since reference or first frame: 691.953127000 seconds]
[Time since reference or first frame: 691.992275000 seconds]
[Time since reference or first frame: 691.99759000
浏览 0提问于2015-09-20得票数 0
回答已采纳
2回答
为什么第一个示例没有输出警告？
#!/usr/bin/env perl
use warnings;
use 5.012;
my $c = "9\n";
say $c * 2;
my $d = "6a";
say $d * 2;
# 18
# Argument "6a" isn't numeric in multiplication (*) at ./perl8.pl line 9.
# 12
浏览 2提问于2011-03-09得票数 2
回答已采纳
Guys perl不是那么简单，我认为它是如此令人困惑的事情，我只是转移到运算符，我写了一些代码，但我无法弄清楚编译器是如何处理它们的。
$in = "42" ;
$out = "56"+32+"good";
print $out,;
上面代码的输出是88，好的东西都到哪里去了？现在让我们看看另一个。
$in ="42";
$out="good52"+32;
print $out ;
对于这些，输出是32。问题是，我们刚刚存储在$out中的good和值52之间的值去了哪里?为什么编译器只将值打印为32，而不
浏览 0提问于2011-06-29得票数 1
回答已采纳
我对perl中的比较表达式的值感到非常困惑：
print "why... ",1>2, "\n";
我得到以下结果：
why...
那么，为什么"1>2“的结果是空的呢？这本书告诉我"$a>$b“是0或1。
浏览 9提问于2017-05-26得票数 1
回答已采纳
7回答
这是一段常见的示例代码：
while (1) {
print "foo\n";
}
永远打印“foo”。
perl foo.pl
foo
foo
foo
...
和
while (0) { print "foo\n"; }
如你所料静悄悄地死去：
perl test.pl
有人能解释一下为什么这是while的一个有用的实现吗？这至少适用于5.10、Unix和MacOS X：
while (-1) { print "foo\n"; }
这给了我们
foo
foo
foo
...
浏览 2提问于2011-10-04得票数 12
回答已采纳
4回答
嗨，我碰巧遇到了我朋友寄给我的代码，我在读打印声明的第二部分时遇到了困难。a[3]是4，它位于第2列(b[0][2])第0行，但是为什么a[2]是53，证明了b[2][1] == 43是正确的？(代码打印“true”，顺便说一下。)
class Ex1{
public static void main(String[] args) {
int a[] = { 1,2,053,4};
int b[][] = { {1,2,4} , {2,2,1},{0,43,2}};
System.out.print(a[3]==b[0][2]
浏览 0提问于2014-02-11得票数 4
回答已采纳
\\b表示一个单词边界。我不明白为什么这个操作符有不同的效果取决于后面的字符。示例：
test1 <- 'aland islands'
test2 <- 'åland islands'
regex1 <- "[å|a]land islands"
regex2 <- "\\b[å|a]land islands"
grepl(regex1, test1, perl = TRUE)
[1] TRUE
grepl(regex2, test1, perl = TRUE)
[1] TRUE
grepl(regex
浏览 0提问于2018-07-22得票数 3
回答已采纳
1回答
set.seed(1)
example <- paste0(
c("A","B")[sample(1:2,size = 100,replace = TRUE)],
sample(1:9999,100,replace=TRUE),
c("A","B","C")[sample(1:3,size = 100,replace = TRUE)],
sample(1:12,100,replace=TRUE)
)
strsplit(
sub(pattern = "^(A|B)([0-9]{1
浏览 4提问于2021-04-22得票数 0
回答已采纳
PHP：
$a = "0";
$b = "00";
var_dump(empty($a)); # True (wtf?)
var_dump($a == $b); # True... WTF???
var_dump(empty($b)); # False WWWTTTFFFF!!??
我已经看过医生了。但是，文档并没有解释为什么是这样设计的，。我不是在找解决办法(我已经知道了)，我在找一个解释。
为什么是这样？这能让某些事情变得更容易吗？
浏览 2提问于2009-09-14得票数 3
回答已采纳
$a="";
$b="n";
$c = !$a;
$d = !$b;
print $c , "\n" , $d;
if($d == 0){
print "zero";
}
我编写了这个perl程序，我希望输出如下
1
0Zero
但它印出来了
1
zero
有人能解释一下为什么会这样吗？
浏览 4提问于2014-03-28得票数 4
回答已采纳
鉴于这一方案：
#!/bin/env perl6
sub MAIN ($filename='test.fq', :$seed=floor(now) )
{
say "Seed is $seed";
}
当我在没有任何命令行参数的情况下运行它时，它可以正常工作。但是，当我为seed提供命令行参数时，它会说它的值是True
./seed.p6 --seed 1234
Seed is True
为什么数字1234被解释为布尔值？
浏览 2提问于2015-04-29得票数 4
回答已采纳
print !$num;
当$num为1时，我期望看到0。但是，什么都没有打印出来。为什么会这样呢？感谢您的评论。
下面是我尝试过的一些测试。这与我的问题是一致的。
print 1; # 1
print 0; # 0
print !1; # (nothing)
print !0; # 1
print !1 == 0; # 1
迈克尔
浏览 0提问于2014-09-25得票数 2
2回答
我的任务是将用perl编写的密码函数转换为php代码。一切正常，除了这个：
Perl：
$wert = Encode::encode( "utf8", $wert );
$len=length $wert;
$pad = ($len % 16)?"0".chr(16 - ($len % 16)):"10";
$fuell = pack( "H*", $pad x (16 - $len % 16));
PHP：
$wert = utf8_encode($wert);
$len = mb_strlen($wert);
$pad = (
浏览 8提问于2009-11-23得票数 3
回答已采纳
我有用Perl编写的，很少有对象，比如这个：
package PlayingTable;
our (%Games, $Num);
sub new {
my $pkg = shift;
my $game = {
ID => ++$Num,
PHASE => WAITING,
KIBITZERS => [],
PLAYERS => [],
INFO
浏览 2提问于2011-06-15得票数 4
回答已采纳
1回答
当阶乘递归达到零时发生错误
、、、、
为什么下面的递归阶乘在Perl中失败，即使它在C++和Java中工作？
爪哇：
public static long factorial(int n) {
if (n == 0) {
return 1;
} else {
return factorial(n-1) * n;
}
}
C++：
long factorial(int n) {
if (n == 0)
return 1;
else
return n * factorial(n-1);
}
但是这个在Perl (use Carp;)中失败了：
sub factorial {
浏览 3提问于2017-02-23得票数 1
回答已采纳
我正在尝试通过C#代码运行一个perl脚本。perl脚本接受一个文本文件作为输入，并创建两个新文件作为输出(在两者之间执行一些文本处理)。当我使用下面的代码通过C#运行perl脚本时，它似乎开始执行，但没有创建任何文件。有什么问题吗？语法错误？
ProcessStartInfo perlStartInfo = new ProcessStartInfo(@"c:\Perl\bin\perl.exe");
perlStartInfo.Arguments = "c:\\Perl\\DOC-MAT.pl " + "c:\\Perl
浏览 0提问于2012-02-13得票数 1
回答已采纳
4回答
使用Perl拆分浮点数
、、、
为什么我不能精确地使用split？我的目标是只得到分数的部分，全部。
$a = 123456789.123456789;
@b = split(/\./, $a);
$baseDec = "." . $b[1];
上面给出了$baseDec == .123457
但是这给出了正确的精度:这是正确的方法吗？校正:这给了同样糟糕的精度！我没有正确地测试代码。对不起！
$a = 123456789.123456789;
@b = split(/\./, $a);
$baseInt = $b[0];
$baseDec = $a - $baseInt;
我是否应该使用数学：：大浮空？
编
浏览 4提问于2015-01-08得票数 5
回答已采纳
13回答
有人能解释一下字符串"0但true“在Perl中到底是什么意思吗？据我所知，它在整数比较中等于零，但用作布尔值时，它的计算结果为true。这是正确的吗？这是语言的正常行为还是在解释器中被视为特殊情况的特殊字符串？
浏览 1提问于2008-09-24得票数 61
回答已采纳
3回答
我在Perl中有一个程序，它可以处理偶尔非常小的概率。由于舍入误差，有时其中一个概率为零。我想对以下内容进行检查：
use constant TINY_FLOAT => 1e-200;
my $prob = calculate_prob();
if ( $prob == 0 ) {
$prob = TINY_FLOAT;
}
这可以很好地工作，但我实际上看到Perl生成的数字小于1e-200 (我刚刚看到一个8.14e-314飞过)。对于我的应用程序，我可以更改calculate_prob()，使其返回TINY_FLOAT的最大值和实际概率，但这让我对Perl语言中如何处理浮点数
浏览 0提问于2009-08-01得票数 4
回答已采纳
我希望将行的第n个字符替换为“.”，n与行相关，并且可以在行本身上提供，例如，示例文件可以如下所示：
$cat test
0 ABCD
1 ABCD
2 ABCD
所需的输出是
0 .BCD
1 A.CD
2 AB.D
3 ABC.
我尝试捕获数字并在{}内使用\1，但它不起作用：
$ cat test | perl -pe 's/([0-9]) ([A-Z]{\1})./\1 \2./'
0 ABCD
1 ABCD
2 ABCD
而使用{}内的正常数字则会得到所需的输出：
$ cat test | perl -pe 's/([0-9]) ([A-Z]{2})./\1
浏览 3提问于2022-04-21得票数 2
回答已采纳
我在Perl中尝试了这个示例。有人能解释一下为什么这是真的吗？
if (defined sdf) { print "true"; }
它打印true。
sdf可以是任何名称。
此外，如果定义了sdf函数并且返回0，则不会打印任何内容。
print (sdf);不打印sdf字符串，但
if (sdf eq "sdf")
{
print "true";
}
打印为true。
如果sdf是一个字符串，那么相关的问题仍然存在。什么东西不是打印出来的？
浏览 7提问于2009-10-30得票数 3
回答已采纳
2回答
如果我在substr中使用了一个大整数：
use BigInt;
$acct_hash = substr(('99999999999912345' + $data[1]),0,15);
为什么结果仍然是9.9999999999912
我在等999999999999912呢。有没有类似这样的东西：
$data[1] = substr(to_char('999999999999991234'),0,15);
在Perl中？
浏览 1提问于2009-05-08得票数 1
下面是我的十进制变量：
my $variable = 1.0;
当我尝试打印变量时，
print "$variable\n";
我得了1.0分。
但是，如果我将其传递给一个函数：
&printvariable("$variable\n");
sub printvariable()
{
print "My variable is: @_";
}
现在，它打印为，My variable is: 1
为什么这个十进制值在函数中四舍五入？有没有办法把函数中的值也打印出来？
浏览 2提问于2013-03-28得票数 0
回答已采纳
2回答
我想弄清楚为什么每次都会打印“多数元素”候选人。
我一直试图使其工作的代码是多数元素搜索(查找重复列表长度一半以上的元素)。
我无法将寻找候选对象和根据数组进行测试的过程分开，因为我的输入是一个文本文件，其数组数量不确定。这是一个来自的练习，每次你试图解决这个问题时，它都有不同的输入。
输入的一个例子是
-5 5 5 5 5 5 5 5 -8 7 7 7 1 7 3 7 -7 1 6 5 10 100 1000 1 -5 1 6 7 1 1 10 1
到目前为止我写的都是这样的。
foreach my $currentrow (@lists) {
my @row = ();
浏览 8提问于2016-03-13得票数 0
回答已采纳
我在Python的subprocess.call()和os.system()之间发现了一些奇怪的行为差异，它们似乎与setgid有关。不同之处在于在使用subprocess.call()时会调用Perl的污染检查，这会产生问题，因为我无法修改需要添加未污染代码的所有Perl脚本。
示例："process.py“
#!/usr/bin/python
import os, subprocess
print "Python calling os.system"
os.system('perl subprocess.pl true')
print "
浏览 1提问于2009-06-02得票数 2
回答已采纳
我想拆分一个字符串，并保持它被拆分的位置。 str = 'Glenn: $53 Sutter: $44'
strsplit(str, '[0-9]\\s+[A-Z]', perl = TRUE)
# [[1]]
# [1] "Glenn: $5" "utter: $44" ## taking out what was matched
strsplit(str, '(?=[0-9]\\s+[A-Z])', perl = TRUE)
# [[1]]
# [1] "Glenn: $5" &#
浏览 23提问于2020-04-02得票数 2
回答已采纳
say pack "A*", "asdf"; # Prints "asdf"
say pack "s", 0x41 * 256 + 0x42; # Prints "BA" (0x41 = 'A', 0x42 = 'B')
第一行是有意义的:您正在接受ASCII编码的字符串，将其打包成一个字符串作为ASCII字符串。在第二行中，包装形式是"\x42\x41“，因为在我的机器上，短整数的端点很小。
然而，我无法摆脱这样一种感觉，即我应该能够将第二行中的打包字符
浏览 8提问于2013-10-17得票数 5
回答已采纳
1回答
我一直在试图理解在下面提到的代码中到底发生了什么。但我无法理解。
$mode = (stat($filename))[2];
printf "Permissions are %04o\n", $mode & 07777;
让我们假设我的$mode值是33188
$mode & 07777产生一个值= 420
$mode值是十进制数吗？
为什么我们要选择07777，为什么我们要按位操作。我无法理解这里的逻辑。
浏览 5提问于2013-02-24得票数 26
回答已采纳
作为一个初学者，我编写了这个程序。需要澄清一些事情！为什么我不能在下面给出的for循环中使用"le“，但我可以在"if条件”中使用它。这背后的原因是什么？？
print "Type the number upto series should run\n";
my $var;
$var = int<STDIN>;
chomp $var;
my ($i, $t);
my $x = 0;
my $y = 1;
if($var eq 1) {
print "\nYour Series is : $x\n";
} elsif($var
浏览 0提问于2013-05-03得票数 1
回答已采纳
我正在使用Perl将一些XML转换为JSON。如果XML属性是一个数字，我不想用引号将其括起来，这样JSON就会将其视为数字而不是字符串。如何判断Perl字符串是否为数字(仅包含数字0到9，可能还包含一个小数点)？
浏览 0提问于2009-07-11得票数 11
回答已采纳
2回答
在csv文件中查找换行符
、、、
我知道这方面有很多问题(最新的一个.)，但几乎所有的问题都是如何将这些中断的行从csv文件中连接到一行或删除它们。我不想删除，但我只想显示/找到这一行(或者可能是行号？)
示例数据：
22224,across,some,text,0,,,4 etc
33448,more,text,1,,3,,,4 etc
abcde,text,number,444444,0,1,,,, etc
358890,more
,text,here,44,,,, etc
abcdefg,textds3,numberss,413,0,,,,, etc
985678,93838,text,,,,
,text,continu
浏览 2提问于2017-10-20得票数 0
回答已采纳
我有一个代码，我想从命令行用perl的-e选项进行调试。(确切地说，来自Mac终端)
当我调用这样的子程序时，我忘了正确匹配双引号，有点像这样：
perl -e "print lc "Hello-World\n""
#Output: 0
我很惊讶地看到了0，但是在仔细看了看之后，我发现我的双引号有问题。毫不奇怪，使用外部单引号可以解决这个问题。
perl -e 'print lc "Hello-World\n"'
# Output(fixed): hello-world
现在我看到了问题所在，我很好奇地看到它从一开始就返回了0。看
浏览 1提问于2018-10-15得票数 3
回答已采纳
我使用printf来格式化输出。但我无法正确地格式化它。有人能帮我指出下面这段代码有什么问题吗？
my $sql1 = "select col1,col2,col3 from MYTABLE order by 1";
my $sth = $dbh->prepare($sql1);
$sth->execute(); # or die $DBI::errstr;
my $resultref = $sth->fetchall_arrayref();
foreach (@$resultref) {
print "\n $_->[0] $_-&
浏览 1提问于2015-04-08得票数 1
回答已采纳
3回答
Perl中有没有什么变化，或者一直都是这样，像第二个($number eq 'a')这样的例子不会抛出警告？
#!/usr/bin/env perl
use warnings;
use 5.12.0;
my $string = 'l';
if ($string == 0) {};
my $number = 1;
if ($number eq 'a') {};
# Argument "l" isn't numeric in numeric eq (==) at ./perl.pl line 6.
浏览 0提问于2012-05-25得票数 3
回答已采纳
我知道规则：
如果这两个操作数不是相同的类型，则JavaScript转换操作数，然后应用严格的比较。如果任一操作数是数字或布尔值，则在可能的情况下将操作数转换为数字；如果任一操作数是字符串，则另一个操作数将尽可能转换为字符串。
因此，if("true")通过了，但是if("true" == true)失败了，因为它的句柄类似于if(NaN == 1)。
我想知道，当一个值是布尔值时，rational背后是什么。在其他弱类型语言(如php )中，这是不同的处理方式--如果一个值是布尔值，则另一个值被转换为布尔值以进行比较(而不是像javascript中那样
浏览 7提问于2013-01-06得票数 7
回答已采纳
我正在写shell脚本，我想得到ping结果，所以我写了这样的代码：
ping_res=`ping -c 5 $ADMIN_GW -I $SRIOV_BOND | grep loss | awk '{print $6}' | awk -F "%" '{print $1}'`
大多数PC得到这样的结果：'100'，一些PC得到这样的结果：'+5‘。所以我像这样运行命令来检查原因：
ping_res=`ping -c 5 $ADMIN_GW -I $SRIOV_BOND | grep loss`
我得到了不同的结果，一个是：
浏览 0提问于2017-10-09得票数 0
我在一个文件中有几个不同格式的数字: 8.3，0.001，9e-18。我正在寻找一种简单的方法来读取和存储它们，而不会损失任何精度。这在AWK中很容易，但是在Perl中如何做到呢？我只对使用Perl开放。谢谢!
另外，我想知道是否有一种简单的方法可以将它们打印成合适的格式。例如，8.3应打印为"8.3“而不是"8.3e0”
浏览 1提问于2012-04-23得票数 2
回答已采纳
我尝试在:或;之后和;之前提取一个字符串，如果存在第二个标点符号，则删除;之后的所有内容。目标结果是一个数字。
当前代码可以在:和;之间或:之后执行，但不能单独处理;或:。
另外，gsub(|(OF 100); SEE NOTE)不工作，我不确定为什么初始的:没有被排除，而需要gsub。
test<-c("Score (ABC): 2 (of 100); see note","Amount of ABC; 30%","Presence of ABC: negative","ABC not tested")
#works f
浏览 1提问于2019-04-13得票数 0
因此，我知道您可以编写Perl一行程序，它使用非默认记录分隔符读取记录，其选项如下
perl -064 -ne '#... delimited by @'
或者一行中的整个文件：
perl -0777 -ne '#... file at once'
我还知道，如果以编程方式将记录分隔符$\设置为对数字的引用，则可以读取固定宽度的记录。
perl -ne '$/ = \10; #... 10 chars at a time'
但是，我找不到任何使用-0选项读取固定宽度记录的方法。这个是可能的吗？
浏览 1提问于2018-12-05得票数 5
回答已采纳
3回答
我试图做一个非常简单的任务，在任何其他语言中对我来说都是微不足道的，我无法在R中实现这一点。
我要IP的前3部分。因此，192.168.0.1变成了192.168.0。我该怎么做？
我试过regex路线..。
grep('[0-9]+\\.[0-9]+\\.[0-9]+\\.', '192.168.0.1', value = TRUE)
不过，这给了我完整的IP地址。
我尝试了一个函数，然后我可以在我的IP列表上应用.
ip_start <- function(ip) {
if (is.na(ip) | ip == '' | ip ==
浏览 3提问于2015-03-17得票数 3
回答已采纳
我有一个用perl编写的简单脚本，当我试图运行时，我一直得到这个特定的错误。该脚本用于生成一些数字，用于将整数检查为浮点数。这是我遇到的特别错误。
Can't use an undefined value as an ARRAY reference at /tools/oss/packages/i86pc-5.10/perl/5.8.8-32/lib/5.8.8/Math/BigInt/Calc.pm line 1180
从错误消息中找出我的代码哪里出错了。顺便说一下，我需要使用64位数字。如何调试此问题？
下面是代码示例
use bignum;
use warnings;
use s
浏览 5提问于2015-02-06得票数 0
回答已采纳
为什么exit(65280)会在退出状态为0时导致Perl退出？
perl -e 'exit(65280)'
echo $? # returns 0
浏览 0提问于2015-08-30得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
