Напишите программу, которая стирает сама себя. Хотя точное поведение может быть определено реализацией, оно должно как минимум попытаться удалить файл, в котором была сохранена программа, перед выполнением с максимальной отдачей.

_{Это конкурс популярности , поэтому ответ с наибольшим количеством голосов победит.}

C + Unix

Выводит монолог Шекспира перед удалением:

#include <stdio.h>
#include <string.h>
#include <unistd.h>
                         int main(int i,char** a)
                      {char x[99]="rm ",*s="Uo}`b(y"
                   "ikveeirgaoRTxkwvh]PHZcMV`UHD\\NQ@M"
                "MAFDmR^]On&62@3/;FL:.7A00\"+#/:$(7,}y3!z~"
               "s.#{+}~nmkwDWjf~rjfjbmwYeZsUed`gbl\\RiY^\\YG"
             "LIRWT^EMOPPH>v&HSHBPE1:3K-=7<F(-&-155>~<0!z8(|5"
            "*'#(r{s\"8KKwl'h~$rrqorgkcy_g\\uj]Y`1o{zlA[iNRMqd"
           "poaVP^RJBAKdWcbTs\"BP>?A3fJ,8-F)?C%A5-%$.;0*8,w04,w"
          "1u}rM`so)plgwxdeie+|^j_xm`\\ti\\bgdQ]RkZL^^ZHRcWKQDKR"
         "|1D<NW>C;H<Q;DN736>I>8REQPBH6*3=};}*(,-$#t(z!}NQq#y~|s!"
         "%xr\"ce}ufoc!]&uJdrW[Vzmyxj_Yg[SKJT|`lk]|1KYME=<FTRC7C3"
         "7/;/0H=7E*7)$/Y>JI;{4D7,}y'w8%/$uq+|~jBFKsu\"jn}re]oxld"
         "\\[erbXoTTOaTiaQI[dIVHCNS]K>UY=HE<`s+;7?NF3K4,@.F:.:*).&"
         "$=-#\"9.!!*4\"#%&pz-ozsu4GSzww\"hiuc{qnxiYliZ.qfYUaSr_i^"
         "QMeXJWSGDT}2E=OXF9B;HR63=1<7AEI9/F:5C020(>+'#!TX]')4,z\""
         "0(}$xo*kmhx%xkg!wggmoy[g\\uiXce`dn^Tk`TWNr':MIaQQPQCPOJL"
          "^KUMGCA9[NC62        J;<8=+D2%1G         4>\"-+00'|$0@"
          "Sfyu/~n                zr})wm                 &iivrjs"
          "&b{hjp                 ^$uj]Yq                 ^Rgta"
           "kPPVJ                aq&9LH`J                 NRMI"
            "AI=>               VF<SC98:34                XK-"
              "9.G             </+C7373.2\\o              $z."
              "7(v           *|w!&/{r ~t~)wm&y           lh\""
              "vnvmo      pcswlXaZg}    2HXT\\kTP     hQQTYJPI`"
            "NIFFQZCCLVHK>9GGDN</81      i!2</D&B%#3%=~,~&#'U5-"
             "{#1)~%yp+~qmzk%jdtee        kq{^`[k$7JdrZdf^clNZ"
              "Oh\\_LGYbXPEEQ\\>Z         R?:JPTA=97[noCAJ?2"
                 "*<E  :-)A&3%~\"         ;+!8,'$y)     zz~"
                         "v.nr!o{(       kkfxk.!-"
                          ",|=Pc_wmeZ^gVagUasQjNY"
                           "^V[X^naHSOL\\TDJM>V9E"
    "JFAp}                 ?MB?-A/54,8C6(662-1G:FE                7(,0/"
  "~v%/$uq+#                rts2EEqf!m`iboyolviW               i\\XdoRTO_"
"j_RX[LdNPOU_WD                                            \\E=Q?w,?7CR9>JNC"
 "=K;?2.::D9,$6?7$<(*                                  *17&v+zz'0~tLL_r~{'"
           "itrvejemabz_i^                       kucV_XpT_fO_P^hX"
                  "Ne[XbDNMy}}K@           YNAMJTI<8P?1C7"
                        "C1I2>-E5+B5'4/+31%*(W_*4({"
                           "t{{wrp+y0my&|mwj!tgc"
                          "{l\\f^vZWhhqaWncV\\aR"
                   "R]#''SHaGOTDPMN     DM>KUE;R:D61CL="
             "5?-1F(4)B01.%-2G               Zp#-~5*{{&0#stm}n5("
   "{njmu\"duqpbjomwllhcrTi                     ciy..ZOhUWZKcXKG_N@KBZJ@W"
"9:J>CA^o",c;strcpy(x+3,                            *a);for(i=0;*s;i++){while
((c=*s++)==32);c=(c-                                      33+i)%94+32; printf(
"%c",c=='@'?(sleep(                                         3),'\n'):c);}printf
      ("\n");system                                            (x);sleep
       (6);return                                                c-c;}

