Πώς να βρείτε τη διαφορά μεταξύ δύο αρχεία με PerlScript

Η λειτουργία Perl " diff " χρησιμοποιείται για να προσδιοριστεί η διαφορά μεταξύ των δύο αρχείων . Μπορείτε να ανοίξετε τα αρχεία και να εκχωρήσετε το περιεχόμενο του αρχείου σε μια σειρά . Μπορείτε να εκτελέσετε τη λειτουργία " diff " και στις δύο χορδές . Και τα δύο αρχεία αξιολογούνται , και η διαφορά επιστρέφεται σε μία τρίτη μεταβλητή που χρησιμοποιείτε για να εκτυπώσετε τα αποτελέσματα στο πρόγραμμα περιήγησης του χρήστη . Οδηγίες
Η

1 Κάντε δεξί κλικ στο αρχείο Perl που θέλετε να χρησιμοποιήσετε για να εκτελέσετε την εντολή diff . Κάντε κλικ στο " Άνοιγμα με " και επιλέξτε editor προτιμάτε Perl . 2

Ανοίξτε τα δύο αρχεία που θέλετε να συγκρίνετε . Ο ακόλουθος κώδικας ανοίγει file1.txt και file2.txt :

ανοίξει FILE1 , " > " , " file1.txt " ανοικτή FILE2 , " > " , " file2.txt "
εικόνων 3

Εκχώρηση μια σειρά για το περιεχόμενο καθενός από τα αρχεία . Ο ακόλουθος κώδικας εκχωρεί κάθε ένα από τα ανοιχτά αρχεία που σχετίζονται με τη δική του σειρά :

$ CONT1 = διαβάσει FILE1 ? $ CONT2 = διαβάστε ΑΡΧΕΙΟ2 ?
Η 4

Συγκρίνετε τα δύο περιεχόμενα του αρχείου , και επιστρέψει τα αποτελέσματα σε μία τρίτη μεταβλητή . Ο παρακάτω κώδικας εκτελεί τη λειτουργία σύγκριση :

$ μου diff = Diff String :: :: diff ( $ CONT1 , $ CONT2 ) ?
5

Εκτυπώστε τα αποτελέσματα στο πρόγραμμα περιήγησης του χρήστη . Ο παρακάτω κώδικας εμφανίζει τη διαφορά μεταξύ των δύο αρχείων :

print $ diff ?
Η
εικόνων