ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Algorithm-Diff
/
usr
share
doc
perl-Algorithm-Diff
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
cdiff.pl
12.04 MB
chmod
View
DL
Edit
Rename
Delete
Changes
1.92 MB
chmod
View
DL
Edit
Rename
Delete
diff.pl
977 B
chmod
View
DL
Edit
Rename
Delete
diffnew.pl
17.14 MB
chmod
View
DL
Edit
Rename
Delete
htmldiff.pl
1.81 MB
chmod
View
DL
Edit
Rename
Delete
README
3.26 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Algorithm-Diff/diff.pl
#!/usr/bin/perl # # `Diff' program in Perl # Copyright 1998 M-J. Dominus. (mjd-perl-diff@plover.com) # # This program is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. # use Algorithm::Diff qw(diff); bag("Usage: $0 oldfile newfile") unless @ARGV == 2; my ($file1, $file2) = @ARGV; # -f $file1 or bag("$file1: not a regular file"); # -f $file2 or bag("$file2: not a regular file"); -T $file1 or bag("$file1: binary"); -T $file2 or bag("$file2: binary"); open (F1, $file1) or bag("Couldn't open $file1: $!"); open (F2, $file2) or bag("Couldn't open $file2: $!"); chomp(@f1 = <F1>); close F1; chomp(@f2 = <F2>); close F2; $diffs = diff(\@f1, \@f2); exit 0 unless @$diffs; foreach $chunk (@$diffs) { foreach $line (@$chunk) { my ($sign, $lineno, $text) = @$line; printf "%4d$sign %s\n", $lineno+1, $text; } print "--------\n"; } exit 1; sub bag { my $msg = shift; $msg .= "\n"; warn $msg; exit 2; }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply