趣文：程序员的进化史

这篇趣文有一定历史了，应该至少有 10 年了。

公司主营业务：成都做网站、网站建设、外贸营销网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出莲花免费做网站回馈大家。

PS：亮点总是在最后。:)

初中/高中（注：Basic）

 
 
   
  
  10 PRINT "HELLO WORLD"   
  
  20 END

大一（注：Pascal）

 
 
   
  
  (defun hello   
  
    (print   
  
      (cons 'Hello (list 'World))))

大三/大四

 
 
   
  
  program Hallo(output);     
  
     
  
  begin     
  
     
  
      writeln('Hello, world!')     
  
     
  
  end.

入职第一年

 
 
   
  
  #include    
  
  void main(void)   
  
  {   
  
    char *message[] = {"Hello ", "World"};   
  
    int i;   
  
      
  
    for(i = 0; i < 2; ++i)   
  
      printf("%s", message[i]);   
  
    printf("\n");   
  
  }

入职干了几年

 
 
   
  
  #include    
  
  #include    
  
      
  
  class string   
  
  {   
  
  private:   
  
    int size;   
  
    char *ptr;   
  
      
  
  string() : size(0), ptr(new char[1]) { ptr[0] = 0; }   
  
      
  
    string(const string &s) : size(s.size)   
  
    {   
  
      ptr = new char[size + 1];   
  
      strcpy(ptr, s.ptr);   
  
    }   
  
      
  
    ~string()   
  
    {   
  
      delete [] ptr;   
  
    }   
  
      
  
    friend ostream &operator <<(ostream &, const string &);   
  
    string &operator=(const char *);   
  
  };   
  
      
  
  ostream &operator<<(ostream &stream, const string &s)   
  
  {   
  
    return(stream << s.ptr);   
  
  }   
  
      
  
  string &string::operator=(const char *chrs)   
  
  {   
  
    if (this != &chrs)   
  
    {   
  
      delete [] ptr;   
  
     size = strlen(chrs);   
  
      ptr = new char[size + 1];   
  
      strcpy(ptr, chrs);   
  
    }   
  
    return(*this);   
  
  }   
  
      
  
  int main()   
  
  {   
  
    string str;   
  
      
  
    str = "Hello World";   
  
    cout << str << endl;   
  
      
  
    return(0);   
  
  }

