Perl - Besoin de commentaire sur 3 lignes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Perl - Besoin de commentaire sur 3 lignes

fun_key

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... :fou:

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!

Publicité

Fork Bomb

Obsédé textuel

Ligne 8 --> Tant que différent.
C’est tout ce que je comprend, désolé.

Message cité 1 fois

---------------
Décentralisons Internet-Bépo-Troll Bingo - "Pour adoucir le mélange, pressez trois quartiers d’orange !"

High Plains Drifter

Code :

$| = 1; // Force le flush des sorties après chaque opération (la variable spéciale $| permet de manipuler le comportement des buffers)
while (<> ) { // Équivalent à while (<ARGV> ), perl à cette particularité de permettre d'accéder aux arguments de la ligne de commande via un filehandle, quant à while il charge automatiquement la ligne courante dans la variable spéciale $_
s/^http:/301:https:/; // Par défaut les expressions rationnelles s'appliquent sur la chaîne contenue dans la variable $_
print; // Même chose en l'absence d'autre argument print affiche le contenu de la variable $_
}

Voilà :hello:

---------------
| < Ceci n'est pas une pipe.

black_lord

Modérateur
Truth speaks from peacefulness

Fork Bomb a écrit :

Ligne 8 --> Tant que différent.
C’est tout ce que je comprend, désolé.

raté

tant qu'il y a de l'entrée, remplacer comme dans la regexp et afficher le résultat.

Y'a pas à dire, élever les devs au java, ça les ramollit

Message cité 2 fois

---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me

Fork Bomb

Obsédé textuel

black_lord a écrit :

raté

tant qu'il y a de l'entrée, remplacer comme dans la regexp et afficher le résultat.

Ah merde, c’est la seule ligne qui me disait quelquechose…

black_lord a écrit :

Y'a pas à dire, élever les devs au java, ça les ramollit

Spoiler :

:kaola:

Spoiler :

Dès que je peux, je cherche une boite ou on me fait pas chier avec ce langage…
Il me sort par les yeux, le truc -_-

---------------
Décentralisons Internet-Bépo-Troll Bingo - "Pour adoucir le mélange, pressez trois quartiers d’orange !"

fun_key

black_lord a écrit :

raté

tant qu'il y a de l'entrée, remplacer comme dans la regexp et afficher le résultat.

Y'a pas à dire, élever les devs au java, ça les ramollit

Alors, le <> n'est pas valide en Java, c'est en VB qu'il veut dire <> et certainement quelques autres languages sinistres .

Et sinon, merci bien High Plains Drifter. C'est exactement ce qu'il me fallait.

Vu que j'adore ecrire des trucs compactes et cryptiques, je pense que qu'il va falloir que me mette au PERL, ca cartonne!

Message cité 1 fois
Message édité par fun_key le 27-02-2011 à 12:39:42

High Plains Drifter

Au passage j'étais mal réveillé dans mon premier message, while(<> ) permet de charger une par une dans la variable $_ chaque ligne de chaque fichier passé en paramètre au programme.

Message édité par High Plains Drifter le 27-02-2011 à 19:13:11

---------------
| < Ceci n'est pas une pipe.

black_lord

Modérateur
Truth speaks from peacefulness

fun_key a écrit :

Alors, le <> n'est pas valide en Java, c'est en VB qu'il veut dire <> et certainement quelques autres languages sinistres .
!

[:orly2]

---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me

FORUM HardWare.fr

Linux et OS Alternatifs

Codes et scripts

Perl - Besoin de commentaire sur 3 lignes

Sujets relatifs
Besoin d'avis avant achat de pc assemblé.	Perl - Gestion processus
Pool connexion MySQL Perl/CGI	Besoin d'aide pour installation Linux Ubuntu
Besoin d'aide pour installer Meego sur mon netbook	utiliser la nouvelle version de perl
comparer 2 fichiers avec diff, mais uniquement les lignes	Besoin d'aide pour choix OS gestion d'un nas
Plus de sujets relatifs à : Perl - Besoin de commentaire sur 3 lignes

Page générée en 0.078 secondes