system （“ sed...")求助

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

1^# paminy 发表于 2008-10-03 21:48

system （“ sed...")求助

#目的：将tc文件的一行内容加入到dump1文件的""中间,最后输出到dump文件
...
open (TCIN,'tc') or die("cannot open file!";
open (TDIN,'td') or die("cannot open file!";

while (my $TDline =<TDIN>
{
my $TCline = <TCIN>;
system("sed \"s/\"\"/\"$TCline\"/\" dump1 >dump";
...
}
报错如下:
sed：-e 表达式 #1，字符 6：unterminated 's' command
sh: line 1: /: is a directory
sh: -c: line 0: unexpected EOF while looking for matching '''
sh: -c: line 2: syntax error: unexpected end of file

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

2^# paminy 发表于 2008-10-03 21:56

请问各位大侠如何解决以上错误呢?
不胜感激.

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

3^# __lxmxn__ 发表于 2008-10-04 02:45

都已经使用了perl，还需要再用system来调用sed么？

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

4^# paminy 发表于 2008-10-04 10:02

我不知道perl怎么样实现这么一个功能？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

5^# ly5066113 发表于 2008-10-04 14:28

QUOTE:

原帖由 paminy 于 2008-10-3 21:48 发表
#目的：将tc文件的一行内容加入到dump1文件的""中间,最后输出到dump文件
...
open (TCIN,'tc') or die("cannot open file!";
open (TDIN,'td') or die("cannot open file!";

while (my $TDline =)
...

[Copy to clipboard] [ - ]

CODE:

open (TCIN,'tc') or die("cannot open file:$!");
open (TDIN,'td') or die("cannot open file:$!");
open (DUMP1,'dump1') or die("cannot open file:$!");
open (DUMP,'>dump') or die("cannot open file:$!");

while (my $TDline =<TDIN>)
{
      my $TCline = <TCIN>;
      while ( <DUMP1> )
      {
            s/""/"$TCline"/;
            print DUMP "$_\n";
      }
}

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

6^# paminy 发表于 2008-10-04 15:20

谢谢ly5066113 (Tim)

system （“ sed...&quot;)求助

system （“ sed...&quot;)求助

system （“ sed...")求助

system （“ sed...")求助