Tantangan:

Masukkan teks dari satu file dan output ke yang lain. Solusi harus merupakan fungsi kerja yang lengkap.

_{Catatan: Ini adalah pertanyaan troll kode . Harap jangan menanggapi pertanyaan dan / atau jawaban dengan serius. Informasi lebih lanjut di sini .}

C

Inti dari memiliki beberapa bahasa pemrograman, adalah bahwa Anda perlu menggunakan alat yang tepat untuk pekerjaan itu.
Dalam hal ini, kami ingin menyalin byte dari satu file ke yang lain.
Sementara kita bisa menggunakan sesuatu yang mewah seperti bash atau ruby, atau jatuh ke kekuatan ASM, kita membutuhkan sesuatu yang cepat, bagus dengan bit dan cepat.
Pilihan yang jelas adalah C.
Cara paling sederhana untuk melakukannya adalah seperti ini:

#include <stdio.h>
#define THEORY FILE
#define AND *
#define PRACTICE myfile1
#define SOLUTIONS myfile2
#define ARE fopen
#define IMPORTANT "r"
#define BAD "w"
#define LOL fclose
#define PLEASE fgetc
#define HELP fputc
#define ME return
#define NEVER for
#define SURRENDER !=
#define VERY filename1
#define NOT filename2
#define _ 1

int copyFile(char* filename1, char* filename2)
{
  THEORY AND PRACTICE = ARE (VERY, IMPORTANT);
  THEORY AND SOLUTIONS = ARE (NOT, BAD);
  NEVER (;_;)
  {
    HELP(PLEASE(PRACTICE),SOLUTIONS);
  }
  ME _SURRENDER_;
}

Ini jahat karena akan membaca sampah pada hal-hal seperti cygwin, benar-benar Cina untuk pemula, akan menakuti dia ketika dia menyadari itu adalah panggilan untuk bantuan dan, jelas, karena C.

SH

Saya suka kesederhanaan yang satu ini.

echo File1.txt > File2.txt

Benar-benar hanya berfungsi dengan baik jika File1.txtmengandung "File1.text" ...

Autohotkey

WinActivate, file1.txt
SendInput ^a^c
WinActivate, file2.txt
SendInput ^a^v^s

Pertama-tama Anda harus membuka file di notepad atau editor teks lain yang membuat nama jendela dimulai dengan nama file. Kemudian ia menyalin isi file1 ke clipboard (secara harfiah, menggunakan ctrl+ c), dan menempelkannya ke file2, menimpa apa pun yang ada di dalamnya, dan menyimpannya.

Memecahkan masalah, tetapi dengan cara yang sangat tidak nyaman dan sangat tidak berguna. Mungkin akan lebih mudah dengan hanya menyalin dan menempel secara manual.

Seperti semua orang tahu, perl sangat baik untuk memanipulasi file. Kode ini akan menyalin konten dari satu file ke file lain, dan akan melakukannya dengan redundansi ekstra untuk ukuran yang baik.

#Good perl programs always start thusly
use strict;
use warnings;

my $input_file  = 'File1.txt';
my $output_file = 'File2.txt';
open(my $in, '<', $input_file) or die "Couldn't open $input_file $!";

my $full_line = "";
while (my $line = <$in>) {
    #Get each letter one at a time for safety, 
    foreach my $letter (split //, $line) {
        #You could and should add validity checks here
        $full_line .= $letter;

        #Get rid of output file if it exists!  You are replacing it with
        # new content so it's just wasting space.
        unlink $output_file if (-e $output_file);

        #Write data to new file
        open(my $out, '>', $output_file) or die "Couldn't open $output_file $!";
        print {$out} $full_line;
        close($out);
    }
}

Agar aman, ujilah ini pada file kecil pada awalnya. Setelah Anda yakin akan kebenarannya, Anda dapat memproduksinya untuk digunakan pada file yang sangat besar tanpa khawatir.

C #

Untuk mencapai ini, Anda harus memastikan untuk melakukan beberapa hal:

1. Baca string dari file
2. Unduh Microsoft File IO dan String Extension untuk Visual Studio
3. Hapus virus dari string ("sanitize")
4. Tulis file ke path
5. Hapus dan muat ulang cache

Berikut kodenya:

