比较两个文件

Mah*_*esh 1 perl comparison diff

我有两个文件

file1的内容如下

================================================== =

OUTPUT1:---------
    orange
    india
    US

xx

OUTPUT2:---------

    orange-1
    india-1
    US-1
xx
Run Code Online (Sandbox Code Playgroud)

================================================== =

file2内容如下

OUTPUT1:---------
    orange
    india
    US

xx

OUTPUT2:---------
    orange-1
    india-1
    US-2
xx
Run Code Online (Sandbox Code Playgroud)

================================================== =

我想要两个不同的如下

-----------------------
OUTPUT1: No evolution
----------------------
OUTPUT2: Evolution found
Before:US-1
After:US-2
----------------------
Run Code Online (Sandbox Code Playgroud)

是否可以在perl中编写具有上述要求的脚本

任何帮助都感激不尽

Ble*_*der 5

没有perl,但是更棒的东西:diff!

它比较文件:

[blender@arch Desktop]$ diff file1.txt file2.txt 
11c11
<     US-1
---
>     US-2
Run Code Online (Sandbox Code Playgroud)

11c11 说更改的文本从第11行开始,即第11个字符.