信XML，得自信

2011年01月19日陈皓评论 40 条评论 28,092 人阅读

XML可能是计算有史以来最NB的发明了，以至于我们以没有XML的程序是难登大堂的程序，不用XML，你都不好意思当程序员。于是，我们看到了很多很雷人的用法（《信XML，得永生》），当然一些朋友当时并没有看懂，不过我不怪大家，因为我们依然深信使用XML可以让你有强大的Zhuangbility，于是我们有下面这两种相当Geiliable的用法。

一、XML中的XML

这个例子是某公司的一个SOAP实现——我们的Webservice需要返回一个XML字符串，这怎么办呢？其实很容易，因为——XML是无所不能的，那怕是封装自己。

<!-- ED: soap envelope omitted for readability -->
<string xmlns="urn:Initech.Global.Services">
  &lt;CompanyGetConnector&gt;
    &lt;xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema"&gt;
      &lt;xs:element name="InitechGetConnector"&gt;
        &lt;xs:complexType&gt;
          &lt;xs:choice maxOccurs="unbounded"&gt;
            &lt;xs:element name="employees"&gt;
              &lt;xs:complexType&gt;
                &lt;xs:sequence&gt;
                  &lt;xs:element name="EmployerName" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Employee" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Firstname" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Prefix" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Lastname" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Org._unit" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Function" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="E-mail_work" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Telephone_work" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Mobile_work" type="xs:string" minOccurs="0"/&gt;
                  &lt;xs:element name="Birthdate" type="xs:date" minOccurs="0"/&gt;
                  &lt;xs:element name="Hired_since__irt._yearsemployed_" type="xs:date" minOccurs="0"/&gt;
                  &lt;xs:element name="Image" type="xs:base64Binary" minOccurs="0"/&gt;
                &lt;/xs:sequence&gt;
              &lt;/xs:complexType&gt;
            &lt;/xs:element&gt;
          &lt;/xs:choice&gt;
        &lt;/xs:complexType&gt;
      &lt;/xs:element&gt;
    &lt;/xs:schema&gt;

    &lt;employees&gt;
      &lt;EmployerName&gt;
        My Client
      &lt;/EmployerName&gt;
      &lt;Employee&gt;
        100001
      &lt;/Employee&gt;
    &lt;/employees&gt;
  &lt;/CompanyGetConnector&gt;
</string>

二、一切皆为配置

没有hard code这是一个优秀程序员在入门时就要学习的，对于Hard Coder的东西最好写在配置文件中，这样修改这些参数就不需要修改代码而需要重新编译了。自从有了XML之后，我们的配置文件就不在使用像ini文件或是Unix下在conf文件那样的易读，我们认为，使用XML作为配置文件的格式是大势所趋，而且，我们要让我们的代码尽量的可以高度的配置，于是我们出现了下面的代码——这是一个强大的尝试，其标志着，我们完全可以以不久的未来用XML来编写一切语言的代码。

注：下面的代码最强大的应该是XML中的那个SQL。