static void CopyTextFile(string path1, string path2)
    {
        try
        {
            FileStream fs = new FileStream(path1, FileMode.OpenOrCreate); //open the FTP connection to file
            byte[] file = new byte[fs.Length];
            fs.Read(file, 0, file.Length);
            string makeFileSafe = Encoding.UTF32.GetString(file);

            using (var cli = new WebClient())
            {
                cli.DownloadData(new Uri("Microsoft .NET File IO and String Extension Package")); //get MS package
            }

            fs.Dispose();

            File.Create(path2);
            StreamReader read = new StreamReader(path2);
            read.Dispose(); //create and read file for good luck

            var sb = new StringBuilder();
            foreach (char c in path1.ToCharArray())
            {
                sb.Append(c);
            }

            string virusFreeString = sb.ToString(); //remove viruses from string

            File.WriteAllText(path2, virusFreeString);
            File.Delete(path1);
            File.WriteAllText(path1, virusFreeString); //refresh cache
        }
        catch
        { 
            //Don't worry, exceptions can be safely ignored
        }
    }

Dalam empat langkah sederhana:

1. Cetak file. Anda dapat menggunakanlpr perintah untuk ini.
2. Kirim hasil cetak ke layanan pemindaian. (Anda perlu ongkos kirim untuk ini).
3. Layanan pemindaian akan memindai hasil cetak dan melakukan OCR untuk Anda.
4. Unduh ke lokasi file yang sesuai.

Jawa

Banyak orang merasa berguna untuk mencoba menggunakan ekspresi reguler atau untuk mengevaluasi string untuk menyalinnya dari satu file ke yang lain, namun metode pemrograman itu ceroboh. Pertama kita menggunakan Java karena OOP memungkinkan lebih banyak transparansi dalam kode kita, dan kedua kita menggunakan antarmuka interaktif untuk menerima data dari file pertama dan menulisnya ke yang kedua.

import java.util.*;
import java.io.*;

public class WritingFiles{



 public static void main(String []args){
    File tJIAgeOhbWbVYdo = new File("File1.txt");
    Scanner jLLPsdluuuXYKWO = new Scanner(tJIAgeOhbWbVYdo);
    while(jLLPsdluuuXYKWO.hasNext())
    {
        MyCSHomework.fzPouRoBCHjsMrR();
        jLLPsdluuuXYKWO.next();
    }
 }
}

class MyCSHomework{
    Scanner jsvLfexmmYeqdUB = new Scanner(System.in);
    Writer kJPlXlLZvJdjAOs = new BufferedWriter(new OutputStreamWriter( new  FileOutputStream("File2.txt"), "utf-8"));
    String quhJAyWHGEFQLGW = "plea";
   String LHpkhqOtkEAxrlN = "f the file";
   String SLGXUfzgLtaJcZe = "e nex";
   String HKSaPJlOlUCKLun = "se";
   String VWUNvlwAWvghVpR = " ";
   String cBFJgwxycJiIrby = "input th";
   String ukRIWQrTPfqAbYd = "t word o";
   String  CMGlDwZOdgWZNTN =   quhJAyWHGEFQLGW+HKSaPJlOlUCKLun+VWUNvlwAWvghVpR+cBFJgwxycJiIrby+SLGXUfzgLtaJcZe+ukRIWQrTPfqAbYd+LHpkhqOtkEAxrlN;
    public static void fzPouRoBCHjsMrR(){
        System.out.println(CMGlDwZOdgWZNTN);
        kJPlXlLZvJdjAOs.write(jsvLfexmmYeqdUB.next());
    }



}

Secara teori (saya belum mengujinya) ini membuat pengguna secara manual memasukkan konten dari file pertama (kata demi kata) dan kemudian menulisnya ke file kedua. Tanggapan ini adalah permainan pada ambiguitas pertanyaan tentang apa artinya dengan "memasukkan teks dari satu file," dan nama-nama variabel gila (dihasilkan secara acak) hanya untuk kesenangan tambahan.

SH

Seperti yang ditunjukkan @Shingetsu, kita harus menggunakan alat yang tepat untuk pekerjaan yang tepat. Menyalin konten dari satu file ke file lain adalah masalah lama, dan alat terbaik untuk tugas manajemen file tersebut menggunakan shell.

Salah satu shell perintah bahwa setiap programmer harus membiasakan diri mereka dengan adalah umum tacperintah, digunakan untuk tac k isi file bersama-sama, satu demi satu. Sebagai kasus khusus ini, ketika hanya satu file dilewatkan di dalamnya hanya dimuntahkan apa adanya. Kami kemudian hanya mengarahkan output ke file yang sesuai:

tac inputfile.txt >outputfile.txt

Sederhana dan to-the-point, tidak ada trik!

Perl

Termasuk antivirus.

