程序员的进化--从学生到首席执行官<br /><br /><br />--------------------------------------------------------------------------------<br /><br />作者:王咏刚 来源:Omri&#39;s Computer Humor Page <br /><br /><a href='http://www.cs.bgu.ac.il/~omri/Humor/' target='_blank'>http://www.cs.bgu.ac.il/~omri/Humor/</a><br />-------------------------------------------*/<br /><br /><br />--------------------------------------------------------------------------------<br />中学阶段<br /><br />10 PRINT &quot;HELLO WORLD&quot;<br />20 END<br />--------------------------------------------------------------------------------<br />大学一年级<br /><br />program Hello(input, output)<br />begin<br />writeln(&#39;Hello World&#39;)<br />end.<br />--------------------------------------------------------------------------------<br />大学高年级<br /><br />(defun hello<br />(print<br />(cons &#39;Hello (list &#39;World))))<br />--------------------------------------------------------------------------------<br />初级程序员<br /><br />#include <br />void main(void)<br />{<br />char *message[] = {&quot;Hello &quot;, &quot;World&quot;};<br />int i;<br /><br />for(i = 0; i &lt; 2; ++i)<br />printf(&quot;％s&quot;, message[i]);<br />printf(&quot;\n&quot;);<br />}<br />--------------------------------------------------------------------------------<br />编程老鸟<br /><br />#include <br />#include <br /><br />class string<br />{<br />private:<br />int size;<br />char *ptr;<br /><br />public:<br />string() : size(0), ptr(new char(&#39;{CONTENT}&#39;)) {}<br /><br />string(const string &amp;s) : size(s.size)<br />{<br />ptr = new char[size + 1];<br />strcpy(ptr, s.ptr);<br />}<br /><br />~string()<br />{<br />delete [] ptr;<br />}<br /><br />friend ostream &amp;operator &lt;&lt;(ostream &amp;, const string &amp;);<br />string &amp;operator=(const char *);<br />};<br /><br />ostream &amp;operator&lt;&lt;(ostream &amp;stream, const string &amp;s)<br />{<br />return(stream &lt;&lt; s.ptr);<br />}<br /><br />string &amp;string::operator=(const char *chrs)<br />{<br />if (this &#33;= &amp;chrs)<br />{<br />delete [] ptr;<br />size = strlen(chrs);<br />ptr = new char[size + 1];<br />strcpy(ptr, chrs);<br />}<br />return(*this);<br />}<br /><br />int main()<br />{<br />string str;<br /><br />str = &quot;Hello World&quot;;<br />cout &lt;&lt; str &lt;&lt; end<br /><br />return(0);<br />}<br />--------------------------------------------------------------------------------<br />编程高手<br /><br />[<br />uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)<br />]<br />library LHello<br />{<br />// bring in the master library<br />importlib(&quot;actimp.tlb&quot;);<br />importlib(&quot;actexp.tlb&quot;);<br /><br />// bring in my interfaces<br />#include &quot;pshlo.idl&quot;<br /><br />[<br />uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)<br />]<br />cotype THello<br />{<br />interface IHello;<br />interface IPersistFile;<br />};<br />};<br /><br />[<br />exe,<br />uuid(2573F890-CFEE-101A-9A9F-00AA00342820)<br />]<br />module CHelloLib<br />{<br /><br />// some code related header files<br />importheader();<br />importheader();<br />importheader();<br />importheader(&quot;pshlo.h&quot;);<br />importheader(&quot;shlo.hxx&quot;);<br />importheader(&quot;mycls.hxx&quot;);<br /><br />// needed typelibs<br />importlib(&quot;actimp.tlb&quot;);<br />importlib(&quot;actexp.tlb&quot;);<br />importlib(&quot;thlo.tlb&quot;);<br /><br />[<br />uuid(2573F891-CFEE-101A-9A9F-00AA00342820),<br />aggregatable<br />]<br />coclass CHello<br />{<br />cotype THello;<br />};<br />};<br /><br />#include &quot;ipfix.hxx&quot;<br /><br />extern HANDLE hEvent;<br /><br />class CHello : public CHelloBase<br />{<br />public:<br />IPFIX(CLSID_CHello);<br /><br />CHello(IUnknown *pUnk);<br />~CHello();<br /><br />HRESULT __stdcall PrintSz(LPWSTR pwszString);<br /><br />private:<br />static int cObjRef;<br />};<br /><br />#include <br />#include <br />#include <br />#include <br />#include &quot;thlo.h&quot;<br />#include &quot;pshlo.h&quot;<br />#include &quot;shlo.hxx&quot;<br />#include &quot;mycls.hxx&quot;<br /><br />int CHello::cObjRef = 0;<br /><br />CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)<br />{<br />cObjRef++;<br />return;<br />}<br /><br />HRESULT __stdcall CHello::PrintSz(LPWSTR pwszString)<br />{<br />printf(&quot;％ws\n&quot;, pwszString);<br />return(ResultFromScode(S_OK));<br />}<br /><br />CHello::~CHello(void)<br />{<br /><br />// when the object count goes to zero, stop the server<br />cObjRef--;<br />if( cObjRef == 0 )<br />PulseEvent(hEvent);<br /><br />return;<br />}<br /><br />#include <br />#include <br />#include &quot;pshlo.h&quot;<br />#include &quot;shlo.hxx&quot;<br />#include &quot;mycls.hxx&quot;<br /><br />HANDLE hEvent;<br /><br />int _cdecl main(<br />int argc,<br />char * argv[]<br />) {<br />ULONG ulRef;<br />DWORD dwRegistration;<br />CHelloCF *pCF = new CHelloCF();<br /><br />hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);<br /><br />// Initialize the OLE libraries<br />CoInitializeEx(NULL, COINIT_MULTITHREADED);<br /><br />CoRegisterClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,<br />REGCLS_MULTIPLEUSE, &amp;dwRegistration);<br /><br />// wait on an event to stop<br />WaitForSingleObject(hEvent, INFINITE);<br /><br />// revoke and release the class object<br />CoRevokeClassObject(dwRegistration);<br />ulRef = pCF-&gt;Release();<br /><br />// Tell OLE we are going away.<br />CoUninitialize();<br /><br />return(0);<br />}<br /><br />extern CLSID CLSID_CHello;<br />extern UUID LIBID_CHelloLib;<br /><br />CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-00AA00342820 */<br />0x2573F891,<br />0xCFEE,<br />0x101A,<br />{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }<br />};<br /><br />UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-00AA00342820 */<br />0x2573F890,<br />0xCFEE,<br />0x101A,<br />{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }<br />};<br /><br />#include <br />#include <br />#include <br />#include <br />#include <br />#include &quot;pshlo.h&quot;<br />#include &quot;shlo.hxx&quot;<br />#include &quot;clsid.h&quot;<br /><br />int _cdecl main(<br />int argc,<br />char * argv[]<br />) {<br />HRESULT hRslt;<br />IHello *pHello;<br />ULONG ulCnt;<br />IMoniker * pmk;<br />WCHAR wcsT[_MAX_PATH];<br />WCHAR wcsPath[2 * _MAX_PATH];<br /><br />// get object path<br />wcsPath[0] = &#39;{CONTENT}&#39;;<br />wcsT[0] = &#39;{CONTENT}&#39;;<br />if( argc &gt; 1) {<br />mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);<br />wcsupr(wcsPath);<br />}<br />else {<br />fprintf(stderr, &quot;Object path must be specified\n&quot;);<br />return(1);<br />}<br /><br />// get print string<br />if(argc &gt; 2)<br />mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);<br />else<br />wcscpy(wcsT, L&quot;Hello World&quot;);<br /><br />printf(&quot;Linking to object ％ws\n&quot;, wcsPath);<br />printf(&quot;Text String ％ws\n&quot;, wcsT);<br /><br />// Initialize the OLE libraries<br />hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);<br /><br />if(SUCCEEDED(hRslt)) {<br /><br />hRslt = CreateFileMoniker(wcsPath, &amp;pmk);<br />if(SUCCEEDED(hRslt))<br />hRslt = BindMoniker(pmk, 0, IID_IHello, (void **)&amp;pHello);<br /><br />if(SUCCEEDED(hRslt)) {<br /><br />// print a string out<br />pHello-&gt;PrintSz(wcsT);<br /><br />Sleep(2000);<br />ulCnt = pHello-&gt;Release();<br />}<br />else<br />printf(&quot;Failure to connect, status: ％lx&quot;, hRslt);<br /><br />// Tell OLE we are going away.<br />CoUninitialize();<br />}<br /><br />return(0);<br />} <br />--------------------------------------------------------------------------------<br />黑客初阶<br /><br />#&#33;/usr/local/bin/perl<br />$msg=&quot;Hello, world.\n&quot;;<br />if ($#ARGV &gt;= 0) {<br />while(defined($arg=shift(@ARGV))) {<br />$outfilename = $arg;<br />open(FILE, &quot;&gt;&quot; . $outfilename) || die &quot;Can&#39;t write $arg: $&#33;\n&quot;;<br />print (FILE $msg);<br />close(FILE) || die &quot;Can&#39;t close $arg: $&#33;\n&quot;;<br />}<br />} else {<br />print ($msg);<br />}<br />1;<br />--------------------------------------------------------------------------------<br />黑客有成<br /><br />#include <br />#define S &quot;Hello, World\n&quot;<br />main(){exit(printf(S) == strlen(S) ? 0 : 1);}<br />--------------------------------------------------------------------------------<br />黑客高手<br /><br />％ cc -o a.out ~/src/misc/hw/hw.c<br />％ a.out<br />--------------------------------------------------------------------------------<br />黑客大虾<br /><br />％ cat<br />Hello, world.<br />^D<br />--------------------------------------------------------------------------------<br />初级经理<br /><br />10 PRINT &quot;HELLO WORLD&quot;<br />20 END<br />--------------------------------------------------------------------------------<br />中级经理<br /><br />mail -s &quot;Hello, world.&quot; bob@b12<br />Bob, could you please write me a program that prints &quot;Hello, world.&quot;?<br />I need it by tomorrow.<br />^D<br />--------------------------------------------------------------------------------<br />高级经理<br /><br />％ zmail jim<br />I need a &quot;Hello, world.&quot; program by this afternoon.<br />--------------------------------------------------------------------------------<br />首席执行官<br /><br />％ letter<br />letter: Command not found.<br />％ mail<br />To: ^X ^F ^C<br />％ help mail<br />help: Command not found.<br />％ damn&#33;<br />&#33;: Event unrecognized<br />％ logout<br />--------------------------------------------------------------------------------