我有一个庞大的Perl脚本(超过1500行)需要大约8个小时才能运行.
它从HTML生成SQL,然后导入到网站中.基本上它将整个论坛逆向工程化为一个新的论坛(我已获得许可).
该脚本在每次解析未经过多年改变的HTML时从头开始运行,然后将其作为哈希数组存储在内存中,直到所有HTML都被解析,生成SQL.
我希望将上次结果预先加载到内存中然后只处理更改,但是如何才能完成？
那里:我是Perl的新手,并且遇到了字符串连接问题.我有两个字符串:
my $string1 = "hello\U\Q \t\n\f\b\aWorld" . "\n" . "\E";
my $string2 = "hello\U\Q \t\n\f\b\aWorld\n\E";
它们看起来和我一样,直到我打印出来.
$string1看起来像这样:
hello\ \ \
\
\WORLD
和一个铃声.
$string2 就是这个:
hello\ \ \
\
\WORLD\
带有相同的铃声,尾部有反斜杠.
为什么$string2在结尾处得到反斜杠但$string1不是？
我是Perl的新手,我正在编写一个脚本来从数据库中获取一些行:
my @rows = $conn->fetchrow_array(1,2,3);
结果将是三行单列.
12345
56789
12376
我应该如何将他们加在一起呢 12345,56789,56789
我试过了,
my $list = join ",", @rows.
结果: ARRAY(0x14f6de0),ARRAY(0x1508a90),ARRAY(0x15014c0)
通过foreach循环只需用新行打印结果:
12345
56789
12376
我究竟做错了什么 ？我有fetchrow_array错误的概念吗？
我有一个吐出html页面的perl.我想使用jquery操作html页面.我已将所有jquery代码放入字符串并将该字符串放入其中
<script type='javascript'> code </script>
块.但是当我执行perl时,我的所有$符号都被转换为2918 1174 2918.所以如果我的代码$(".className")现在我得到了2918 1174 2918(".className")
有人可以指导我吗？我的代码如下:
my $str = "<html><head><script type='text/javascript' src='js/top5jquery-1.6.2.min.js'>";
$str .="<script type='text/javascript'>$('.submitButton').click(function(){ alert('clicked submit button'); });";
$str .="</head><body><input type='submit' value='submit' />Submitting</body></html>";
my $file_name = "/mainDirectory/myfile";
my $fh;
open ($fh, "> $file_name") or die "Can not open $file_name to write";
print $fh $str;
close($fh);
我在Perl中有以下数据序列:
143:0.0209090909090909
270:0.0909090909090909
32:0.0779090909090909
326:0.3009090909090909
请问,我怎样才能根据冒号前的数字对它们进行排序,以此作为输出？
32:0.0779090909090909
143:0.0209090909090909
270:0.0909090909090909
326:0.3009090909090909
如何使用perl运行可执行文件？
例如,我想运行一个普通的notepad.exe.我怎么能实现这个目标？
这就是我所拥有的:
my @args = system("notepad.exe");
system(@args) == 0 or die "system @args failed: $?";
但它返回:
Can't spawn "cmd.exe": No such file or directory blah blah blah.
我错过了什么？
我在字符串中有一个日期$str1="20120704".我想从该日期减去1天,并将日期值存储为字符串$str2.我该怎么做？
给定一个描述亲子关系名字和姓氏的 csv
$ cat /var/tmp/hier
F2 L2,F1 L1
F3 L3,F1 L1
F4 L4,F2 L2
F5 L5,F2 L2
F6 L6,F3 L3
我想打印：
F1 L1
F2 L2
F4 L4
F5 L5
F3 L3
F6 L6
我写了一个如下所示的脚本：
#!/bin/bash
print_node() {
echo "awk -F, '\$2=="\"$@\"" {print \$1}' /var/tmp/hier"
for node in `eval "awk -F, '\$2=="\"$@\"" {print \$1}' /var/tmp/hier"`
do
echo -e "\t"$node
print_node "$node"
done
}
print_node "$1"
运行脚本：
$ ./print_tree.sh "F1 L1"
awk -F, '$2=="F1 L1" {print $1}' /var/tmp/hier
awk: syntax error near …我希望获得特定数字排列的非零系数.我有低于设定号码和我希望与正则表达式来严格提取非零系数(x2,x3,x5从)
x1 *0.000000+ x2 *-0.100000+ x3 *0.850000+ x4 *0.000000+ x5 *0.000056+ x6 *0.000000
我试过这样做
(\*[-+]?[0]*\.?[0]+)
但我不确定是否要宣布它不应该考虑 "*0.000000"
我有这个字符串
my $word = "Chase_^%798(987%55,.#*&^*&Chase_$&^**&(()%%hjjlhh";
期望的输出是
Chase_^%798(987%55,.#*&^*& Chase_$&^**&(()%%hjjlhh
字符串"Chase_"是我应该将它们分开的唯一线索.使用split我失去了字符串"Chase_".然后我应该连接它们.我对如何分割它没有任何想法,但也"Chase_"应该存在字符串