Karte mit Split & Schneiden in Perl

Wie verwende ich die Karte mit der split-Funktion zum zuschneiden der Bestandteile: $a, $b, $c und $d; von $line?

my ($a, $b, $c, $d, $e) = split(/\t/, $line);

# Perl trim function to remove whitespace from the start and end of the string
sub trim($)
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

InformationsquelleAutor syker | 2010-07-02

4

Nicht mit Prototypen der ($) auf Ihre Funktion, es sei denn, Sie müssen Sie.
```
my ( $a, $b, $c, $d, $e ) =
  map {s/^\s+|\s+$//g; $_}    ## Notice the `, $_` this is common
  , split(/\t/, $line, 5)
;
```
Vergessen Sie nicht in der oben s/// gibt die Ersatz-zählen-nicht $_. So, wir machen das explizit.

oder mehr einfach:
```
my @values = map {s/^\s+|\s+$//g; $_}, split(/\t/, $line, 5), $line
```
- warum nach unten Stimmen?
- Ich weiß nicht, wieso der downvote, aber Sie vergessen haben, das g am Ende in der letzten Zeile.
- Warum empfehlen Sie gegen Prototypen?
- Lesen Sie diese: stackoverflow.com/questions/297034/... , um es hinzuzufügen, dass niemand anderes tut, und Sie Zeile hinzufügen Lärm. Sie nur brauchen Sie, wenn Ihr versucht, erstellen Sie eine Ebene von Zucker, die Ihnen eine andere nicht-perlish sehen oder fühlen. Sie nicht wirklich umgehen viel anderes, und Sie funktionieren nicht bei allen Methoden.
- Ich schlage vor map { s/^\s+|\s+$//gr } split('\t', $line) einsetzbar von perl 5.14
InformationsquelleAutor Evan Carroll
3

map nimmt zwei Eingänge:
- einen Ausdruck oder block: das wäre die trim Ausdruck (die Sie nicht haben, um schreiben Sie Ihre eigenen-es ist auf CPAN)
- und eine Liste für den Betrieb auf: das sollte split's-Ausgabe:
```
use String::Util 'trim';
my @values = map { trim($_) } split /\t/, $line;
```
- Ich bin nervös über die Einführung einer Abhängigkeit auf ein Modul, welches sagt "Final-version. Ab dieser version String::Util ist nicht mehr in der Entwicklung oder unterstützt."
- Wenn wir gehen, um installieren Sie ein CPAN-Modul, wir könnten genauso gut verwenden Sie die eine, die nicht den job die besten: String::Strip. Siehe illusori.co.uk/perl/2010/03/05/...
- Ich habe es nicht ausprobiert, aber die Nagelprobe für diese Art von Modulen ist, ob Sie Streifen Dinge wie Unicode 0x3000 aus dem string. Wenn nicht, dann vielleicht ist es nicht ein guter Ersatz. Der Blick auf den source-code, String::Strip verwendet die C-Funktion isspace zu Streifen, Räume und hat keine Ahnung von unicode, so dass es sich Verhalten wird, anders als die oben genannten.
InformationsquelleAutor Ether
2

Sollte dies funktionieren:
```
my ($a, $b, $c, $d, $e) = map {trim ($_)} (split(/\t/, $line));
```
Durch die Art und Weise, es ist ein kleiner Punkt, aber Sie sollten nicht verwenden, sondern $a und $b als Variablen-Namen.

InformationsquelleAutor
1

Können Sie auch mit "foreach" hier.
```
foreach my $i ($a, $b, $c, $d, $e) {
  $i=trim($i);
}
```
InformationsquelleAutor Alexandr Ciornii
0

Nur für Abwechslung:
```
my @trimmed = grep { s/^\s*|\s*$//g } split /\t/, $line;
```
grep wirkt wie ein filter auf Listen. Dies ist der Grund, warum die \s+s müssen geändert werden, um \s*s innerhalb der regex. Zwang passt auf 0 oder mehr Leerzeichen verhindert, dass grep aus filtern von Elementen in der Liste, die keine führenden oder nachfolgenden Leerzeichen.
- Aber es wäre nicht gehören Segmente, die umgeben waren von tabs, keine Leerzeichen. "\tspoon\t" würde, weggelassen werden.
- Aus perlretut: "\s entspricht einem whitespace-Zeichen, die gesetzt [\ \t\r\n\f] und andere." Außerdem sind wir nicht die Teilung auf \t hier ;)?
- ja-aber nie Verstand, meine Augen ersetzt \s* mit meiner üblichen \s+. Also die subst entspricht immer und ich weiß nicht, was ich Rede. 😀
InformationsquelleAutor Zaid
0

Wenn ich schneiden Sie ein string ist, habe ich nicht oft das original behalten wollen. Es wäre schön, um die Abstraktion eines sub aber auch nicht zu viel Aufhebens mit temporären Werte.

Es stellt sich heraus, dass wir genau dies tun, als perlsub erklärt:

Alle übergebenen Argumenten zeigen, bis in das array @_. Deshalb, wenn Sie aufgerufen, eine Funktion mit zwei Argumenten, diese werden gespeichert in $_[0] und $_[1]. Das array @_ einem lokalen array, aber seine Elemente sind aliases für die eigentlichen skalaren Parameter. Insbesondere, wenn ein element $_[0] aktualisiert wird, wird das entsprechende argument wird aktualisiert (oder ein Fehler tritt auf, wenn es nicht aktualisierbar).

In deinem Fall trim wird
```
sub trim {
  for (@_) {
    s/^ \s+  //x;
    s/  \s+ $//x;
  }
  wantarray ? @_ : $_[0];
}
```
Denken Sie daran, dass map und for sind cousins, also mit der Schleife in trim brauchen Sie nicht mehr über map. Zum Beispiel
```
my $line = "1\t 2\t3 \t 4 \t  5  \n";    
my ($a, $b, $c, $d, $e) = split(/\t/, $line);    

print "BEFORE: [", join("] [" => $a, $b, $c, $d), "]\n";
trim $a, $b, $c, $d;
print "AFTER:  [", join("] [" => $a, $b, $c, $d), "]\n";
```
Ausgabe:
```
VOR: [1] [ 2] [3 ] [ 4 ] 
NACH: [1] [2] [3] [4]
```
- Könnten Sie erklären, das " =>' die Verwendung von join? Ich habe noch nie gesehen, dass vor?
- Ich werde einen Stich an, den ersten parameter in der Verknüpfung ist ein ganz besonderes, und die anderen werden alle gleich behandelt, die "Fett-Komma" ( => ) gibt nur eine bessere visuelle Trennung als ,. Ich habe es mir aus diesem Grund. Wie in diesem Fall keyword => qw<a list of words> nichts unterscheidet Sie in der Liste erstellt, aber ich bin mir zu zeigen, wie ich bin, denken Sie. Ich verwenden, wenn für diese Zeiten, die ich will, die visuelle Trennung zu porträtieren, was die Semantik.
- Ich benutzte es für visual separation @Axeman beschrieben. Als ich war das schreiben es, ich hatte ursprünglich join(", " => ...), und wenn das Trennzeichen ein Komma enthält, verwende ich gerne das Fett Komma für die Lesbarkeit.
- Mehr lesbar, vielleicht : print "BEFORE: ". join ' ', map { '['.$_.']' } ($a, $b, $c, $d);
InformationsquelleAutor Greg Bacon

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.