<add key="sqlSource" value="
    SELECT TOP REPLACE_NUMBER_OF_ROWS_TO_RETRIEVE
           History.handle AS ID_FAX_LOG,
           CASE isnumeric(SUBSTRING (Notes_Doc.Text ,1,8))
              WHEN 1 then SUBSTRING (Notes_Doc.Text ,1,8)
              ELSE NULL END AS ID_STAGE,
           DocumentUsers.UserName AS NM_DOCUMENTUSER_USERNAME,
           DocumentUsers.UserID AS TXT_DOCUMENTUSER_USERID,
           DocumentUserGroups.GroupID AS TXT_DOCUMENTUSERGROUP_GROUPID,
           Documents.UniqueID AS TXT_DOCUMENTS_UNIQUE_ID,
           History.TRDateTime AS DT_HISTORY_TRANSACTION_DATE,
           CASE COALESCE(HistoryPrint.handle,0)
              WHEN 0 THEN
                 CASE COALESCE(HistoryGeneric.handle,0)
                    WHEN 0 THEN
                       CASE COALESCE(HistoryTRX.handle,0)
                          WHEN 0 THEN '??'
                          ELSE
                             CASE (Documents.Flags & 0x10)
                                WHEN 0 THEN 'Send'
                                ELSE 'Recieve'
                                END
                          END
                    ELSE CAST(HistoryGeneric_Short.Data AS varchar(32))
                    END
              ELSE 'Print'
              END AS TXT_TRANSACTION_TYPE,

           CASE COALESCE(HistoryPrint.handle,0)
              WHEN 0 THEN
                 CASE COALESCE(HistoryGeneric.handle,0)
                    WHEN 0 THEN
                       CASE COALESCE(HistoryTRX.handle,0)
                          WHEN 0 THEN '??'
                          ELSE
                             CASE Documents_Term.TermStatStr
                                WHEN 'Success' THEN 'Success'
                                ELSE 'Fail'
                                END
                          END
                    ELSE
                       CASE HistoryGeneric.ErrCode
                          WHEN 0 THEN 'Success'
                       ELSE 'Fail'
                       END
                    END
              ELSE
                 CASE SUBSTRING(HistoryPrint.Msg,1,7)
                    WHEN 'Success' THEN 'Success'
                    ELSE 'Fail'
                    END
              END AS TXT_TRANSACTION_STATUS,

           CASE COALESCE(HistoryPrint.handle,0)
              WHEN 0 THEN
                 CASE COALESCE(HistoryGeneric.handle,0)
                    WHEN 0 THEN
                       CASE COALESCE(HistoryTRX.handle,0)
                          WHEN 0 THEN '??'
                          ELSE COALESCE(HistoryTRX_Term.TermStatStr,CONVERT(varchar,Documents.TermStat))
                          END
                    ELSE REPLACE(REPLACE(CAST(HistoryGeneric_Detail.Data AS varchar(192)) ,'\t',''), '~u', HistoryGeneric.UserID )
                    END
              ELSE HistoryPrint.Msg
              END AS TXT_TRANSACTION_MESSAGE,

           CASE COALESCE(HistoryPrint.handle,0)
              WHEN 0 THEN
                 CASE COALESCE(HistoryGeneric.handle,0)
                    WHEN 0 THEN
                       CASE COALESCE(HistoryTRX.handle,0)
                          WHEN 0 THEN Documents.ElapsedSendTime
                          ELSE
                             CASE COALESCE(HistoryTRX.handle,0)
                                WHEN 0 THEN Documents.ElapsedSendTime
                                ELSE HistoryTRX.ElapsedTime
                                END
                          END
                    ELSE NULL
                    END
              ELSE HistoryPrint.TimeToPrint
              END AS NBR_TRANSACTION_ELAPSEDTIME,

           CASE COALESCE(HistoryGeneric.handle,0)
              WHEN 0 THEN
                 CASE substring(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE
                               (REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
                                  Documents.Destination,' ',''),')',''),'(',''),
                                  '-',''),'/',''),'.',''),'*',''),',',''),';',''),
                                  '\',''),'-',''),1,1)
                    WHEN '1' THEN substring(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
                                            REPLACE(REPLACE(REPLACE( REPLACE(REPLACE(
                                            REPLACE(Documents.Destination,' ',''),')',
                                            ''),'(',''),'-',''),'/',''),'.',''),'*',''),
                                            ',',''),';',''),'\',''),'-',''), 2, len(
                                            REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
                                            REPLACE(REPLACE(REPLACE( REPLACE(REPLACE(
                                            REPLACE(Documents.Destination,' ',''),')',
                                            ''),'(',''),'-',''),'/',''),'.',''),'*','')
                                            ,',',''),';',''),'\',''),'-','')) )
                    ELSE REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
                         REPLACE(REPLACE(REPLACE(Documents.Destination,' ',''),'-',''),')',
                         ''),'(',''),'/',''),'.',''),'*',''),',',''),';',''),'\',''),'-','')
                    END
              ELSE HistoryGeneric.UserID
              END AS TXT_TRANSACTION_DESTINATION,

           CASE (Documents.Flags & 0x8)
              WHEN 0 THEN 'N'
              ELSE 'Y' END AS NBR_DOCUMENTS_DELETED,

           CASE (Documents.Flags & 0x4)
              WHEN 0 THEN 'N'
              ELSE 'Y' END AS NBR_DOCUMENTS_VIEWED,

           /* Fax Destination */
           Documents.ToName AS TXT_DOCUMENTS_TO_NAME,
           Documents.ToContactNum AS TXT_DOCUMENTS_TO_CONTACT_NUM,
           Documents.ToCompany AS TXT_DOCUMENTS_TO_COMPANY,
           Documents.ToCityState AS TXT_DOCUMENTS_TO_CITY_STATE,
           Documents.FaxDIDNum AS TXT_DOCUMENTS_FAX_DID_NUM,
           Documents.FromPhoneNum AS TXT_DOCUMENTS_FROM_PHONE_NUM,
           Documents.GeneralFaxNum AS TXT_DOCUMENTS_GENERAL_FAX_NUM,
           HistoryPrint.NetPrintID AS TXT_HISTORYPRINT_NETPRINTID,

           /* Number of pages */
           DocFiles.NumPages AS NBR_DOCFILES_TOTAL_PAGE_COUNT,
           HistoryTRX.GoodPageCount AS NBR_HISTORYTRX_GOOD_PAGE_COUNT,
           HistoryTRX.BadPageCount AS NBR_HISTORYTRX_BAD_PAGE_COUNT,
           HistoryPrint.PagesPrinted AS NBR_HISTORYPRINT_PAGESPRINTED,
           HistoryPrint.CopiesPrinted AS NBR_HISTORYPRINT_COPIESPRINTED,
           /* location of fax image */ DTConfigurations.ServerName AS TXT_DOCFILES_SERVER_NAME,
           DTConfigurations.ImageDir AS TXT_DOCFILES_IMAGE_DIR,
           DocFiles.BodyFilename AS TXT_DOCFILES_BODY_FILENAME,
           Documents.FCSFile AS TXT_DOCFILES_FCS_FILE,
           REPLACE( DTConfigurations.ImageDir, 'D:\Data', '\\'+ServerName )
              + '\'+DocFiles.BodyFilename+'*' AS TXT_DOCFILES_PATH_BODY_NAME,
           REPLACE( DTConfigurations.ImageDir, 'D:\Data', '\\'+ServerName )
              + '\'+Documents.FCSFile+'*' AS TXT_DOCUMENTS_PATH_FCSFILE,
           Notes_Doc.Text AS TXT_NOTES_DOC_TEXT,
           Notes_CCList.Text AS TXT_NOTES_CCLIST_TEXT,
           DocumentUsers.RouteInfo AS TXT_DOCUMENTUSER_ROUTEINFO,
           DocumentUsers.RouteType AS NBR_DOCUMENTUSER_ROUTETYPE,
           DocumentUsers.EmailAddr AS TXT_DOCUMENTUSER_EMAILADDR,

           /* misc Documents data */
           Documents.CreationTime AS DT_DOCUMENTS_CREATION_TIME,
           Documents.FRFlags2 AS NBR_DOCUMENTS_FRFLAGS2,
           Documents.Flags AS NBR_DOCUMENTS_FLAGS,
           Documents.ErrorCode AS NBR_DOCUMENTS_ERROR_CODE,
           Documents.TermStat AS NBR_DOCUMENTS_TERMSTAT,

           /* misc HistoryTRX data */
           HistoryTRX.RemoteID AS TXT_HISTORYTRX_REMOTE_ID,
           HistoryTRX.RemoteServer AS TXT_HISTORYTRX_REMOTE_SERVER,
           HistoryTRX.Flags AS NBR_HISTORYTRX_FLAGS,
           HistoryTRX.TermStat AS NBR_HISTORYTRX_TERMSTAT,

           /* misc HistoryTRX data */
           HistoryGeneric.ErrCode AS NBR_HISTORYGENERIC_ERRCODE,
           HistoryGeneric.GenType AS NBR_HISTORYGENERIC_GENTYPE,
           HistoryGeneric.UserID AS TXT_HISTORYGENERIC_USERID,

           /* Handles */ Documents.handle AS ID_DOCUMENTS_HANDLE,
           History.handle AS ID_HISTORY_HANDLE,
           HistoryTRX.handle AS ID_HISTORYTRX_HANDLE,
           HistoryGeneric.handle AS ID_HISTORYGENERIC_HANDLE,
           HistoryPrint.handle AS ID_HISTORYPRINT_HANDLE

    FROM Documents
            INNER JOIN Users DocumentUsers ON Documents.OwnerID = DocumentUsers.handle
            INNER JOIN History ON Documents.handle = History.Owner
            LEFT OUTER JOIN DocFiles ON Documents.DocFileDBA = DocFiles.handle
            LEFT OUTER JOIN Groups DocumentUserGroups ON DocumentUsers.GroupID = DocumentUserGroups.handle
            LEFT OUTER JOIN HistoryPrint ON HistoryPrint.handle = History.handle
            LEFT OUTER JOIN HistoryGeneric ON HistoryGeneric.handle = History.handle
            LEFT OUTER JOIN Notes Notes_Doc ON Notes_Doc.handle = Documents.NoteDBA
            LEFT OUTER JOIN Notes Notes_CCList ON Notes_CCList.handle = Documents.CCListDBA
            LEFT OUTER join DTConfigurations ON DTConfigurations.ServerGUID = Documents.ServerGUID
            LEFT OUTER JOIN Globalization HistoryGeneric_Detail ON
               HistoryGeneric_Detail.Namespace = 'RightFax.SQL.HistoryGeneric'
               AND SUBSTRING(HistoryGeneric_Detail.LocKey,5,20) = 'DetailMsg'
               AND SUBSTRING(HistoryGeneric_Detail.LocKey,1,3) = CAST(HistoryGeneric.GenType AS varchar)
               AND HistoryGeneric_Detail.IsoLanguageName = 'en-us'
            LEFT OUTER JOIN Globalization HistoryGeneric_Short ON
               HistoryGeneric_Short.Namespace = 'RightFax.SQL.HistoryGeneric'
               AND SUBSTRING(HistoryGeneric_Short.LocKey,5, 20) = 'ShortMsg'
               AND SUBSTRING(HistoryGeneric_Short.LocKey,1, 3) = CAST(HistoryGeneric.GenType AS varchar)
               AND HistoryGeneric_Short.IsoLanguageName = 'en-us'
            LEFT OUTER JOIN HistoryTRX ON HistoryTRX.handle = History.handle
            LEFT OUTER JOIN (
               SELECT distinct CONVERT(varchar,G.Data) AS TermStatStr,
                      T.StatusCode AS TermStatCode,
                      T.handle AS TermStat
                 FROM Globalization G
                         INNER JOIN TermStatToStatusCode T ON
                            ( G.LocKey = 'HistoryTRX.BTHUSTAT'
                                 + RIGHT('0000'
                                 + LTRIM(RTRIM(CONVERT(char(3),T.StatusCode))), 3)
                              AND G.IsoLanguageName = 'en-us'
                              AND G.LocKey like 'HistoryTRX.BTHUSTAT%' )
                  ) AS HistoryTRX_Term ON HistoryTRX.TermStat = HistoryTRX_Term.TermStat
            LEFT OUTER JOIN (
               SELECT distinct CONVERT(varchar,G.Data) AS TermStatStr,
                      T.StatusCode AS TermStatCode,
                      T.handle AS TermStat
                 FROM Globalization G
                         INNER JOIN TermStatToStatusCode T ON
                            ( G.LocKey = 'HistoryTRX.BTHUSTAT'
                                 + RIGHT('0000'
                                 + LTRIM(RTRIM(CONVERT(char(3),T.StatusCode))), 3)
                              AND G.IsoLanguageName = 'en-us'
                              AND G.LocKey like 'HistoryTRX.BTHUSTAT%' )
                  ) AS Documents_Term ON Documents.TermStat = Documents_Term.TermStat
    WHERE
       NOT (
          /* The outer join on the HistoryPrint, HistoryGeneric, and HistoryTRX results in
           * rows that just have null history data. One of the three must have a value. If
           * all are null, the row is a result of the outer joins and the rows have no useable data so they
           * filtered out. */
          HistoryTRX.handle IS NULL
             AND HistoryGeneric.handle IS NULL
             AND HistoryPrint.handle IS NULL )
       AND DocumentUsers.UserName IS NOT NULL

       /* THIS VALUE is inserted into a NON NULL column in the FAX_LOG table. */
       AND DocumentUsers.UserID IS NOT NULL

       /* THIS VALUE is inserted into a NON NULL column in the FAX_LOG table. */
       AND Documents.UniqueID IS NOT NULL

       /* THIS VALUE is inserted into a NON NULL column in the FAX_LOG table. */
       AND History.TRDateTime > 'REPLACE_WHERE_CLAUSE_CRITERIA'
   ORDER BY History.TRDateTime"
