file-type

"Linux DNS配置实训:静态IP分配与BIND服务器搭建步骤"

版权申诉
125KB | 更新于2024-03-27 | 56 浏览量 | 0 下载量 举报 收藏
download 限时特惠:#14.90
本次实训主要是对DNS(Domain Name System)的配置进行学习和实践。DNS是互联网中最重要的基础设施之一,它将域名映射到IP地址,为用户提供了方便快捷的访问方式。在本次实训中,我们首先需要确定要配置成DNS服务器的IP是静态分配的,并且与客户端具有IP的连通性。接着,我们需要安装DNS,并配置BIND服务器。BIND(Berkeley Internet Name Domain)是最常用的DNS服务器软件之一,它能够提供高性能和可靠性的DNS解析服务。 配置DNS的步骤包括编辑"/etc/named.conf"文件,创建并编辑正向区域解析文件和反向区域解析文件。同时,还需要编辑"/etc/resolv.conf"和"/etc/hosts.conf"文件,这些文件包含了与DNS解析相关的配置信息。最后,启动BIND服务器并配置客户端进行测试。在配置过程中,我们要注意检查配置文件的正确性和完整性,确保DNS服务器能够正常运行并提供稳定可靠的服务。 当BIND服务安装完成后,系统会自动生成一些必要的配置文件,如"/etc/named.conf"、"/var/named/named.ca"、"/var/named/named.local"和"/var/named/localhost.zone",但是我们还需要对"/etc/named.conf"进行修改,根据实际需求和网络环境进行相应的配置调整。 通过本次实训,我们深入学习了DNS的配置方法和流程,提高了对网络基础设施的理解和掌握。配置DNS不仅仅是一项技术任务,更是提升网络服务质量和用户体验的重要举措。我们期待能够将所学知识应用到实际工作中,提升自己在计算机网络领域的能力和竞争力。DNS的配置是计算机网络工程师必备的技能之一,通过实际操作和实践,我们将不断提升自己在这一领域的专业水平,为构建高效、稳定的网络环境贡献自己的力量。愿我们在未来的学习和工作中,能够不断挑战自我、突破困难,成为优秀的网络工程师,为推动互联网的发展和进步贡献自己的智慧和力量。

相关推荐

filetype

或者,基于 leiden 聚类可视化PSAP 信号传导通路传导情况,结果存储在adata_dis500.uns['commot_cluster-leide¸ˇn-cellchat-PSAP'] 中。 adata_dis500.obs['leiden'] = adata.obs['leiden'] ct.tl.cluster_communication(adata_dis500, database_name='cellchat', pathway_name='PSAP', clustering='leiden',     n_permutations=100) 我们可以将显著的结果可视化为具有自动节点嵌入的网络。 ct.pl.plot_cluster_communication_network(adata_dis500, uns_names=['commot_cluster-leiden-cellchat-PSAP'],     nx_node_pos=None, nx_bg_pos=False, p_value_cutoff = 5e-2, filename='PSAP_cluster.pdf', nx_node_cmap='Light24') 或者,使用空间节点嵌入。 ct.tl.cluster_position(adata_dis500, clustering='leiden') ct.pl.plot_cluster_communication_network(adata_dis500, uns_names=['commot_cluster-leiden-cellchat-PSAP'], clustering='leiden',     nx_node_pos='cluster', nx_pos_idx=np.array([0, 1]), nx_bg_pos=True, nx_bg_ndsize=0.25, p_value_cutoff=5e-2,     filename='PSAP_cluster_spatial.pdf', nx_node_cmap='Light24') 以上是官网的模板代码,现在分析我自己的h5ad文件有要求:需要跑到ct.tl.cluster_communication这一步得到cluster之间的interaction,这一步里面clustering='leiden'这里需要改成相应的cluster_label. 需要跑每一个lr的,而不是每一个pathway的。需要根据function的api看一下(可以遍历传入lr_pair这个参数)。第一步跑完所有的communication之后,数据在adata.obs里面,比如:adata_dis500.obsp['commot-cellchat-Wnt4-Fzd4_Lrp6'],后面的WNT4,FZD4_LRP6 J就是对应的lr,可以从这里提取评估出来的lr,再去跑cluster。请你帮我分析要求是什么意思?并且根据我的要求怎么修改模板代码?

filetype

修改代码,最后一个sub line无法实现,将它修改好。Sub FormatReleaseNoteAndCreateTextBox() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(“release note”) ' ¸´ÖÆ A7 µ½ A8 ²¢Çå³ý¸ñʽ ws.Range("A8").Value = ws.Range("A7").Value ws.Range("A8").Font.Underline = xlUnderlineStyleNone Dim regEx As Object Set regEx = CreateObject("VBScript.RegExp") Dim cell As Range For Each cell In ws.Range("A8:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) Dim text As String text = cell.Value ' Çå³ýÏÖÓиñʽ cell.Font.Underline = xlUnderlineStyleNone With regEx .Global = True .IgnoreCase = False ' Æ¥Åä·¢¶¯»ú±àºÅ (HES + Êý×Ö) .Pattern = "(HES\s+)(\d+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 5, .Execute(text)(0).length - 4 End If ' Æ¥Åä ESN ±àºÅ (ESN: + Êý×Ö/¶ÌºáÏß) .Pattern = "(ESN:\s+)([\d-]+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 6, .Execute(text)(0).length + 2 End If ' Æ¥Åä S/O ±àºÅ (S/O: + Êý×Ö/б¸Ü) .Pattern = "(S/O:\s+)([\d/]+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 6, .Execute(text)(0).length - 5 End If ' Æ¥Åä GE Engine Services/CSN .Pattern = "(GE Engine Services/CSN)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 1, .Execute(text)(0).length End If ' Æ¥Åä Customer ÐУ¨·ÀÎóÆ¥ÅäÈÕÆÚ£© .Pattern = "(Customer:\s+)(.*?)(?=\s+\d+\s+\w+\s+\d+|$)" If .test(text) Then Dim customerMatches As Object Set customerMatches = .Execute(text) Dim customerMatch As Object For Each customerMatch In customerMatches Dim fullText As String fullText = customerMatch.SubMatches(1) ' ÕÒµ½Ð±¸ÜµÄλÖúͺóÃæµÄÄÚÈÝ Dim slashPos As Long Dim suffix As String slashPos = InStr(fullText, "/") If slashPos > 0 Then ' ͳһÌí¼ÓÈý¸öÏ»®Ïß ApplyFormat cell, customerMatch.FirstIndex + 10 + slashPos, 3 End If Next customerMatch End If ' Æ¥ÅäÈÕÆÚ¸ñʽ (Input/Induct/Release date: + ÈÕÆÚ) .Pattern = "((Input|Induct|Release) date:\s+)(\d+\s+\w+\s+\d+)" If .test(text) Then Dim matches As Object Set matches = .Execute(text) Dim m As Object For Each m In matches ' ½ö¶ÔÈÕÆÚ²¿·Ö£¨SubMatches(2)£©¼ÓÏ»®Ïß ApplyFormat cell, m.FirstIndex + Len(m.SubMatches(0)) + 1, Len(m.SubMatches(2)) Next m End If ' Æ¥Åä TAT ÌìÊý (TAT: + Êý×Ö) .Pattern = "(TAT:\s+)(\d+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 6, .Execute(text)(0).length - 5 End If ' Æ¥Åä·¢»õÈÕÆÚ (Engine dispatch date: + ÈÕÆÚ) .Pattern = "(Engine dispatch date:\s+)(\d+\s+\w+\s+\d+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 23, .Execute(text)(0).length - 22 End If ' Æ¥Åä YTD ÊýÁ¿ (YTD engine output: + Êý×Ö) .Pattern = "(YTD engine output:\s+)(\d+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 20, .Execute(text)(0).length - 19 End If ' Æ¥Åä×ܽø³§ÊýÁ¿ (Total inductions to date: + Êý×Ö) .Pattern = "(Total inductions to date:\s+)(\d+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 27, .Execute(text)(0).length - 26 End If ' Æ¥ÅäÔÚÖÆÆ·ÊýÁ¿ (Total current WIP: + Êý×Ö) .Pattern = "(Total current WIP:\s+)(\d+)" If .test(text) Then ApplyFormat cell, .Execute(text)(0).FirstIndex + 21, .Execute(text)(0).length - 20 End If ' Æ¥Åä (PR-M) ²¢Ìí¼ÓÏ»®Ïß .Pattern = "$PR-M$" If .test(text) Then Dim PRM_matches As Object Set PRM_matches = .Execute(text) Dim PRM_match As Object For Each PRM_match In PRM_matches ApplyFormat cell, PRM_match.FirstIndex + 1, PRM_match.length Next PRM_match End If End With Next cell ' ´´½¨Îı¾¿ò²¢ÉèÖøñʽ Call FormatTextBoxWithLineSpacing End Sub ’ רÓøñʽӦÓú¯Êý Sub ApplyFormat(cell As Range, startPos As Long, length As Long) If startPos > 0 And length > 0 Then With cell.Characters(startPos, length).Font .Underline = xlUnderlineStyleSingle End With End If End Sub Sub FormatTextBoxWithLineSpacing() Dim ws As Worksheet Dim txtBox As Shape Dim cell As Range Dim textRange As TextRange2 Dim i As Long, startPos As Long Dim isUnderlined As Boolean On Error GoTo ErrorHandler ' ÉèÖù¤×÷±í Set ws = ThisWorkbook.Sheets("release note") Set cell = ws.Range("A8") ' ²éÕÒ»ò´´½¨Îı¾¿ò Set txtBox = GetOrCreateTextBox(ws, cell) ' Çå³ýÎı¾¿òÄÚÈÝ txtBox.TextFrame2.textRange.text = "" ' »ñÈ¡Îı¾¿òµÄÎı¾·¶Î§ Set textRange = txtBox.TextFrame2.textRange ' ¸´ÖÆA8µ¥Ôª¸ñÄÚÈݲ¢±£ÁôÏ»®Ï߸ñʽ textRange.text = cell.Value ' ±éÀúµ¥Ôª¸ñÖеÄÿ¸ö×Ö·û£¬¸´ÖÆÏ»®Ï߸ñʽ For i = 1 To Len(cell.Value) ' ¼ì²éµ±Ç°×Ö·ûÊÇ·ñÓÐÏ»®Ïß isUnderlined = (cell.Characters(i, 1).Font.Underline <> xlUnderlineStyleNone) ' Èç¹û×Ö·ûÓÐÏ»®Ïߣ¬ÔÚÎı¾¿òÖÐÓ¦ÓÃÏàͬ¸ñʽ If isUnderlined Then With textRange.Characters(i, 1).Font .UnderlineStyle = msoUnderlineSingleLine End With End If Next i ' ÉèÖöÎÂä¸ñʽ£¨1.5±¶Ðоࣩ With textRange.ParagraphFormat .LineRuleWithin = msoTrue .SpaceWithin = 1.5 ' 1.5±¶Ðоà End With ' ÉèÖÃÎı¾¿ò¸ñʽ FormatTextBox txtBox ' Ñ¡ÖÐÎı¾¿ò txtBox.Select Exit Sub ErrorHandler: MsgBox “´íÎó #” & Err.Number & ": " & Err.Description & vbCrLf & _ “ÇëÈ·±£´æÔÚÃûΪ’release note’µÄ¹¤×÷±í”, vbCritical, “´íÎó” End Sub ’ ´´½¨»ò»ñÈ¡Îı¾¿ò Function GetOrCreateTextBox(ws As Worksheet, cell As Range) As Shape On Error Resume Next Set GetOrCreateTextBox = ws.Shapes(“ReleaseNoteTextBox”) On Error GoTo 0 ' Èç¹ûÎı¾¿ò²»´æÔÚÔò´´½¨ If GetOrCreateTextBox Is Nothing Then Set GetOrCreateTextBox = ws.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=cell.Left, _ Top:=cell.Top, _ Width:=cell.Width * 3, _ Height:=cell.Height * 5) GetOrCreateTextBox.Name = "ReleaseNoteTextBox" End If End Function ’ ÉèÖÃÎı¾¿ò¸ñʽ Sub FormatTextBox(txtBox As Shape) With txtBox ’ ÎÞÌî³äÎޱ߿ò .Fill.Visible = msoFalse .line.Visible = msoFalse ' Îı¾¶ÔÆëºÍ±ß¾à .TextFrame2.VerticalAnchor = msoAnchorTop .TextFrame.MarginBottom = 0 .TextFrame.MarginTop = 0 .TextFrame.MarginLeft = 0 .TextFrame.MarginRight = 0 ' ×Ô¶¯µ÷Õû´óС .TextFrame2.AutoSize = msoAutoSizeShapeToFitText ' ÉèÖÃ×ÖÌ壨¿ÉÑ¡£© With .TextFrame2.textRange.Font .Name = "Arial" .Size = 10 End With End With End Sub Sub line() ActiveSheet.Shapes.Range(Array(“ReleaseNoteTextBox”)).Select Selection.ShapeRange(1).TextFrame2.textRange.Characters(21, 2).Font. _ BaselineOffset = 0.3 Selection.ShapeRange(1).TextFrame2.textRange.Characters(91, 21).Font. _ UnderlineStyle = msoUnderlineSingleLine End Sub

老帽爬新坡
  • 粉丝: 106
上传资源 快速赚钱