Split Funktion (Allgemeines zu Perl)

[thread]6395[/thread]

Split Funktion

Leser: 2

Rambo

2004-07-13 14:59

User since
2003-08-14
803 Artikel
BenutzerIn

user image

Ich habe 2 fragen zum Thema 'split':
1. wie habt ihr das gelernt?
2. Nehmen wir an ich habe folgenden text

#Muellers Wunschliste server = tower bildschirm = 15zoll #Meiers Wunschliste pc = intel cdrom = DVD

Wie kann ich das jetzt in seine Bestandteil zerlegen?
Zuerst
alles was hier nach kommt '#Muellers Wunschliste'
was er will also 'server = tower'
und dann noch die Komponenten 'Server; Bildschirm, PC; etc.'
und zuletzt 'tower; 15 Zoll, intel; etc.'

ich habe schon einiges hier im Forum durch geblättert aber komme noch nicht so richtig dahinter.

Merci

Fürti Rambo

edit pq: #&nnn; eliminiert, tt-tags hinzugefügt\n\n

sri

2004-07-13 15:21

User since
2004-01-29
828 Artikel
BenutzerIn

perldoc -f split
perldoc perlre

http://mojolicio.us/

Free Faq

2004-07-13 17:24

User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]

Ich versteh dich nich ganz...
Spliten tut man so:
@DataSplit = split(/ = /,$Data);
Was ich nicht verstehe, was du mit &â und &â willst :rock:

Haut mich nicht, ich bin ein Noob!

Rambo

2004-07-13 17:31

User since
2003-08-14
803 Artikel
BenutzerIn

user image

ups jetzt sehe ich das erst.

wo kommen diese &#8222 teile her?
das ist nicht das was ich wollte sorry diese &#8222 sachen
muss man sich weg denken das sind zum teil
anführungsstriche "
sorry
fürti rambo

2004-07-13 18:01

User since
2003-08-04
12208 Artikel
Admin1

[quote=Rambo,13.07.2004, 15:31]sorry diese &#8222 sachen
muss man sich weg denken[/quote]
du kannst eigene postings auch editieren, falls dir der button noch nicht
aufgefallen ist.
ich vermute mal, du hast keine richtigen anführungszeichen ' getippt, sondern
` oder so. keine ahnung. liegt wahrscheinlich am browser (MSIE?)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Crian

2004-07-13 18:13

User since
2003-08-04
5872 Artikel
ModeratorIn

Ich glaub diese komischen Zeichen kommen oft von Apple-Benutzern. Ich weiß aber nicht, ob das hier auch der Fall ist.

Mal sehen, wie es mit Sonderzeichen von Opera/Windows aussieht:

' " &´ ` é è ê

Für mich ist nur der eine Akzent (der bei den Backslashes mit auf der Taste ist) durch ein Kaufmannsund-Lattenkreuz-180-Semikolon ersetzt worden, der Rest sieht original aus, bei Euch auch?

...sorry für Off-Topic...\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

ptk

2004-07-13 18:28

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Um ein bisschen mehr OnTopic zu werden...

Code: (dl )

1
2

perl -Mcharnames=:full -e 'warn charnames::viacode(8220)'
LEFT DOUBLE QUOTATION MARK at -e line 1.

Strat

2004-07-13 22:26

User since
2003-08-04
5246 Artikel
ModeratorIn

split nimmt als ersten parameter einen regulaeren ausdruck auf, als zweiten einen string (falls nicht angegeben, wird $_ verwendet) und als dritten die anzahl, wie oft aufgesplittet werden soll. es liefert eine liste der aufgesplitteten werde zurueck (wobei wenn im regulaeren ausdruck was gecaptured wird, das auch zurueckgeliefert wird)

Code: (dl )

my $string = "attribut = wert = 20";
my @list1 = split(/ = /, $string); # 'attribut', 'wert', '20'
my @list2 = split(/ = /, $string, 2); # 'attribut', 'wert = 20'

# wie @list2: am sichersten, weil die leerzeichen relativ gehandhabt werden
# und auch eventuelle tabs keine probleme machen
my @list3 = split(/\s*=\s*/, $string, 2); 

my @list4 = split(/\s*(=)\s*/, $string, 2); # 'attribut', '=', 'wert = 20'

alle klarheiten beseitigt?\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2004-07-14 12:09

User since
2003-08-04
5872 Artikel
ModeratorIn

Schick, dass man im RE vom split wiederum Dinge capturen kann und diese dann mit in die Ergebnisliste wandern wusste ich noch nicht oder habs wieder vergessen :-)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2004-07-13 14:59.