Wie entfernen Sie den Einzug von einem einzelnen Element in einem Array - Perl?

Question

@para_text[2] = $mech->xpath('/html/body/form/table/tbody/tr[2]/td[3]/table/tbody/tr[2]/td/table/tbody/tr[1]/td/table/tbody/tr[4]', type => $mech->xpathResult('STRING_TYPE')); 

Ich habe den obigen Code, der die folgenden in diesem Format zurückgibt:

        Sent: 


            30 March 2017 11:59 

Ich brauche es in diesem Format zu sein:

Gesendet: 30. März 2017 11.59

Sie sind Gedankenstriche und nicht nur Leerzeichen, ich habe grep versucht, trim und verschiedene Substitutionsmethoden in anderen Foren und Threads vorgeschlagen, um kein Glück.

Answer 1

Die folgenden Zeilen können verwendet werden, um alle Leerzeichen aus einer mehrzeiligen Zeichenfolge zu kürzen. Ich würde lieber diese Zeilen einfügen, um zu funktionieren.

@para_text[2] =~ s/[\r\n]//gm; # convert multiline to single line 
@para_text[2] =~ s/\s*$//; # remove trailing whitespaces 
@para_text[2] =~ s/^\s*//; # remove preceding whitespaces 
@para_text[2] =~ s/\s+/ /; # merge tabs