Dotaz: Velikost písma v názvu souboru

[Míra]

Potřebuji porovnat soubory (větší množství) příkazem diff slozka1 slozka2 -r. Názvy souborů se shodují, až na velikost písma. Potřeboval bych nějakou fintu, aby na velikosti písma v názvech nezáleželo. Jde to? Díky za pomoc.

Odpovědi

[unchallenger]

Rozlišování velikosti písmen asi neošidíš, takže můžeš např.: (i) přejmenovat všechno na malá 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}" }
}

[Míra]

Díky. I když jsem myslel, že to půjde snadnějc.

[unchallenger]

Snadněji? Rozdíl mezi ,x` a ,X` je úplně stejný jako mezi ,x` a ,#`, jsou to prostě různé znaky.