#!/usr/bin/perl -w
use strict;
use warnings;

print "Copy the text of the file here: (warning: I can't copy files with newlines):\n";
my $content = <STDIN>;

print "\n\nPlease wait, removing viruses...";
my @array = split(//,"$content");
my @tarray;

foreach my $item (@array)
{
    if ($item ne "V" && $item ne "I" && $item ne "R" && $item ne "U" && $item ne "S")
    {
        push(@tarray, $item);
    }

}

print "\n\nNow copy this into the target file:\n";

foreach my $item (@tarray){ print "$item"};

Windows Batch

(karena Anda harus memiliki bahasa yang seharusnya "mati" ini ;-)

@echo off
setlocal enabledelayedexpansion
for %%I in ('type %1') do set this=!this!%%I
echo !this!>%2 2>nul

Anda cukup menyebutnya sebagai copy.bat file1.txt file2.txt(atau file apa pun yang Anda inginkan)

Kalau saja itu akan membuat garis istirahat ...

Linq

Efisiensi tidak penting, kebenaran itu. Menulis dalam gaya fungsional menghasilkan kode yang lebih jelas dan lebih rentan kesalahan. Jika kinerja ternyata menjadi masalah, baris ToArray () terakhir dapat dihilangkan. Lagipula, lebih baik malas.

public void CopyFile(string input, string output)
{
    Enumerable
        .Range(0, File.ReadAllBytes(input).Length)
        .Select(i => new { i = i, b = File.ReadAllBytes(input)[i] })
        .Select(ib => {
            using (var f = File.Open(output, ib.i == 0 ? FileMode.Create : FileMode.Append))
                f.Write(new byte[] { ib.b }, 0, 1);
            return ib; })
        .ToArray();
}

Smalltalk

Ada perpustakaan yang belum diport ke beberapa dialek Smalltalk (Visualworks, Gemstone Squeak / Pharo, ...) bernama Xtreams yang membuat tugas ini lebih mudah.

FileStream akan sesederhana 'foo' asFilename readingdan 'bar' asFilename writingmisalnya dalam Visualworks, tetapi khusus dialek.
Untuk alasan ini saya mendemonstrasikan algoritma dengan dialek internal stream netral sebagai gantinya.
Ide yang bagus adalah memproses setiap byte kode dalam urutan yang meningkat:

| input |
input := 'Hello world' asByteArray reading.
^((ByteArray new writing)
    write: ((0 to: 255) inject: ByteArray new reading into: [:outputSoFar :code |
        | nextOutput |
        nextOutput := ByteArray new writing.
        ((input += 0; selecting: [:c | c <= code]) ending: code inclusive: true) slicing do: [:subStream |
            | positionable |
            positionable := subStream positioning.
            nextOutput write: (outputSoFar limiting: (positionable ending: code) rest size).
            nextOutput write: (positionable += 0; selecting: [:c | c = code])].
        nextOutput conclusion reading]);
    conclusion) asString

Tentu saja, ini juga memungkinkan untuk diproses dalam urutan acak, tetapi saya khawatir itu membuat kode ini agak terlalu kompak:

| input output |
input := 'Hello world' asByteArray reading.
output := ByteArray new writing.
(0 to: 255) asArray shuffled do: [:code |
        output += 0.
        (input += 0; ending: code inclusive: true) slicing do: [:subStream |
            | positionable |
            positionable := subStream positioning.
            output ++ (positionable += 0; rejecting: [:c | c = code]) rest size.
            output write: (positionable += 0; selecting: [:c | c = code])]].
^output conclusion asString

EDIT

Ah bodohnya aku, aku tidak melihat solusi log2:

| input output |
input := 'Hello world' asByteArray reading.
(output := ByteArray new writing) write: (input collecting: [:e | 0]).
output := (0 to: 7) asArray shuffled inject: output into: [:outputSoFar :bit |
        (ByteArray new writing)
            write:
                (((input += 0; collecting: [:e | e >> bit bitAnd: 1]) interleaving: outputSoFar conclusion reading) 
                    transforming: [ :in :out | out put: in get << bit + in get]);
            yourself].
^output conclusion asString

PESTA

pada terminal # 1 dengan IP, 192.168.1.2

nc -l 8080 | gpg -d > mydocument.docx

pada terminal # 2 dengan IP, 192.168.1.3

gpg -c mydocument.docx | nc 192.168.1.2 8080

Ini akan mengenkripsi dan mengirim mydocument.docx, menggunakan ncdan gpg, ke terminal # 1 Anda harus mengetikkan kata sandi pada terminal # 2, kemudian pada terminal # 1

C ++

Ini agak berdasarkan jawaban Shingetsu , tapi aku tidak bisa menolak. Ini berfungsi penuh, tetapi tidak ada siswa yang akan menyerahkannya kepada guru mereka (saya harap). Jika mereka bersedia menganalisis kode, mereka akan dapat memecahkan masalah mereka:

#include <iostream>
#include <fstream>
#include <string>
using namespace std;
#define SOLVE ifs
#define IT >>
#define YOURSELF ofs

ifstream& operator IT(ifstream& ifs, ofstream& ofs) {
  string s;
  SOLVE IT s;
  YOURSELF << s;
  return ifs;
}

void output(ofstream& ofs, ifstream& ifs) {
  while (ifs) {
    SOLVE IT YOURSELF;
    ofs << ' ';
  }
}

int main() try {

  ofstream ofs("out.txt");
  ifstream ifs("in.txt");

  output(ofs, ifs);

  return 0;
}
catch (exception& e) {
  cerr << "Error: " << e.what() << endl;
  return 1;
}
catch (...) {
  cerr << "Unknown error.\n";
  return 2;
}

Python

Input teks dari file1.txt dan output ke file2.txt

Lengkap dan "berfungsi". Tidak ada yang mengatakan apa pun tentang menulis input apa adanya. Semua karakter input muncul di output. "getchar" adalah bagian trolling.

from random import choice as getchar

f1 = open("file1.txt")
s1 = []
for line in f1:
    for char in line:
        s1.append(str(char))
s2 = ''
while len(s1) > 0:
    x = getchar(s1)
    s2 += x
    s1.remove(x)
f2 = open("file2.txt" , 'w')
f2.write(s2)

Mathematica, 44 karakter

Penerapan

f = (BinaryWrite[#2, BinaryReadList@#]; Close@#2) &

Eksekusi

f["one file", "another"]

Memeriksa

check = Import[StringJoin["!diff \"", #, "\" \"", #2, "\" 2>&1"], "Text"] &;
check["one file", "another"]

DELPHI / PASCAL (salin dari f1.txt ke f2.txt)

program t;

{$APPTYPE CONSOLE}

uses
  classes;

var a : TStringlist;
begin
   a:=TStringlist.Create;
   a.LoadFromFile('e:\f1.txt');
   a.SaveToFile('e:\f2.txt');
   a.Free;
end.

MASM

Saya jelas bukan pakar perakitan, tetapi di bawah ini cuplikan kecil saya:

include \masm32\include\masm32rt.inc

.code

start:
call main
inkey
exit

main proc
LOCAL hFile :DWORD  
LOCAL bwrt  :DWORD 
LOCAL cloc  :DWORD 
LOCAL flen  :DWORD  
LOCAL hMem  :DWORD  

.if rv(exist,"out.txt") != 0  
  test fdelete("out.txt"), eax 
.endif

mov hFile, fopen("source.txt")
mov flen, fsize(hFile)
mov hMem, alloc(flen)   
mov bwrt, fread(hFile,hMem,flen)  
fclose hFile   

invoke StripLF,hMem

mov hFile, fcreate("out.txt") 
mov bwrt, fwrite(hFile,hMem,flen)   
fclose hFile   

free hMem   

ret

main endp
end start

C ++

Apakah Anda memperhatikan bit "fungsi lengkap, berfungsi"? Bagaimanapun, inilah jawaban saya:

#include <stdlib.h>
int main(void)
{
  system("echo < input > dest");
}

Lua

io.read()

Jalankan dengan file input yang berisi text from one file and output it to another. Solution should be a complete, working function..

PHP

function copyFile($input, $output) 
{
    return file_put_contents($output, file_get_contents($input));
}

#! / bin / sh

contents=`< $1` ; echo "$contents" > $2

Terlihat masuk akal, tetapi agak tidak efisien jika file berukuran besar.

Bekerja dengan baik pada file ASCII kecuali ketika file input berisi -n, -eatau -E. (Karena ini ditafsirkan sebagai argumen oleh echo.)

Tidak menghasilkan output yang benar untuk semua (sebagian) file biner.

(Menggunakan di printf "%s" "$contents" > outputbawah /bin/bashberfungsi sedikit lebih baik, tapi itu masih menjatuhkan byte NULL.)

Oh dan tentu saja itu tidak berfungsi untuk filenames_containing_spaces. Tetapi file seperti itu ilegal di bawah UNIX% 20policy.