如何让perl支持shell>重定向

blake94

#!/usr/bin/perl -w

open(FH, "-|", "mysql -uroot -p123456 -s -e 'show databases;'");
while(<FH>){
   next if (/^Database/);
   if (/test/){
   system "mysqldump -uroot -p123456 --opt  $_ > test.sql";
   print $_;
   }
}

不能把数据dump到test.sql文件里。

兰花仙子

chomp

blake94

好像是perl的变量$_不能传送到system ""里。

我里面换了一个test库，就可以了

blake94

如何把perl的变量传到SHELL里？

blake94

chomp
兰花仙子 发表于 2011-08-10 13:44

  好了，多谢仙子!

火星人1

求教一下，“-|”是什么意思？

zhlong8

求教一下，“-|”是什么意思？
火星人1 发表于 2011-08-10 16:18

    管道，Perl open 相关的内容挺多的专门有个 perlopentut 可以看看