/>

来源：文章一，文章二

（转载本站文章请注明作者和出处酷壳 – CoolShell ，请勿用于任何商业用途）

( 8 人打了分，平均分： 3.38 )

《信XML，得自信》的相关评论

toperray 说道：

2011年01月19日 11:35

没必要这么讽刺XML，事实上是用错地方而已。

回复
darasion 说道：

2011年01月19日 18:08

malegebazide 谁这么写。。。

回复
zooze 说道：

2011年01月20日 07:12

@toperray XML 本来就又复杂又笨拙，为什么不能讽刺。

自从用上了 JSON，既不牙疼也不头疼了

回复
TaoGOGO 说道：

2011年01月20日 09:15

我也喜欢json，感觉xml好多冗余的东西

回复
gg 说道：

2011年01月20日 09:23

YML没压力

回复
mickey 说道：

2011年01月20日 10:20

xml是无法被JSON所替代的

回复
无缺说道：

2011年01月20日 15:18

zhuangbility,geiliable… …

回复
雨碎江南 说道：

2011年01月20日 21:57

XML被过度的大材小用了.

回复
神仙说道：

2011年01月20日 22:05

这个sql太彪悍了……

回复
程序员 说道：

2011年01月20日 23:00

就像ejb开始被反思，不可指责的xml现在也终于被反思了。层次的描述格式，分析起来是很要命的！

