请高手赐教

yanxiaojun224

假如有个文件内容是set LAYER = ("solder"  "comp" )  请教如何用perl取得solder comp ,谢谢!

yanxiaojun224

我的意思就是把solder comp取出来放到一个数组,谢谢!

hfahe

my $str = qq(set LAYER = ("solder"  "comp" ));
my @array = $str =~ /"(.*?)"/g;
print @array;

yanxiaojun224

呵呵谢谢.昨天想了一天,今天终于想到一种办法,比如这个文件名是FILE
cat FILE |awk -F\" '{for ( x=2; x<=NF; x+=2 ) {print $x}}'
返回solder
     comp
呵呵

yanxiaojun224

假如我有个文件file的内容是
set LAYER = ("comp" "solder" )
set step_ans = 1
如果我用open 处理file,怎样取得comp solder

open(MYFILE,"</tmp/file"||("$!");
while (<MYFILE>)
{
  if(/(set LAYER)/)
{
    my($file)=qq($1);
   my(@a) = $file =~/"(.*?)"/g;
}
}
print @a;
看看我的程序有何问题谢谢诶!

shaneqi

$file的内容应该是set LAYER

yanxiaojun224

更成if(/(set LAYER).*/)也是不行啊
请赐教

Perl_Er

bash-3.2# perl -e '
$string = qq!set LAYER = ("solder"  "comp"!;
($column1,$column2) = $string =~ m#.*"(\w+)"\s*"(\w+)"#;
print $column1 ." ". $column2 ."\n";
'
solder comp

yanxiaojun224

可否采用OPEN文件这种方法处理我这个问题,谢谢!

shaneqi

while (<DATA>)
{  
  if(/(set LAYER)/)
{   
   my($file)=qq($');
   print "$file\n";
   my ($a) = $file =~ /"(.*)"/g;
   $a =~ s/"//g;
   print $a;
}
}

__DATA__
set LAYER = ("comp" "solder" )
set step_ans = 1