Portál AbcLinuxu, 25. dubna 2024 08:31
find . | perl -nle 'rename $_, uc'
(nebo nějak tak, píšu to z hlavy)
(ii) nahrát to na filesystém, kde se velikost písmen nerozlišuje, např. VFAT
(iii) udělat to -r explicitně
#!/usr/bin/perl die if $#ARGV < 1; $la = length $ARGV[0]; $lb = length $ARGV[1]; %a = map { chomp; $_ = substr $_, $la; lc $_ => $_ } qx( find $ARGV[0] -type f ); %b = map { chomp; $_ = substr $_, $lb; lc $_ => $_ } qx( find $ARGV[1] -type f ); %k = map { $_ => 1 } ( keys %a, keys %b ); for $k ( sort keys %k ) { if ( !defined $a{ $k } ) { print "Only in $ARGV[1]: $b{$k}\n" } elsif ( !defined $b{ $k } ) { print "Only in $ARGV[0]: $a{$k}\n" } else { system "diff $ARGV[0]$a{$k} $ARGV[1]$b{$k}" } }
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.