大师程序员

 
 
   
  
  [   
  
    uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)   
  
    ]   
  
    library LHello   
  
    {   
  
        // bring in the master library   
  
        importlib("actimp.tlb");   
  
        importlib("actexp.tlb");   
  
      
  
        // bring in my interfaces   
  
        #include "pshlo.idl"   
  
      
  
        [   
  
        uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)   
  
        ]   
  
        cotype THello   
  
     {   
  
     interface IHello;   
  
     interface IPersistFile;   
  
     };   
  
    };   
  
      
  
    [   
  
    exe,   
  
    uuid(2573F890-CFEE-101A-9A9F-00AA00342820)   
  
    ]   
  
    module CHelloLib   
  
    {   
  
      
  
        // some code related header files   
  
        importheader();   
  
        importheader();   
  
        importheader();   
  
        importheader("pshlo.h");   
  
        importheader("shlo.hxx");   
  
        importheader("mycls.hxx");   
  
      
  
        // needed typelibs   
  
        importlib("actimp.tlb");   
  
        importlib("actexp.tlb");   
  
        importlib("thlo.tlb");   
  
      
  
        [   
  
        uuid(2573F891-CFEE-101A-9A9F-00AA00342820),   
  
        aggregatable   
  
        ]   
  
        coclass CHello   
  
     {   
  
     cotype THello;   
  
     };   
  
    };   
  
      
  
    #include "ipfix.hxx"   
  
      
  
    extern HANDLE hEvent;   
  
      
  
    class CHello : public CHelloBase   
  
    {   
  
    public:   
  
        IPFIX(CLSID_CHello);   
  
      
  
        CHello(IUnknown *pUnk);   
  
        ~CHello();   
  
      
  
        HRESULT  __stdcall PrintSz(LPWSTR pwszString);   
  
      
  
    private:   
  
        static int cObjRef;   
  
    };   
  
      
  
    #include    
  
    #include    
  
    #include    
  
    #include    
  
    #include "thlo.h"   
  
    #include "pshlo.h"   
  
    #include "shlo.hxx"   
  
    #include "mycls.hxx"   
  
      
  
    int CHello::cObjRef = 0;   
  
      
  
    CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)   
  
    {   
  
        cObjRef++;   
  
        return;   
  
    }   
  
      
  
    HRESULT  __stdcall  CHello::PrintSz(LPWSTR pwszString)   
  
    {   
  
        printf("%ws   
  
  ", pwszString);   
  
        return(ResultFromScode(S_OK));   
  
    }   
  
      
  
    CHello::~CHello(void)   
  
    {   
  
      
  
    // when the object count goes to zero, stop the server   
  
    cObjRef--;   
  
    if( cObjRef == 0 )   
  
        PulseEvent(hEvent);   
  
      
  
    return;   
  
    }   
  
      
  
    #include    
  
    #include    
  
    #include "pshlo.h"   
  
    #include "shlo.hxx"   
  
    #include "mycls.hxx"   
  
      
  
    HANDLE hEvent;   
  
      
  
     int _cdecl main(   
  
    int argc,   
  
    char * argv[]   
  
    ) {   
  
    ULONG ulRef;   
  
    DWORD dwRegistration;   
  
    CHelloCF *pCF = new CHelloCF();   
  
      
  
    hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);   
  
      
  
    // Initialize the OLE libraries   
  
    CoInitializeEx(NULL, COINIT_MULTITHREADED);   
  
      
  
    CoRegisterClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,   
  
        REGCLS_MULTIPLEUSE, &dwRegistration);   
  
      
  
    // wait on an event to stop   
  
    WaitForSingleObject(hEvent, INFINITE);   
  
      
  
    // revoke and release the class object   
  
    CoRevokeClassObject(dwRegistration);   
  
    ulRef = pCF->Release();   
  
      
  
    // Tell OLE we are going away.   
  
    CoUninitialize();   
  
      
  
    return(0); }   
  
      
  
    extern CLSID CLSID_CHello;   
  
    extern UUID LIBID_CHelloLib;   
  
      
  
    CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-00AA00342820 */   
  
        0x2573F891,   
  
        0xCFEE,   
  
        0x101A,   
  
        { 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }   
  
    };   
  
      
  
    UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-00AA00342820 */   
  
        0x2573F890,   
  
        0xCFEE,   
  
        0x101A,   
  
        { 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }   
  
    };   
  
      
  
    #include    
  
    #include    
  
    #include    
  
    #include    
  
    #include    
  
    #include "pshlo.h"   
  
    #include "shlo.hxx"   
  
    #include "clsid.h"   
  
      
  
    int _cdecl main(   
  
    int argc,   
  
    char * argv[]   
  
    ) {   
  
    HRESULT  hRslt;   
  
    IHello        *pHello;   
  
    ULONG  ulCnt;   
  
    IMoniker * pmk;   
  
    WCHAR  wcsT[_MAX_PATH];   
  
    WCHAR  wcsPath[2 * _MAX_PATH];   
  
      
  
    // get object path   
  
    wcsPath[0] = '\0';   
  
    wcsT[0] = '\0';   
  
    if( argc > 1) {   
  
        mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);   
  
        wcsupr(wcsPath);   
  
        }   
  
    else {   
  
        fprintf(stderr, "Object path must be specified\n");   
  
        return(1);   
  
        }   
  
      
  
    // get print string   
  
    if(argc > 2)   
  
        mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);   
  
    else   
  
        wcscpy(wcsT, L"Hello World");   
  
      
  
    printf("Linking to object %ws\n", wcsPath);   
  
    printf("Text String %ws\n", wcsT);   
  
      
  
    // Initialize the OLE libraries   
  
    hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);   
  
      
  
    if(SUCCEEDED(hRslt)) {   
  
      
  
        hRslt = CreateFileMoniker(wcsPath, &pmk);   
  
        if(SUCCEEDED(hRslt))   
  
     hRslt = BindMoniker(pmk, 0, IID_IHello, (void **)&pHello);   
  
      
  
        if(SUCCEEDED(hRslt)) {   
  
      
  
     // print a string out   
  
     pHello->PrintSz(wcsT);   
  
      
  
     Sleep(2000);   
  
     ulCnt = pHello->Release();   
  
     }   
  
        else   
  
     printf("Failure to connect, status: %lx", hRslt);   
  
      
  
        // Tell OLE we are going away.   
  
        CoUninitialize();   
  
        }   
  
      
  
    return(0);   
  
    }

#p#

新手黑客

 
 
   
  
  #!/usr/local/bin/perl   
  
  $msg="Hello, world.\n";   
  
  if ($#ARGV >= 0) {   
  
    while(defined($arg=shift(@ARGV))) {   
  
      $outfilename = $arg;   
  
      open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";   
  
      print (FILE $msg);   
  
      close(FILE) || die "Can't close $arg: $!\n";   
  
    }   
  
  } else {   
  
    print ($msg);   
  
  }   
  
  1;

有经验的黑客

 
 
   
  
  #include    
  
  #define S "Hello, World\n"   
  
  main(){exit(printf(S) == strlen(S) ? 0 : 1);}

入行干过好些年的黑客

 
 
   
  
  % cc -o a.out ~/src/misc/hw/hw.c   
  
  % a.out

黑客大师

 
 
   
  
  % echo "Hello, world."

新手经理

 
 
   
  
  10 PRINT "HELLO WORLD"   
  
  20 END

中级经理

 
 
   
  
  mail -s "Hello, world." bob@b12   
  
  鲍勃，你能帮我写个输出“Hello, world.”的程序么？   
  
  我明天就要。   
  
  谢谢~

高级经理

 
 
   
  
  % zmail jim   
  
  Jim，我今天下午就要输出 “Hello, world.” 的程序！

CEO/首席执行官

 
 
   
  
  % letter   
  
  letter: Command not found.   
  
  % mail   
  
  To: ^X ^F ^C   
  
  % help mail   
  
  help: Command not found.   
  
  % damn!   
  
  !: Event unrecognized   
  
  % logout

本文标题：趣文：程序员的进化史
文章出自：http://hnjierui.cn/article/dhpcpoo.html

网站建设资讯

趣文：程序员的进化史

其他资讯