Вашим завданням сьогодні буде взяти існуючий файл і додати нулі до нього, поки він не набуде певного розміру.

Ви повинні написати програму або функцію, яка приймає ім'я файлу в поточному каталозі fта кількість байтів b. Зберігаючи початковий вміст f, ви повинні записати нулі (нульові байти, а не ascii 0s) до кінця, щоб його новий розмір був bбайтами.

Ви можете припустити, що fв його імені є лише буквено-цифрові асції, що ви маєте повні дозволи на неї, що вона спочатку не більша за b, але може бути такою ж великою b, і що є нескінченний вільний простір на диску.

Ви можете не вважати f, що він порожній або що він вже не містить нульових байтів.

Інші існуючі файли не повинні змінюватися, а нові файли не повинні існувати після закінчення виконання.

Випробування

Зміст f | б | Отриманий вміст f
12345 | 10 | 1234500000
0 | 3 | 000
[порожній] | 2 | 00
[порожній] | 0 | [порожньо]
123 | 3 | 123

Bash + coreutils, 13

truncate -s$@

Введення з командного рядка - перший параметр - це розмір файлу, а другий - ім'я файлу.

Від man truncate:

Якщо ФАЙЛ коротший, він розширюється, а розширена частина (отвір) читається як нульовий байт.

Спробуйте в Інтернеті .

Groovy, 54 47 43 41 байт

{a,b->(c=new File(a))<<'\0'*(b-c.size())}

-6 завдяки ідеї манатурки зняти петлю; це була моя оригінальна ідея, не знаю, чому я думав, що це не спрацює, і вибрав цикл ... Це, безумовно, працює, просто перевірив його.

Безголівки:

{
    a,b->                    // Two inputs: a is the File name, b is the desired size.
    File c = new File(a)     // Make and store the file.
    c << '\0'*(b-c.size())   // Append the difference between b and c.size() in nullbytes.
}
                             // Usually a close would be required, but, in Groovy,
                             // because private data isn't so protected, if a File
                             // Object goes out of scope, the attached Stream is 
                             // automatically flushed to disk.

APL (Dyalog) , 33 17 байт

⎕⎕NRESIZE⍞⎕NTIE¯1

Спробуйте в Інтернеті!

Python 2 , 59 57 54 байт

^{-5 байт завдяки чепнеру}

def g(n,b):f=open(n,'a');f.write('\0'*b);f.truncate(b)

PHP, 66 байт

for($p=fopen($f=$argv[1],a);filesize($f)<$argv[2];)fputs($p,"\0");

Приймає дані з аргументів командного рядка; бігати з -nr.

Ці 55 байт можуть, але, швидше за все, не спрацюють:

fseek($p=fopen($argv[1],"w+"),$argv[2]);fputs($p,"\0");

Java (Oracle JRE), 55 байт

f->b->new java.io.RandomAccessFile(f,"rw").setLength(b)

Специфікація setLength(int)говорить, що додані байти не визначені, але практично Oracle JRE додає лише0 байт (саме тому я його вказав).

Ресурс автоматично закривається JVM, тому нам не потрібно робити це самостійно.

Тест

public class Pcg125661 {
  interface F {
    B f(String f);
  }
  interface B {
    void b(int b) throws java.io.IOException;
  }
  public static void main(String[] args) throws java.io.IOException {
    F a = f->b->new java.io.RandomAccessFile(f,"rw").setLength(b);
    a.f("a").b(100);
  }
}

AHK, 48 байт

FileGetSize,s,%1%
2-=s
Loop,%2%
FileAppend,0,%1%

1і 2є першими двома параметрами в сценарії AHK.
FileGetSizeпрацює в байтах за замовчуванням.
Це не цікаво, але це просто: Отримайте розмір, відніміть його від потрібного розміру і додайте стільки нулів.

Perl 6 , 40 байт

{$_=$^a.IO;.open(:a).put("\0"x($^b-.s))}

$^aі $^bє параметрами функції - ім'ям файлу та довжиною відповідно.

Python 2 , 68 байт

def g(f,b):
 with open(f,'r+')as c:c.write('\x00'*(b-len(c.read())))

Спробуйте в Інтернеті! (Під час друку вмісту файлу код замінює нульові байти на ASCII 0 для наочності.)

PowerShell, 69 байт

param($f,$s)@(gc $f -en by)+,[byte]0*($s-(gi $f).length)|sc $f -en by
#     ^ filename
#        ^desired size
#                 ^ get content as byte stream
#           ^force it to an array even if there's 0 or 1 byte
#                          ^append a byte array of nulls..
#                                       ^..desired size - file size
#                            write to file with -encoding byte ^

$fдля файлу, $sдля розміру призначення збережіть як .ps1 та запустіть

.\Add-NullBytesToFile.ps1 .\test.txt 10

Це оболонка, тому має бути дійсно невеликий цикл, що додає 1 байт з >>перенаправленням виводу та додаванням, правда? Ну, ні, тому що >>виводить тільки багатобайтове кодування UCS2-LE, тому немає ніякого способу додати один байт до файлу за допомогою нього. :

$PSDefaultParameterValues['Out-File:Encoding']='utf8';while((gi $f).length-lt$c){[byte]0>>$f}

Можливо, є .Net Framework підхід? Це повинно бути, але я не можу змусити насправді записати будь-які байти чи помилки. Але це все одно довше:

param($f,$s)[io.file]::WriteAllBytes($f,[byte[]](,0)*($c-(gi $f).length), $True)

Математика 50 байт

Імпорт-експорт

Export[#,Import[#,c="Byte"]~Join~Table[0,{#2}],c]&

Використання

%["test1", 5]

q, 29 байт

Функція, яка приймає ім'я файлу у форматі :/foo/bar.bazта довжині як ціле число.

{hopen[x](0|y-hcount x)#0x00}

Приклад:

{hopen[x](0|y-hcount x)#0x00}[`:test.txt;100]

C, 56 байт

fseek(f,0,2);int i;for(;ftell(f)<b;)putc(0,f);fclose(f);

Програма знаходить розмір файлу та скільки байтів для додавання. Потім файл додає fs - bдодаткові байти до кінця.

C #, 90 байт

using System.IO;s=>n=>File.AppendAllText(s,new string('\0',(int)new FileInfo(s).Length-n))