Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8284[/thread]

Zeilenumbrüche in Webseiten entfernen, wie?

Leser: 2


<< |< 1 2 >| >> 16 Einträge, 2 Seiten
rk-ger
 2006-08-31 12:19
#69437 #69437
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich lade mir eine Webseite in einen String. Dann möchte ich alle Zeilenumbrüche entfernen.

Ich habe es hiermit probiert
Code: (dl )
$data =~ s/^\s*(.*?)\s*$/$1/mg;


Der löscht mir zwar die Spaces aber leider nur die Zeilenumbrüche am Anfang der Seite. Doch nach dem <html> sind die Zeilenumbrüche (aber ohne Leerzeichen) immer noch da.

Ich kann den Fehler in meinem Regex eifach nicht finden. Könnt ihr helfen?

Gruß
Richard
nepos
 2006-08-31 12:58
#69438 #69438
User since
2005-08-17
1420 Artikel
BenutzerIn
[Homepage] [default_avatar]
Welche Zeilenumbrueche magst du denn entfernen? Die in HTML waeren ueber
Code: (dl )
<br>
Oder einfach normale Zeilenumbrueche? Das waere dann \n.
rk-ger
 2006-08-31 13:02
#69439 #69439
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
Ich meine die Umbrüche im Text, also \n. Ich dachte, die wären in \s mit drin?
vayu
 2006-08-31 13:04
#69440 #69440
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
\s sind whitespaces ...

wenn du zeileumbrüche raushaben willst nimm \n
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
rk-ger
 2006-08-31 13:23
#69441 #69441
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
Leider kriege ich die Umbrüche nicht raus.
Code: (dl )
$data =~ s/(.*)\n$/$1/mg;

Auch wenn ich mit \n arbeite. Muss ich vielleicht nach \r\n suchen? Wg. Windows.
rk-ger
 2006-08-31 13:27
#69442 #69442
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
Update.

Ich habe es jetzt hinbekommen. Aber mit zwei Zeilen.
Code: (dl )
1
2
$data =~ s/^\s*(.*?)\s*$/$1/mg;
$data =~ s/\r?\n//g;


Geht das auch in einer Zeile?
vayu
 2006-08-31 13:29
#69443 #69443
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
wozu willst du denn die ganzen whitespaces entfernen?

Code: (dl )
$data =~ s/\r?\n//g;


sollte vollkommen ausreichen

wenn du wirklich whitespaces UND zeilenumbrüche raushaben willst machs so

Code: (dl )
$data =~ tr/ \r\n//d;
\n\n

<!--EDIT|vayu|1157016737-->
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
rk-ger
 2006-08-31 13:34
#69444 #69444
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
tr?\n\n

<!--EDIT|rk-ger|1157016916-->
vayu
 2006-08-31 13:35
#69445 #69445
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
translate :)

perldoc perlop
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
rk-ger
 2006-08-31 13:40
#69446 #69446
User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]
Da fällt der Groschen mal wieder Pfennigweise.

Dank an alle. :D :cool:
<< |< 1 2 >| >> 16 Einträge, 2 Seiten



View all threads created 2006-08-31 12:19.