suchen & ersetzen multiline (Allgemeines zu Perl)

[thread]16157[/thread]

suchen & ersetzen multiline

Tags: perl5 regex Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+4 replies

micneu

2011-04-05 14:32

User since
2008-11-27
13 Artikel
BenutzerIn
[default_avatar]

ich habe eine datei, die wird von wpkg erstellt.

Code: (dl )

<wpkg><package id="acrobat8" name="Acrobat Reader 8.1.2" revision="812" reboot="false" priority="10">
		<check type="uninstall" condition="exists" path="Adobe Reader 8.1.2 - Deutsch"/>
		<install cmd="msiexec /q /i &quot;%SOFTWARE%\pkg\adobe\AcroRead.msi&quot; allusers=1">
			<exit code="0"/>
		</install>
		<remove cmd="MsiExec.exe /q /x{AC76BA86-7AD7-1031-7B44-A70500000002}"/>
		<upgrade cmd="msiexec /q /i &quot;%SOFTWARE%\pkg\adobe\AcroRead.msi&quot; allusers=1">
			<exit code="0"/>
			<exit code="3010"/>
		</upgrade>
	</package>
	<package id="ReportViewer" name="Microsoft Report Viewer Redistributable 2008" revision="2" reboot="false" priority="10">
		<check type="uninstall" condition="exists" path="Microsoft Report Viewer Redistributable 2008"/>
		<install cmd="%SOFTWARE%\pkg\wsus\ReportViewer.exe /q">
			<exit code="0"/>
		</install>
		<remove cmd="%SOFTWARE%\pkg\wsus\ReportViewer.exe /qu"/>
	</package>
<package id="pdfcreator" name="PDFCreator" revision="091" priority="0" reboot="false">
		<check type="uninstall" condition="exists" path="PDFCreator"/>
		<install cmd="msiexec /qb /i &quot;%SOFTWARE%\pkg\pdfcreator\PDFCreator-0_9_1_AFPLGhostscript_32bit.msi&quot;"/>
		<install cmd="rundll32 printui.dll,PrintUIEntry /q /ga pdfcreator"/>
		<remove cmd="MsiExec.exe /q /x{0001B4FD-9EA3-4D90-A79E-FD14BA3AB01D}"/>
		<upgrade cmd=""/>
	</package>

....

wie kann ich jetzt den block suchen (finden)

Code: (dl )

<package id="ReportViewer" name="Microsoft Report Viewer Redistributable 2008" revision="2" reboot="false" priority="10">
		<check type="uninstall" condition="exists" path="Microsoft Report Viewer Redistributable 2008"/>
		<install cmd="%SOFTWARE%\pkg\wsus\ReportViewer.exe /q">
			<exit code="0"/>
		</install>
		<remove cmd="%SOFTWARE%\pkg\wsus\ReportViewer.exe /qu"/>
	</package>

mit dem code unten finde ich alles bis zum ende der datei.

Code (perl): (dl )

#!/usr/bin/perl -w

open(INFILE, "</test.xml") or die "Can't open input.txt: $!";
open(OUTFILE, ">output.txt") or die "Can't open output.txt: $!";

my $string = do { local $/; <INFILE> };
my $text = $string;
#print $string;
$text =~ s/(<package id="ReportViewer" name="M.*<\/package>)//ms;
#print $text;
print $&;
print OUTFILE $text;
close INFILE;
close OUTFILE;

hoffe ihr könnt mir helfen.

gruß michael
Last edited: 2011-04-05 14:34:07 +0200 (CEST)

+3 replies

Taulmarill

2011-04-05 14:41

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

Du kannst den RegEx weniger gierig machen, indem du statt nach .* nach .*? suchst. Ansonsten sieht das für mich aus, als ob du lieber einen XML Parser benutzen solltest.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

+2 replies

micneu

2011-04-05 18:15

User since
2008-11-27
13 Artikel
BenutzerIn
[default_avatar]

ok, wie mache ich es mit dem xml-parser?

murphy

2011-04-05 18:45

User since
2004-07-19
1776 Artikel
HausmeisterIn

Sehr bequem zu benutzen ist zum Beispiel CPAN:

XML::LibXML:

Code (perl): (dl )

use 5.010;
use strict;
use warnings;

use XML::LibXML;

my $doc = XML::LibXML->load_xml(IO => \*DATA);
my ($pkg) = $doc->findnodes(q{/wpkg/package[@id = 'ReportViewer']});

if ($pkg) {
    say $pkg->toString;
}
else {
    die 'No such node';
}

__DATA__
<wpkg>
  <package id="acrobat8" name="Acrobat Reader 8.1.2" revision="812" reboot="false" priority="10">
    <check type="uninstall" condition="exists" path="Adobe Reader 8.1.2 - Deutsch"/>
    <install cmd="msiexec /q /i &quot;%SOFTWARE%\pkg\adobe\AcroRead.msi&quot; allusers=1">
      <exit code="0"/>
    </install>
    <remove cmd="MsiExec.exe /q /x{AC76BA86-7AD7-1031-7B44-A70500000002}"/>
    <upgrade cmd="msiexec /q /i &quot;%SOFTWARE%\pkg\adobe\AcroRead.msi&quot; allusers=1">
      <exit code="0"/>
      <exit code="3010"/>
    </upgrade>
  </package>
  <package id="ReportViewer" name="Microsoft Report Viewer Redistributable 2008" revision="2" reboot="false" priority="10">
    <check type="uninstall" condition="exists" path="Microsoft Report Viewer Redistributable 2008"/>
    <install cmd="%SOFTWARE%\pkg\wsus\ReportViewer.exe /q">
      <exit code="0"/>
    </install>
    <remove cmd="%SOFTWARE%\pkg\wsus\ReportViewer.exe /qu"/>
  </package>
<package id="pdfcreator" name="PDFCreator" revision="091" priority="0" reboot="false">
    <check type="uninstall" condition="exists" path="PDFCreator"/>
    <install cmd="msiexec /qb /i &quot;%SOFTWARE%\pkg\pdfcreator\PDFCreator-0_9_1_AFPLGhostscript_32bit.msi&quot;"/>
    <install cmd="rundll32 printui.dll,PrintUIEntry /q /ga pdfcreator"/>
    <remove cmd="MsiExec.exe /q /x{0001B4FD-9EA3-4D90-A79E-FD14BA3AB01D}"/>
    <upgrade cmd=""/>
  </package>
</wpkg>

When C++ is your hammer, every problem looks like your thumb.

View all threads created 2011-04-05 14:32.