6
Qual è l'equivalente Perl per le seguenti chiamate PHP?
$_SERVER["HTTP_HOST"]
$_SERVER["REQUEST_URI"]
Qualsiasi aiuto sarebbe molto apprezzato.
A
risposta
6
Le variabili d'ambiente sono una serie di valori nascosti che il server Web invia ad ogni CGI si esegue. Il tuo CGI può analizzarli e utilizzare i dati che inviano. Le variabili d'ambiente sono memorizzate in un hash chiamato % ENV.
Ad esempio, $ENV{'HTTP_HOST'} darà il nome host del server.
#!/usr/bin/perl
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
EndOfHTML
foreach my $key (sort(keys %ENV)) {
print "$key = $ENV{$key}<br>\n";
}
print "</body></html>";
Per maggiori dettagli vedi CGI Environmental variables
2
Qual è l'ambiente in cui lavori? Se si tratta di CGI script di prova:
use Data::Dumper;
print Dumper \%ENV;
13
altro modo, che environement variabile, è quello di utilizzare CGI:
use strict;
use warnings;
use CGI ;
print CGI->new->url();
Inoltre, offre anche un sacco di manipolazione CGI tale come accedere ai params inviare al tuo cgi, cookie ecc ...
4
Oppure puoi farlo e usa la variabile $ page_url.
my $page_url = 'http';
$page_url.='s' if $ENV{HTTPS};
$page_url.='://';
if($ENV{SERVER_PORT}!=80)
{
$page_url.="$ENV{SERVER_NAME}:$ENV{SERVER_PORT}$ENV{REQUEST_URI}";
}
else
{
$page_url.=$ENV{SERVER_NAME}.$ENV{REQUEST_URI};
}
+0
PERFEZIONE :) Funziona alla grande –
Problemi correlati
- 1. PHP $ _SERVER ['REMOTE_ADDR'] vuoto
- 2. PHP $ GLOBALS mancante $ _SERVER
- 3. $ _SERVER ['PHP_AUTH_USER'] è vuoto
- 4. Che cos'è php $ _SERVER ['REDIRECT_STATUS']?
- 5. PHP $ _SERVER ['REMOTE_ADDR'] mostra IPv6
- 6. PHP: qual è il modo migliore per controllare l'uguaglianza di $ _SERVER ['HTTP_REFERER']?
- 7. È $ _SERVER ['REQUEST_METHOD'] ancora valido?
- 8. qual è la differenza tra $ _SERVER ['REQUEST_URI'] e $ _GET ['q']?
- 9. Tutti i browser supportano PHP $ _SERVER ['HTTP_X_REQUESTED_WITH']?
- 10. cos'è Python equivalente a PHP $ _SERVER?
- 11. Dove impostare PHP $ _SERVER ['DOCUMENT_ROOT'] Trailing Slash?
- 12. Impostazione di un valore $ _SERVER php ($ _SERVER ['something']) utilizzando Apache .htaccess
- 13. quanto è sicuro $ _SERVER ["HTTP_HOST"]?
- 14. Qual è il significato di @_ in Perl?
- 15. Perché $ _SERVER ["PHP_AUTH_USER"] e $ _SERVER ["PHP_AUTH_PW"] non sono impostati?
- 16. $ _SERVER ['HTTP_HOST'] non impostato
- 17. JSP o JavaScript equivalente a $ _SERVER di PHP ["HTTP_HOST"]?
- 18. Cron Job $ _SERVER issue
- 19. di $ _SERVER vars?
- 20. Perché il valore di $ _SERVER ['REQUEST_METHOD'] è sempre GET?
- 21. $ _SERVER ["SCRIPT_URI"] non funziona? alternativa?
- 22. nginx "server" direttiva con più "nome_server" voci: sempre prima è passata al PHP di $ _SERVER [ 'SERVER_NAME']
- 23. Qual è l'ordine di confronto delle stringhe standard di Perl?
- 24. Qual è l'equivalente Python di FindBin di Perl?
- 25. Qual è l'equivalente C# dell'operatore di ripetizione di Perl?
- 26. apache_request_headers() versus $ _SERVER
- 27. Chiama perl da php?
- 28. Esegui perl in PHP
- 29. Alternativa per $ _SERVER ['HTTP_REFERER'] Variabile PHP in MSIE
- 30. Python: Qual è l'equivalente di PHP "=="
Questo ha funzionato alla grande, grazie. Ti capita di conoscere anche l'equivalente Perl della funzione PHP file_get_contents()? Ho giocato con open ma non riesco a farlo accedere a una pagina su un server diverso come fa file_get_contents(). – dandemeyere
@dandemeyere: Quello che facevo di solito era: aprire FILE, $ data = join '', quindi chiudere FILE –
hlynur
La risposta di hlynul riguardo file_get_contents è errata. ha chiesto dandemeyere (e ha avuto una risposta a questa domanda) all'indirizzo http://stackoverflow.com/questions/3413151 –