Ruby/Iš duomenų failo nuskaityti du skaičius ir sukeistus vietomis įrašyti į rezultatų failą
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
keistiprogram 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
keistiFile.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