小编neb*_*lus的帖子

如何获取正在运行的Perl脚本的名称

我怎样才能获得脚本的名称?

例如,我有一个名为Perl的脚本XXX.pl.该文件包含:

$name = #some function that obtains the script's own name
print $name;
Run Code Online (Sandbox Code Playgroud)

输出:

XXX.pl
Run Code Online (Sandbox Code Playgroud)

我想将其比作获取脚本目录的CWD函数.我需要一个获取脚本名称的函数.

perl

45
推荐指数
4
解决办法
8万
查看次数

如何删除数组的前五个元素?

@array = qw(one two three four five six seven eight);
<Some command here>
print @array;
Run Code Online (Sandbox Code Playgroud)

arrays perl list

21
推荐指数
3
解决办法
4万
查看次数

如何将哈希传递给子例程?

需要帮助搞清楚如何做到这一点.我的代码:

my %hash;
$hash{'1'}= {'Make' => 'Toyota','Color' => 'Red',};
$hash{'2'}= {'Make' => 'Ford','Color' => 'Blue',};
$hash{'3'}= {'Make' => 'Honda','Color' => 'Yellow',};


&printInfo(%hash);

sub printInfo{
   my (%hash) = %_;
   foreach my $key (keys %_{       
    my $a = $_{$key}{'Make'};   
    my $b = $_{$key}{'Color'};   
    print "$a $b\n";
    }
}
Run Code Online (Sandbox Code Playgroud)

perl hash subroutine

20
推荐指数
4
解决办法
4万
查看次数

如何将每个数组成员乘以perl中的标量?

这是代码......

use strict;
use warnings;

my @array= (1,2,3,4,5);
my $scalar= 5;

@array= $scalar*@array;

print @array;
Run Code Online (Sandbox Code Playgroud)

需要能够用很少的代码执行类似功能的东西.谢谢!

arrays perl scalar

9
推荐指数
5
解决办法
1万
查看次数

如何使用python解析json-object?

我试图解析一个json对象并遇到问题.

import json

record= '{"shirt":{"red":{"quanitity":100},"blue":{"quantity":10}},"pants":{"black":{"quantity":50}}}'
inventory = json.loads(record)
#HELP NEEDED HERE
for item in inventory:
    print item
Run Code Online (Sandbox Code Playgroud)

我可以弄清楚如何获得这些值.我可以得到钥匙.请帮忙.

python json

9
推荐指数
2
解决办法
4万
查看次数

每次对脚本进行更改时,都需要在终端中重新启动python

每次我对python脚本进行更改时,都必须重新加载python并重新导入模块.请告诉我如何修改我的脚本然后运行,而无需在终端重新启动python.

谢谢.

python

7
推荐指数
1
解决办法
1万
查看次数

如何使用perl正则表达式从'[1]'中提取数字值?

我的代码......

$option = "[1]";
if ($option =~ m/^\[\d\]$/) {print "Activated!"; $str=$1;}
Run Code Online (Sandbox Code Playgroud)

我需要一种方法从$ option中删除方括号.$ str = $ 1由于某种原因不起作用.请指教.

regex perl

4
推荐指数
2
解决办法
397
查看次数

如何使用perl按值对哈希值进行排序?

我有这个代码

use strict;
use warnings;

my %hash;
$hash{'1'}= {'Make' => 'Toyota','Color' => 'Red',};
$hash{'2'}= {'Make' => 'Ford','Color' => 'Blue',};
$hash{'3'}= {'Make' => 'Honda','Color' => 'Yellow',};

foreach my $key (keys %hash){       
  my $a = $hash{$key}{'Make'};   
  my $b = $hash{$key}{'Color'};   
  print "$a $b\n";
}
Run Code Online (Sandbox Code Playgroud)

这个出来了:

丰田红色本田黄色福特蓝色

需要帮助按Make排序.

sorting perl hash

4
推荐指数
1
解决办法
1万
查看次数

如何使用JQuery动态创建输入元素来实现keyup函数?

我无法弄清楚为什么以下代码不起作用. JSFIDDLE LINK

$(document).ready(function () {
    addInput();
});

var limit = 30;
function addInput() {
    var numberOfRows = $("#shipping tr").size();
    var id = numberOfRows;
    if (numberOfRows == limit) {
        alert("You have reached the limit of adding " + limit + " inputs");
    } else {
        $('#shipping').append('<tr id="rate' + id + '"></tr>');
        $('tr#rate' + id).append('<td></td>');
        $('tr#rate' + id).append('<td><input type="text" name="rate" /></td>');
    }
    $('input[name=rate]').on('keyup', 'input', function () {
        alert('YAY');
        return false;
    });
}
Run Code Online (Sandbox Code Playgroud)

我试图将keyup函数分配给我动态添加的输入.

预期产量:YAY!在弹出框内

请帮忙!

javascript jquery

4
推荐指数
1
解决办法
2043
查看次数

如何将UNIX路径转换为DOS路径

需要一个正则表达式或其他方法将UNIX路径转换为DOS路径.

我有

C:/My Document/Photo.gif
Run Code Online (Sandbox Code Playgroud)

需要

C:\My Document\Photo.gif
Run Code Online (Sandbox Code Playgroud)

unix perl dos

3
推荐指数
1
解决办法
6638
查看次数

标签 统计

perl ×7

arrays ×2

hash ×2

python ×2

dos ×1

javascript ×1

jquery ×1

json ×1

list ×1

regex ×1

scalar ×1

sorting ×1

subroutine ×1

unix ×1