我有一个包含两个值的数组,如果输入不在该数组中,则需要执行一些操作.
我尝试过
if ($a ne ('value1' || 'value2')
if (($a ne 'value1' ) || ($a ne 'value2' ))
这两种方法都不起作用.有人可以帮忙吗？
我有一种情况,我想根据一个相当简单的测试调用两个子程序之一,但参数列表非常复杂.这似乎是使用三元运算符最容易阅读并在C中工作正常,但perl等价物正在逃避我.
代码是这样的
$res = ($d eq 'something' ? \func1 : \func2)(parameters);
但perl对)(序列非常不满,对于我的生活,我无法弄清楚要放在那里的东西
实际上我有一个想法,但要做到这一点,我需要你的帮助.告诉我有没有办法在perl脚本中创建一个库？我的意思是在perl中创建库的命令是什么？我如何在我的c程序中包含该库并运行它？我在某处读到你可以在你的c程序中嵌入你的perl脚本但是我怎么能创建呢？我想用perl脚本在字符串上创建一个特殊的库并在我的c程序中使用它.帮助我们.谢谢.
my $search = "Sony's";
my $string = "in TV sony's walkman";
如何sony's在$string使用正则表达式时得到" " 匹配.
当我写小程序或oneliners时,我无法使用say.我总是需要把:
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
在oneliners我可以简单地做,perl -E "say 'toto'"但在常规程序中我不知道该怎么做...
任何的想法？
阅读代码，我发现：
use File::Path;
mkpath($hinitdir) unless -d $hinitdir;
mkpath($hrestdir) unless -d $hrestdir;
那么，该选项的含义是-d什么？
我有一个大数组，我想按字母顺序对数组的所有元素进行排序。
在前面的子程序中，数组的元素被推送到 tc_reg 数组。
我有一个名为@tc_lane 的数组。当我打印数组的元素时，它看起来像这样
tx0_abc
rx0_fgw
ref_ghv
..
现在我想像这样对这个数组进行排序，
ref_ghv
rx0_fgw
tx_abc
..
这是我的代码:
for($i=1;$i<=100;$i++){
if($i%15==0) print "Divisible by 15";
else if($i%5==0) print "Divisible by 5";
else print ($i%3==0)? "Divisible by 3":$i;
print "\n";
}
它是一个非常简单的代码.我使用Java工作,虽然它在Perl中出错.错误是:
syntax error at line 2, near ") print"
Execution aborted due to compilation errors.
我是Perl的新手.我怎样才能让它运转起来？