How can I create 77 files the content of which is the name of each file?

Question

Let's take an example. A "file1" -file has a content "file1", its own name. A "file2"-file has a content "file2", again its own name. The pattern continues until we have covered 77 files. What is the easiest way to do the 77 files?

Since I tend to have hard time in compiling, I sum up some details.

Intructions how to compile the codes

PERMISSIONS: "chmod 700 filename.some_ending"

RUNNING: ". ./filename.some_ending"

How to compile?

1. Use gcc for C++/C like "gcc filename.c", and then run ". ./a.out"
2. Use javac for Java like "javac filename.javac", and then run it with "java class" (error?!)
3. Fortran?
4. ... more?

Answer 1

#!/bin/bash
for i in {1..77}
do
   echo file$i > file$i
done

Answer 2

Java version, for fun.

import java.io.*;

public class HA {
    public static void main(String[] args) throws Exception {
        String file = "file";
        for (int i = 1; i <= 77; i++){
            PrintStream out = new PrintStream(new File(file + i));
            out.print(file + i);
            out.close();
        }
    }
}

Answer 3

Perl:

#!/usr/bin/env perl
for ( my $i = 1; $i <= 77; ++$i )
{
    open( my $fh, '>', 'file' . $i );
    print { $fh } ( 'file' . $i );
    close( $fh );
}

Answer 4

Python:

for i in range(1,78): open("file" + str(i), "w").write("file" + str(i))

Answer 5

I added the extension, assuming the file's gonna have it.

Fortran:

character(11) file_name
do i=1,77
  write(file_name,"('file',i2.2,'.txt')")i
  open(unit=1, file=file_name, status='replace')
  write(1,"(a)")file_name
  close(unit=1)
enddo
end

Answer 6

C++:

#include <sstream>
#include <fstream>

using namespace std;

int main()
{
     for (int i = 1; i <= 77; i++) {
          stringstream s;
          s << "file" << i;
          ofstream out(s.str().c_str());
          out << s.str();
          out.close();
     }
     return 0;
}

Answer 7

Python version for those who prefer readable over terse:

filenames = ("file%(num)d" % vars() for num in range(1, 78))
for filename in filenames:
    open(filename, 'w').write(filename)

Answer 8

C:

#include <stdio.h>

int main() {
    char buffer[8];
    FILE* f;
    int i;
    for(i = 1; i <= 77; i++){
        sprintf(buffer, "file%d", i);
        if((f = fopen(buffer, "w")) != NULL){
            fputs(buffer, f);
            fclose(f);
        }
    }
    return 0;
}

Answer 9

C#, why not:

using System.IO;

namespace FileCreator
{
    class Program
    {
        static void Main(string[] args)
        {
            for (int i = 1; i <= 77; i++)
            {
                TextWriter f = new StreamWriter("file" + i);
                f.Write("file" + i);
                f.Close();
            }
        }
    }
}

Answer 10

Ruby:

77.times { |i| File.open("file#{i+1}", "w") { |f| f.puts "file#{i+1}" } }

Answer 11

Delphi/Free Pascal

program Create77Files;

{$APPTYPE CONSOLE}

uses
  Classes, SysUtils;

var
  I: Integer;
  S: string;
begin
  for I := 1 to 77 do
  begin
    S:= 'file' + IntToStr(I);
    with TStringStream.Create(S) do
    begin
      SaveToFile(S);
      Free;
    end;
  end;
end.