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 ?
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα