VBScript自动配置Perl 5.14.2+Padre的环境变量

概述VBScript自动配置Perl 5.14.2+Padre的环境变量

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Option ExplicitDim pSysEnvDim objFSOSet pSysEnv = CreateObject("WScript.Shell").Environment("System")Set objFSO=CreateObject("Scripting.fileSystemObject")Function IsMatch(Str,Patrn)    Dim r  Set r = new RegExp  r.Pattern = Patrn    IsMatch = r.test(Str)  Set r = nothing End Function    Sub SetEnv(pPath,pValue)    Dim ExistValueOfPath    IF pValue <> "" Then        ExistValueOfPath = pSysEnv(pPath)        IF Right(pValue,1) = "\" Then pValue = left(pValue,Len(pValue)-1)        If IsMatch(ExistValueOfPath,"\*?" & Replace(pValue,"\","\") & "\?(\b|;)") Then Exit Sub        If ExistValueOfPath <> "" Then pValue = ";" & pValue        pSysEnv(pPath) = ExistValueOfPath & pValue    Else        pSysEnv.Remove(pPath)    End IFEnd SubSetEnv "Path",objFSO.GetFolder(".").Path & "\perl\bin;" & objFSO.GetFolder(".").Path & "\perl\site\bin;" & objFSO.GetFolder(".").Path & "\c\bin"Set pSysEnv = nothingDim oShellSet oShell = WScript.CreateObject("WScript.Shell")oShell.Exec objFSO.GetFolder(".").Path & "\perl\site\bin\padre.exe"Set oShell = nothing

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的VBScript自动配置Perl 5.14.2+Padre的环境变量全部内容，希望文章能够帮你解决VBScript自动配置Perl 5.14.2+Padre的环境变量所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。