Chinaunix

标题: 如何让perl支持shell>重定向 [打印本页]

作者: blake94 时间: 2011-08-10 13:33
标题: 如何让perl支持shell>重定向
#!/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文件里。

作者: 兰花仙子 时间: 2011-08-10 13:44
chomp

作者: blake94 时间: 2011-08-10 14:03
好像是perl的变量$_不能传送到system ""里。

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

作者: blake94 时间: 2011-08-10 14:04
如何把perl的变量传到SHELL里？

作者: blake94 时间: 2011-08-10 14:49

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

好了，多谢仙子!

作者: 火星人1 时间: 2011-08-10 16:18
求教一下，“-|”是什么意思？

作者: zhlong8 时间: 2011-08-11 22:07

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

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

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)