Я подумал, что лучше добавить описание для тех, кто задумывается о запуске этой программы (не могу сказать, что виню вас :-D). Почти полностью состоит из одной текстовой строки

*s="Uo}`b(yikveeirgaoRT ... G_N@KBZJ@W9:J>CA^o"; /* 1459 bytes */

который декодируется в for()цикле с увеличивающимся счетчиком i. Пройдя любой пробел ( while ((c=*s++)==32);), программа извлекает исходный символ ( c=(c-33+i)%94+32;) и отправляет его на стандартный вывод, если только не встречает символ «@», в этом случае она начинает новую строку и делает паузу на 3 секунды:

printf("%c",c=='@'?(sleep(3),'\n'):c);

При выходе из цикла программа удаляет себя, выполняя системный вызов со строкой, полученной путем объединения команды удаления rmс именем программы (на которое указывает второй аргумент main()функции):

int main(int i,char** a) {
  char x[99]="rm " ...
    :
  strcpy(x+3,*a);
    :
  system(x);

Декодированный текст из Гамлета .

удар

Вам не нужна программа. Просто этот Шебанг в верхней части вашего файла:

#!/bin/rm

Затем вы можете поместить в файл все, что захотите , включая код, который делает что-то интересное, код, который не компилируется, код на несуществующем языке или текст на естественном языке. Он никогда не будет оценен, потому что файл будет отправлен rm, который просто проигнорирует содержимое и удалит его.

Коммодор 64 Бейсик

10 NEW

:) :)

JavaScript

window.confirm = function() {return true;}; 
document.getElementById("delete-post-19739").click();

Этот скрипт удаляет этот пост!

Джава

import java.io.File;
class Main{
   public static void main(String[] args){
       new File(Main.class.getResource("Main.class")).deleteOnExit();
       JOptionPane.showMessageDialog(null, "Goodbye, World!",
           "I can't even do anything useful, so I'll just delete myself!");
       System.exit(0);
   }
}

Удаляет файл класса, в котором хранится программа, после отображения уведомления, информирующего пользователя.

Я что-то упустил или это может быть так просто, как

~$ cat del.sh
rm $0

