如何用perl 计算出C 的所有组合

如何用perl 计算出C 的所有组合

先上文件
文件中已经获得清单
我利用的是 VBA SQL 生成，完整代码如下：
Sub admin()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")

Select Case Application.Version * 1
Case Is <= 11
    conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                            "Extended Properties=Excel 8.0;" & _
                            "Data Source=" & ThisWorkbook.Path & "" & ThisWorkbook.Name
Case Is >= 12
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Extended Properties=Excel 8.0;" & _
                            "Data Source=" & ThisWorkbook.Path & "" & ThisWorkbook.Name
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select

conn.Open

sSql = "Select A.Êý×Ö & " " & B.Êý×Ö & " " & C.Êý×Ö & " " & D.Êý×Ö & " " &  E.Êý×Ö  From [Sheet1$] A,[Sheet1$] B,[Sheet1$] C,[Sheet1$] D,[Sheet1$] E Where A.Êý×Ö < B.Êý×Ö And B.Êý×Ö < C.Êý×Ö And C.Êý×Ö < D.Êý×Ö And D.Êý×Ö < E.Êý×Ö"
Range("C2:C" & Cells.Rows.Count).ClearContents
Range("C2").CopyFromRecordset conn.Execute(sSql)
conn.Close
Set conn = Nothing
End Sub