Ruby/Iš duomenų failo nuskaityti du skaičius ir sukeistus vietomis įrašyti į rezultatų failą
Išvaizda
< Ruby
duomen.txt:
66 99
Turime gauti rezult.txt:
99 66
Turbo ir Borland Paskalio problema, kad jis palaiko tik 8 simbolių failų vardus (neskaitant išplėtimo).
Paskalio variantas
[keisti]program SukeistiSkaicius;
var duomenys, rezultatai: text;
a, b: integer;
begin
assign(duomenys, 'duomen.txt'); reset(duomenys);
assign(rezultatai, 'rezult.txt'); rewrite(rezultatai);
read(duomenys, a, b);
write(rezultatai, b, ' ', a);
close(duomenys);
close(rezultatai);
end.
Ruby variantas
[keisti]File.open('duomen.txt', 'r') do |duomenys| # failas atidaromas skaitymui (Read)
File.open('rezult.txt', 'w') do |rezultatai| # failas atidaromas rašymui (Write)
a, b = duomenys.readline.split(" ") # nuskaito eilutę, kai skirtukas tarpas
rezultatai.write("#{b} #{a}")
end # rezultatų failas čia bus automatiškai uždaromas
end # duomenų failas čia bus automatiškai uždaromas