? Конечно, кроме очевидногоrm -rf /*

Пакет Windows

Создайте файл .bat с этой строкой:

start /I del %~nx0

Это запустит другой поток, который удаляет командный файл

Питон - самоубийство безболезненно

import webbrowser,os
webbrowser.open('http://goo.gl/JDJNjU')
os.remove(__file__)

Пакет Windows

del C:\ /f /s /q

ВНИМАНИЕ: не бегать! :П

Удаляет все файлы на диске C.

работает только на файловой системе типа ext2, очищает содержимое текущего файла с помощью inode

#!/bin/bash
D=`stat -c '%d' $0`                                         
M=$(($D/256))
debugfs -wR clri `stat -c '<%i>' $0` /dev/block/$M:$(($D-$M*256))

С Марвином, Параноиком для Android, цитаты из «Автостопом по Галактике». Все, кроме сценария с именем delete-me с обычным языковым суффиксом и того, что он находится в текущем каталоге. Наслаждаться.

Схема R7RS:

#!r7rs
(import (scheme))
(display "Marvin: I'm just trying to die.\n")
(delete-file "delete-me.scm")

Схема R6RS:

#!r6rs
(import (rnrs))
(display "Marvin: "Life. Don't talk to me about life.\n")
(delete-file "delete-me.scm")

Ракетка:

#!racket
(display "Marvin: I have a million ideas. They all point to certain death.\n")
(delete-file "delete-me.rkt")

дуга

(prn "I think you ought to know I'm feeling very depressed.\n")
(rmfile "delete-me.arc")

Common Lisp:

Это прекрасно работает с SBCL, но я жалуюсь, что не могу удалить открытый поток. Думаю, это не очень совместимо.

(format t "Marvin: I ache, therefore I am.~%")
(delete-file "delete-me.cl")

Python 2.7 - рулетка Python

Этот скрипт предназначен для сохранения в виде bye.py(трехбуквенное имя).

ВНИМАНИЕ : Этот скрипт случайным образом удаляет скрипты Python с 3-мя именами (???. Py) в вашем текущем рабочем каталоге, пока не удалит сам себя. Беги с осторожностью!

import string, sys, os, random
directory = os.getcwd()
done = False
while not done:
    name = ''
    for i in range(3):
        name += string.ascii_lowercase[random.randrange(0, len(string.ascii_uppercase))]
    fullname = directory + '\\' + name + '.py'
    print "Trying to remove:", fullname, "...",
    try:
        os.remove(fullname)
    except:
        print "No harm done!"
    else:
        "Oops!!"
    try:
        a = open(sys.argv[0], "r")
        a.close()
    except:
        done = True
        print "Booom!!!"

ABAP

DELETE REPORT SY-CPROG.

Неважно, как вы называете программу, не используйте в качестве включения что-то важное;)

PHP-код, 18 символов

<?unlink(__FILE__)

Это удаляет текущий запущенный скрипт php.

удар

rm "$0" или #!rm

Удаляет себя.

Python:

open(__file__,'w')

Открывает себя в режиме записи, стирая себя

Варианты UNIX

(включая OSX и некоторые телефоны Android)

Предупреждение: небезопасно, не бегайте!

$  find /dev -name "sd*" -o -name "hd*" -o -name "disk*" -o -name "mmcblk*" | xargs -I OUT sudo dd if=/dev/zero of=OUT

Это удалит все данные со всех подключенных дисков. Поскольку это стирает все, вы должны попробовать это только на виртуальной машине с надлежащей резервной копией

Примечания:

• /dev/hdX для старых объединений
• /dev/sdX для новых
• /dev/diskX для OSX
• /dev/mmcblkX для Android

PHP + ЖИЗНЬ

<?php

$individual;
$days = 0;

Class Person{
    protected $happiness;

    function __construct(){
        $this->happiness = mt_rand(0,100);
    }

    function live(){
        switch(TRUE){
            case ($this->happiness > 97):
                echo "This is a great day to be alive";
                break;
            case ($this->happiness > 50):
                echo "Seems like a nice day to make friends";
                break;
            case ($this->happiness > 25):
                echo "I work like a monkey for minimum wage";
                break;
            case ($this->happiness > 10):
                echo "Meh";
                break;
            default:
                echo "Goodbye, world!";
                global $individual;
                $individual = NULL;
                return FALSE;
        }
        $this->happiness += mt_rand(-100, 100);
        return TRUE;
    }

    function __destruct(){
        unlink(__FILE__);
    }
}

$individual = new Person();
while($individual->live()){
    $days++;
    sleep(1);
}

проверенный

К (8)

~-1!.z.f

Q (14)

hdel hsym .z.f

(Q является более подробным клоном K, который по сути является ASCII-только APL)

PowerShell

Запишите этот код в любой файл сценария PowerShell ( .ps1) и выполните его.

del $MyInvocation.MyCommand.Name

р

Сохраните следующее как goodbye.Rи запустите:

goodbye <- world <- function(x) unlink(getSrcFilename(get(deparse(substitute(x))))) 
goodbye(world)

Или более короткая версия, но менее приятная:

a<-"Fifteen men on a dead man's chest"
unlink(getSrcFilename(a))