Selection aus Array (Allgemeines zu Perl)

[thread]14540[/thread]

Selection aus Array

Leser: 21

Articles: hide open all | hide show old branches

+5 replies

Brenner

2010-01-25 12:47

User since
2009-01-13
87 Artikel
BenutzerIn
[default_avatar]

Ich habe ein array in dem etwas wie hier steht.

Code: (dl )

<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="AUCHNETT\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>

Ich möchte alles was „WICHTIG“ ist in einem neuen array kopieren so das der Inhalt des neuen arrays dann so aussieht

Code: (dl )

<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>

Oder wenn ich „AUCHNETT“ haben will eben so aussieht

Code: (dl )

<Link Name="AUCHNETT\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>

Zum einem muss ich ja irgendwie „WICHTIG“ und „AUCHNETT“ herausfinden und abhängig davon den dazugehörigen Block kopieren.

Die Syntax bleibt immer identisch, also es beginnt mit <Link... ,beinhaltet <Target.... und endet mit </Link>
Last edited: 2010-01-25 12:52:47 +0100 (CET)

bianca

2010-01-25 12:49

User since
2009-09-13
7016 Artikel
BenutzerIn

Du weißt doch inzwischen aus den anderen Threads, wie man Dateien öffnet, Arrays durchläuft und Strings vergleicht.

Was fehlt noch? Sollen wir Dir das Programm fertig schreiben?
10 print "Hallo"
20 goto 10
GwenDragon

2010-01-25 12:54

User since
2005-01-17
14784 Artikel
Admin1

Was soll das sein? HTML, XHTML, XML?

Normalerweise verwendet man einen Parser zum Einlesen der Daten.
XML-Parser oder HTML-Parser wäre die geeigneten Module.
Last edited: 2010-01-25 12:55:57 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
pq

2010-01-25 12:57

User since
2003-08-04
12208 Artikel
Admin1

das ist erstmal kein array, was du da hast, sondern ein string. vielleicht wärst du so nett zu sagen, wie die einzelnen einträge auf das array aufgeteilt sind. ansonsten empfiehlt sich tatsächlich ein xml-parser und xpath als abfragesprache.
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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

renee

2010-01-25 13:08

User since
2003-08-04
14371 Artikel
ModeratorIn

Generell würde ich einen Parser - wie von den anderen schon gesagt - bevorzugen. Hier aber mal eine "naive" Lösung:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

local $/ = "</Link>\n";
while( my $block = <DATA> ) {
    print $block if $block =~ /Name="WICHTIG/;
}

__DATA__
<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="AUCHNETT\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>
<Link Name="WICHTIG\egal\egal\egal" State="1" Timeout="1800" >
<Target Server="ich.bin.der.server" Folder="folder\folder" State="2" />
<Target Server=" ich.bin.der.server.nr2 " Folder="folder\folder" State="2" />
</Link>

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2010-01-25 12:47.