作者fabmanufab (工厂工人)
看板Perl
标题[问题] diff档案内容并把相异处产出档案
时间Sun Nov 15 15:38:33 2020
我是想要diff两个档案，并把相异处写成diff.log
其实就是linux的 "diff A.txt B.txt > diff.log"
只是不知道为何我把那行塞进system()里面，是无效的
他叫我diff:Try `diff --help' for more information
因此只好找perl内建的功能，例如Text:Diff来解决
但我用:
use Text::Diff;
my $diff_result=diff "$A.txt" => "$B.txt";
print OUTFILE "$diff_result";
他也会把档名印出来让我觉得困扰....
跪求各位高手有无其他解法? 谢谢....
这几天被system()弄得好头痛....
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.243.0.197 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1605425915.A.9A9.html
※ 编辑: fabmanufab (111.243.0.197 台湾), 11/15/2020 16:25:56
後来发现 不要用system()
直接用system "diff A B > diff.log";即可!!!!
※ 编辑: fabmanufab (36.227.140.104 台湾), 11/16/2020 08:31:58