Códigos III

Aqui están los códigos de la tercera entrega:

#include

int main() {
FILE *fe, *fs;
unsigned char buffer[2048]; // Buffer de 2 Kbytes
int bytesLeidos;
int caracteres=0;

fe = fopen("dat.c", "r");
if(!fe) {
printf("El fichero %s no existe o no puede ser abierto.\n", "dat.c");
return 1;
}
fs = fopen("out.c", "w");
if(!fs) {
printf("El fichero %s no puede ser creado.\n", "out.c");
fclose(fe);
return 1;
}

while((bytesLeidos = fread(buffer, 1, 2048, fe)))
fwrite(buffer, 1, bytesLeidos, fs);
fclose(fe);
fclose(fs);
fe= fopen("dat.c", "r");
fs= fopen("out.c", "r");
while(!feof(fe)) {
if (fgetc(fe)==fgetc(fs)) {
printf("Son iguales \n");
caracteres++;
}
}
fclose(fe);
fclose(fs);
fe= fopen("dat.c", "r");
fs= fopen("out.c", "r");
while(!feof(fe)) printf("%c",fgetc(fe));
while(!feof(fs)) printf("%c",fgetc(fs));
fclose(fe);
fclose(fs);
printf("el numero de caracteres es %d \n",caracteres);
return 0;
}

#!/usr/bin/ruby
buffer=""
caracteres=0
fe = File.new("dat.rb", "r")
fs = File.new("out.rb", "w")
while not (fe.eof?)
fe.read(2048,buffer)
fs.print(buffer)
end
fs.close
fe.close
fe = File.new("dat.rb", "r")
fs = File.new("out.rb", "r")
while not (fe.eof?)
if fe.getc == fs.getc
printf("Son iguales \n")
caracteres+=1
end
end
fs.close
fe.close
fe = File.new("dat.rb", "r")
fs = File.new("out.rb", "r")
fe.each_line {|line| puts line }
fs.each_line {|line| puts line }
fs.close
fe.close
puts "el numero de caracteres es "+caracteres.to_s

#!/usr/bin/perl
$buffer="00000000000000000000000000000000000000";
$caracteres=0;
open FE, "dat.pl";
open FS, ">out.pl";
while($buffer = ) {
print FS $buffer;
}
close FE;
close FS;
open FE, "dat.pl";
open FS, "out.pl";
while($char = getc(FE)) {
$char2=getc(FS);
if ($char == $char2) {
print "Son iguales \n";
$caracteres++;
}
}
close FE;
close FS;
open FE, "dat.pl";
open FS, "out.pl";
while($linea = ) {print $linea;}
while($linea = ){ print $linea;}
close FE;
close FS;
print "$caracteres \n";