回复
Pingback： Android将允许纯C/C++开发应用 | 酷壳 - CoolShell.cn
sdfsdfsdf 说道：

2011年01月24日 13:58

xml真好，嘿嘿

回复
Pingback： Android将允许纯C/C++开发应用 | liansi.org
toperray 说道：

2011年01月27日 11:08

@zooze
XML最关键的用途是语义标引，这样用是用错地方了。

回复
Pingback：那些炒作过度的技术和概念 | 酷壳 - CoolShell.cn
Pingback： Android将允许纯C/C++开发应用 | 傲狐人生,走向世界
zhuwenger 说道：

2011年02月14日 17:01

把SQL作为一个属性值确实有点恶心，ibatis做得比较好，以一个元素的内容来装SQL代码，不过还是很容易会出错的。

回复
Pingback： [转]Android将允许纯C/C++开发应用 | cosyattic.com
Pingback：纯文本配置还是注册表 | 酷壳 - CoolShell.cn
Pingback：如何写出无法维护的代码 | 酷壳 - CoolShell.cn
Pingback：写代码的注意事项 zt | KerwinWong
Kouga 说道：

2011年06月04日 00:47

往数据库里面写Lua原始代码滴路过喵……

回复
Pingback：如何写出无法维护的代码 _ 见天那点事_jiantian
Pingback：如何写出无法维护的代码 | 技术大类 | monque //一个技二代的博客
红熊猫 说道：

