Perl删除新行

Question

I cant seem to remove the new line from an output I get by executing a command on linux server and have tried several different ways

heres my code 1st try

$location = `curl -m 5 -sI 216.58.219.206 | grep "Location:"`;
chomp ($location);
print "before\n";
print "$location";
print "after\n";

output, Doesnt work, it gets printed with a new line.

before
Location: http://www.google.com/
after

2nd try

$location = `curl -m 5 -sI 216.58.219.206 | grep "Location:"`;
$location =~ s/\n//g;
print "before\n";
print "$location";
print "after\n";

Output, still doesn't work.

before
Location: http://www.google.com/
after

Raw Shell output

[user@localhost dir]# curl -m 5 -sI 216.58.219.206 | grep "Location:"
Location: http://www.google.com/
[user@localhost dir]#

Doesnt work either, I still see a new line. Am I missing something?

Answer 1

The curl response is coming back with \\r\\n instead of just \\n .

Use od (octal-dump) to see for yourself ( -c means show characters):

curl -m 5 -sI 216.58.219.206 | grep Location: | od -c
0000000   L   o   c   a   t   i   o   n   :       h   t   t   p   :   /
0000020   /   w   w   w   .   g   o   o   g   l   e   .   c   o   m   /
0000040  \r  \n
0000042

You will need to remove both characters.

$location =~ s|\s*$||;  # Remove all trailing whitespace

Answer 2

您可以使用tr删除制表符，空格，换行符和回车符

curl -m 5 -sI 216.58.219.206 | grep Location: | tr -d '\011\012\040'