Bugünkü göreviniz mevcut bir dosyayı almak ve belirli bir boyuta ulaşana kadar sıfır eklemek olacaktır.

Geçerli dizindeki bir dosyanın adını fve birkaç bayt alan bir program veya işlev yazmalısınız b. Orijinal içeriğini korurken sonuna yeni değerler bayt olacak şekildef sıfır (ascii 0s değil boş bayt) yazmalısınız b.

fAdında yalnızca alfasayısal ascii bulunduğunu, üzerinde tam izinlere sahip olduğunuzu, başlangıçta bundan daha büyük olmadığını b, ancak daha büyük olabileceğini bve sonsuz boş disk alanı olduğunu varsayabilirsiniz .

Sen farz olmayabilir fnonempty olduğu veya zaten boş bayt içermediğini.

Yürütme bittikten sonra varolan diğer dosyalar değiştirilmemeli ve yeni dosyalar bulunmamalıdır.

Test Durumları

F içeriği | b | Sonuçta ortaya çıkan içerik
12345 | 10 | 1234500000
0 | 3 | 000
[boş] | 2 | 00
[boş] | 0 | [boş]
123 | 3 | 123

Bash + coreutils, 13

truncate -s$@

Komut satırından giriş - ilk parametre dosya boyutu ve ikincisi dosya adıdır.

Gönderen man truncate:

Bir DOSYA daha kısaysa, uzatılır ve uzatılmış kısım (delik) sıfır bayt olarak okunur.

Çevrimiçi deneyin .

Harika, 54 47 43 41 bayt

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

-6 manatwork'ün döngüyü kaldırma fikri sayesinde; Bu benim orijinal fikrimdi, neden işe yaramayacağını düşündüğümü bilmiyorum ve bir döngü seçti ... Kesinlikle işe yarıyor, sadece test ettim.

Ungolfed:

{
    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 bayt

⎕⎕NRESIZE⍞⎕NTIE¯1

Çevrimiçi deneyin!

Python 2 , 59 57 54 bayt

^{Chepner sayesinde -5 bayt}

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

PHP, 66 bayt

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

Komut satırı bağımsız değişkenlerinden girdi alır; ile çalıştırın -nr.

Bu 55 bayt işe yarayabilir, ancak büyük olasılıkla çalışmaz:

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

Java (Oracle JRE), 55 bayt

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

Spesifikasyonlar setLength(int), eklenen baytların tanımsız olduğunu söylüyor, ancak pratik olarak Oracle JRE sadece 0baytı ekliyor (bu yüzden onu belirtmiştim).

Kaynak JVM tarafından otomatik olarak kapatılır, bu yüzden bunu kendimiz yapmamız gerekmez.

Ölçek

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 bayt

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

1ve 2bir AHK betiğindeki ilk iki parametredir.
FileGetSizevarsayılan olarak bayt olarak çalışır.
Heyecan verici değil, ama basit: Boyutu alın, istediğiniz boyuttan çıkarın ve o kadar sıfır ekleyin.

Perl 6 , 40 bayt

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

$^ave $^bişlevin parametreleridir - sırasıyla dosya adı ve uzunluk.

Python 2 , 68 bayt

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

Çevrimiçi deneyin! (Dosyanın içeriğini yazdırırken kod, görünürlük için boş baytları ASCII 0'larla değiştirir.)

PowerShell, 69 bayt

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 ^

$fdosya $siçin, hedef boyut için .ps1 olarak kaydedin ve çalıştırın

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

Bu bir kabuk, bu yüzden >>çıkış yeniden yönlendirme ve ekleme ile 1 bayt ekleyen gerçekten küçük bir döngü olmalı , değil mi? Hayır, çünkü >>yalnızca UCS2-LE çok baytlı kodlama çıktısı verir , bu nedenle onunla bir dosyaya tek bir bayt eklemenin yolu yoktur .. PSv5.1 kullanmıyorsanız ve bunu değiştiremezseniz, ancak bu rekabetin çok uzun olmasını sağlar :

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

Belki bir .Net Framework yaklaşımı vardır? Olmalı, ama aslında herhangi bir bayt veya hata yazamam. Ama yine de daha uzun:

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

Mathematica 50 Bayt

İthalat ihracat

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

kullanım

%["test1", 5]

q, 29 bayt

Dosya adını biçim :/foo/bar.bazve uzunluk olarak bir tamsayı olarak alan işlev .

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

Misal:

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

C, 56 bayt

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

Program dosyanın boyutunu ve kaç bayt ekleneceğini bulur. Daha sonra dosya fs - bsonuna fazladan bayt ekler .

C #, 90 bayt

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