Hello,
J'ai trouvé un petit bout de code perl qui fonctionne très bien, mais que j'aimerais modifier.
Le truc c'est que je suis incapable de le comprendre malgré mes bonnes connaissances Java, c & co. Et vu la syntaxe barbare je m'en sors pas avec google...
Y aurait-il une ame charitable pour me commenter ces 3 lignes que je puisse commencer?
Code :
- #!/usr/bin/perl
- #
- # URL rewriter for squid to convert HTTP requests to HTTPS.
- # Return an HTTP permanent redirect back to the browser.
- # http://wiki.squid-cache.org/SquidFaq/SquidRedirectors
- #
- $| = 1; // J'imagine qu'il lit le 1er arg, mais il le met ou?!
- while (<> ) { // WTF, c'est quoi cette condition?!
- s/^http:/301:https:/; # replace "http" with "https" Je vois bien que c'est un regex, mais elle est appliquée sur quoi?
- print; // Dans mon petit monde à moi, on print qqch, une variable, un literal, pas juste rien :/
- }
|
Le script modifie une string apparament recue en argument et replace http par https. Je voudrais en plus modifier le port de destination dans l'URL. P.ex http://test/salut => https://test:1337/salut.
A votre bon coeur!