perl中的变量传递给cat命令好像的文本内容都给当成命令执行了，各位大侠帮忙，多谢！

cctv_ming

#!/usr/bin/perl

$SMS_HOME="/home/***/***/logs";

open(SMSHANDEL,"cat $SMS_HOME/sms.log|grep SmsSenderService|grep msgContent|"||die "Can't open sms.log!";

@list = <SMSHANDEL>;

foreach $line (@list)
{
my $line1=system("cat $line|awk -F';' '{print \$6}'|cut -c13-";
print "$line1";

}


close(SMSHANDEL);

兰花仙子

1. msgContent|" 此处明显输入错误。
2. 在perl里这样grep，丑陋而低效。

xti9er

要知道 用perl执行命令的 方法之一 就是用  open开管道

依你脚本的功能，还是直接写成shell脚本算了

toniz

{:3_198:}{:3_198:}

blackold

cctv_ming

谢谢，各位！因为先前都是写shell的，所以一时间还没缓过来，perl里边处理字符串的不熟啊，再学写一下！

cctv_ming

回复 3# xti9er


    因为最后要将过滤出来的东西写到mysql的数据库里边，所以想用perl写，可是水平有限啊

xti9er

回复  xti9er


    因为最后要将过滤出来的东西写到mysql的数据库里边，所以想用perl写，可是水平有限 ...
cctv_ming 发表于 2010-04-27 10:54

shell也能 操作mysql嘛