小编Сух*_*й27的帖子

在perl中实现bash命令cd

我试图system("cd /home/user")在perl中实现一个bash命令,但是我得到一个错误说

Can't exec "cd": No such file or directory at temp.pl 
Run Code Online (Sandbox Code Playgroud)

有没有办法将当前工作目录更改为指定的工作目录,并且在perl脚本退出后仍然存在更改.

bash perl

0
推荐指数
1
解决办法
826
查看次数

perl在","上分割一个字符串

我试图从CSV文件中分割几百行,.例如:

"Acme services","Sesame street","zip","0,56","2013-10-21"  
"Black adder, intra-national Association","shaftsville rd","zap code","0,50","2014-10-14"  
Run Code Online (Sandbox Code Playgroud)

等等

我可以拆分第一行,,但这不适用于第二行.但是,如果我分裂,,那么我会陷入这些情况.然后我可以删除"使用简单的正则表达式(例如$col[i] =~ s/\"+//g)

我已经试过@cols = split(/\",\"/,$line)了,我已经试过split('","',$lines)各种变化,但每一次,我得到充分$line$col[0],与$cols[1:n]为空.

任何帮助将非常感激!谢谢.

regex perl split

0
推荐指数
1
解决办法
103
查看次数

找到数组中最小的缺失整数

我正在编写一个bash脚本,它需要在数组中搜索最小的可用整数并将其传递给变量.

我知道如何识别数组中的最小或最大整数,但我无法弄清楚如何识别'缺失'最小整数.

示例数组:

1
2
4
5
6
Run Code Online (Sandbox Code Playgroud)

在这个例子中,我需要3作为变量.

bash perl awk sed

0
推荐指数
1
解决办法
863
查看次数

从标准输入读取参数时出现意外行为

sub Solution{
    $matchflag=0;
    $occurence=0;

    #OUPTUT [uncomment & modify if required]
    my $ind=index($m,$p);


    if ($ind!=-1){
       $matchflag=1;
    }

    $occurence= () = $m =~ /$q/g;


    print("$matchflag\n");
    print($occurence);
}

#INPUT [uncomment & modify if required]
$n=<STDIN>;
$m=<STDIN>;
$p=<STDIN>;
$q=<STDIN>;


Solution();
Run Code Online (Sandbox Code Playgroud)

你好,有人可以告诉我这段代码有什么问题吗?它给了我以下输出。

6
naman
nam
n
0
1
Run Code Online (Sandbox Code Playgroud)

显然 0 应该是 1,因为 nam 存在于 naman 字符串中。并且 1 也应该是 2 因为 n 在字符串中出现两次。

这段代码有什么问题?

regex scripting perl

0
推荐指数
1
解决办法
91
查看次数

标签 统计

perl ×4

bash ×2

regex ×2

awk ×1

scripting ×1

sed ×1

split ×1