Pourquoi la sortie de la console revient-elle au début de la ligne? OU Pourquoi ma concaténation n'est pas concaténante?

Question

J'ai été inspiré par une autre question pour écrire un script (ou plutôt un one-liner) pour récupérer des pages de Wikipédia au hasard.

Voici ce que j'ai jusqu'à présent:

# Grab the HTTP header response from Wikipedia's random page link 
curl 'http://en.wikipedia.org/wiki/Special:Random' -sI 

# Search STDIN for the Location header and grab its content 
perl -wnl -e '/Location: (.*)/ and print $1;' 

Et cela fonctionne. Il génère une URL Wikipedia au hasard à la console. Mais je dois ajouter "? Printable = yes" à cette URL pour obtenir la page Wikipedia sans tout le contenu non-article.

Cependant, en cours d'exécution:

curl 'http://en.wikipedia.org/wiki/Special:Random' -sI | perl -wnl -e '/Location: (.*)/ and print $1 . "?printable=yes";' 

Sorties: imprimable = yespedia.org/wiki/James_Keene_ (footballeur)

Pourquoi mon concaténation pas concaténer?

MISE À JOUR:

Pour les curieux, voici le one-liner dans sa réalisation:

curl `curl 'http://en.wikipedia.org/wiki/Special:Random' -sI | perl -wnl -e '/Location: ([^\r]*)/ and print $1 . "?printable=yes";'` 

Answer 1

curl 'http://en.wikipedia.org/wiki/Special:Random' -sI | perl -wnl -e '/Location: (.*)/ and chomp($1) and print $1 . "?printable=yes";' 

Untested, mais cela devrait fonctionner. Le retour au début de la ligne est provoqué par un caractère "\ r" non autorisé à la fin de la ligne d'emplacement. Le script imprime l'URL Wikipedia, complète avec '\ r' qui retourne au début de la ligne, où il continue d'imprimer ?printable=yes. Chomp va supprimer ce caractère '\ r'.