2011年10月30日 01:49

还是那个SQL语句牛逼。

回复
逸海浮云 说道：

2011年11月07日 17:59

这代码看的我跳楼的想法都有了！！

回复
Pingback： Android将允许纯C/C++开发应用 | Fun!
ping.bao 说道：

2012年06月21日 23:43

哈哈 , 很符合我的审美

回复
Pingback：如何写出无法维护的代码 | Sean's Blog
wan 说道：

2013年04月22日 01:43

这里有篇以XML为开始介绍LISP的文章，看之后才发现两者结构原来这么相似
http://www.cnblogs.com/Leap-abead/articles/762180.html

回复
Jeremie 说道：

2013年11月03日 14:09

好夸张的sql

回复
Pingback： Android将允许纯C/C++开发应用 | multiprocess
Pingback： Android将允许纯C/C++开发应用 - 故事狒
Pingback：怎么用xml传输html？ | segment-解决方案
Coffee 说道：

2015年05月06日 16:23

倒觉不如自定义二进制协议！

回复
zjh 说道：

2015年09月12日 17:49

132行少了个换行

回复
Pingback：如何写出无法维护的代码
DHclly 说道：

2018年09月12日 17:42

如果json一开始考虑了注释的问题话，应该可以完全取代xml，当前，json的注释也可以通过一些前缀/后缀来表示,如

{“role”:1,”role_memo”:”this is the role type”}

但是始终不统一。

回复
meowhuang 说道：

2020年03月21日 20:06

最近在将 rss 迁移到自建的 RSS reader 上，发现皓叔的rss 源挂了。开始以为是 RSS reader 的问题，尝试提了个 issue ，很快有人回复是皓叔 rss 的 xml 有问题。

所以想反馈给皓叔

https://github.com/FreshRSS/FreshRSS/issues/2828

(py3) ➜ curl -s https://coolshell.cn/feed | xmllint –

-:564: parser error : CData section not finished

<img class=”alignright wp-image-20548 size-sup_
��强沟通的心态，就会比封闭抵制敌对的心态要好得多得多，
^
-:564: parser error : PCDATA invalid Char value 8
��强沟通的心态，就会比封闭抵制敌对的心态要好得多得多，
^
-:564: parser error : Opening and ending tag mismatch: encoded line 558 and p
��基准线”和“乱基准线”，这种方式需要我们小心分辨。</p
^
-:593: parser error : AttValue: ” or ‘ expected
<img src=https://coolshell.cn/wp-content/uploads/2020/03/cools
^

回复
1. 陈皓说道：
  
  2020年03月27日 15:18
  
  应该可以了。你看看！
  
  回复