如何在Perl腳本中獲取當前域名,即與PHP變量$_SERVER['HTTP_HOST']
等效的Perl代碼?
-1
A
回答
8
單獨使用主機名幾乎是沒有用的,您還需要服務器端口,組合中暱稱爲netloc。很可能你需要這個值來構建一個到腳本的URI。這已經包含在框架中,不需要手動完成。爲以下兩種方式編碼樣本。
在PSGI,讀出的 「可變」 HTTP_HOST
從PSGI環境哈希(或者,SERVER_NAME
和SERVER_PORT
),或撥打uri
method in Plack::Request。
use Plack::Request qw();
my $app = sub {
my ($env) = @_;
my $req = Plack::Request->new($env);
return [200, ['Content-Type' => 'text/plain'], [
sprintf "Host: %s\nURI: %s", $env->{HTTP_HOST}, $req->uri
]];
};
在CGI,結合POSIX環境變量SERVER_NAME
and SERVER_PORT
,或致電url
方法。
use CGI qw();
my $c = CGI->new;
print $c->header('text/plain');
print "Host: $ENV{SERVER_NAME}:$ENV{SERVER_PORT}\n";
print "URI: " . $c->url;
+0
對於'CGI :: url' /'Plack :: Request :: uri' +1。 –
相關問題
- 1. 什麼是PHP的$ _SERVER [...]的Perl等價物?
- 2. 什麼是perl中$ _的php等價物?
- 3. JSP或JavaScript等價於PHP的$ _SERVER [「HTTP_HOST」]?
- 4. 什麼是PHP的proc_open(),proc_close()等Perl的等價物?
- 5. 什麼是PHP的preg_quote的等價物?
- 6. 什麼是PHP的preg_quote函數的perl等價物?
- 7. 什麼是PHP var_dump的.NET等價物?
- 8. 什麼是PHP $ _ENV的Ruby等價物?
- 9. 什麼是PHP flush()的Java等價物?
- 10. 這個Perl腳本的PHP等價物是什麼?
- 11. 什麼是PHP的$ _SERVER ['DOCUMENT_ROOT']在Java中的等效物
- 12. Ruby的等價物的$ _SERVER ['REQUEST_URI']
- 13. Perl中bash導出的等價物是什麼?
- 14. 什麼是android中的dataWithContentsOfURL等價物?
- 15. RDFlib中rdf:ID的等價物是什麼?
- 16. Monotouch中的CGPDFDocumentGetCatalog等價物是什麼?
- 17. 什麼是C++中的instanceof等價物?
- 18. 什麼是VC7中的strtok_s等價物?
- 19. jquery中Ajax.updater的等價物是什麼?
- 20. 什麼是JSP中的sendmail等價物?
- 21. jQuery中Class.create()的等價物是什麼?
- 22. python中'gem'的等價物是什麼?
- 23. 什麼是MSTest中MbUnit.Framework.RowAttribute的等價物?
- 24. JQuery中innerHTML的等價物是什麼?
- 25. WinRT中SecureString的等價物是什麼?
- 26. java中fopen_s()的等價物是什麼?
- 27. Bindingsource中EOF的等價物是什麼?
- 28. 什麼是Java中的「ByRef」等價物?
- 29. java中cin.ignore()的等價物是什麼?
- 30. Swift中@autoreleasepool的等價物是什麼?
當要求技術中的等價物時,請用兩個名稱標記它。提供文件或描述,以便不僅知道雙方都可以回答的人,還有隻知道其中一個人的人。我編輯了這個問題來改善這一點。 – daxim