小编Man*_*nde的帖子

我想从"my_perl.pl"调用"env.sh"而不需要子shell.我尝试了这样的backtics和系统 - > system (. env.sh)[dot space env.sh],但不会工作.

我想知道"反设计".请推荐一本反设计模式的电子书.

什么时候我们应该使用"使用"和何时"需要"以及何时使用"AUTOLOAD" perl？我需要一个拇指规则.

如何在wget中使用wild字符？例如wget http://abc.com/programs/*.cpp

谢谢

如何使用perl将文本插入带引号的mysql中？插入包含'&"的文本似乎很困难.我使用的是Perl DBI模块,DB是mysql.

更新:

这是我的查询

my $s = "INSERT INTO comment(guid,review_id) VALUES ('$guid','$review_id')";

我正在为以下命令寻找其他替代方案/更智能的1个衬管,它应该为所请求的列号添加一个值.我尝试按照以下sed命令正常工作,将值4添加到第4列.[需要:因为我有这样的文件,其中包含1000条记录,很多次我需要在任何位置添加一列.]我的approch仅适用于较小规模.

cat 1.txt

1|2|3|5
1|2|3|5
1|2|3|5
1|2|3|5

sed -i 's/1|2|3|/1|2|3|4|/g' 1.txt

cat 1.txt

1|2|3|4|5
1|2|3|4|5
1|2|3|4|5
1|2|3|4|5

thansk提前.

我正在尝试制作一个脚本来总结包含以下短格式日志的文件。

日志片段：

$ cat input.txt
ffffff     1301 2012-08-29T03:13:33 clr         crit
Some serious problem
cccc                            dddddd        eeeeee
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Some serious problem in system.

ffffff     1302 2012-08-29T03:13:33 set         min
Some serious problem
cccc                            dddddd        eeeeee
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Some minor problem in system. 

期望的输出：

2012-08-29T03:13:33 clr crit Some serious problem in system.
2012-08-29T03:13:33 set min Some minor problem in system. 

我尝试了以下方法：

$ cat input.txt | grep -iE "set|upd|clr" | awk '{print $3,$4,$5}' >file1
12-08-29T03:13:33  clr crit
12-08-29T03:13:33  set min

下面的命令给了我模式 "T" 的第 …

我正在寻找一个衬里,它将删除python中文件中的所有空行.python相当于 - >grep -v '^$' file_name > file_name

如何在Perl中解析.pdf文件？perl是更有效还是我应该使用任何其他语言？

我试过boto api,似乎没有api可以获得已经在飞行中的消息号码？有没有人给我一个如何获得这个号码的提示？