like:start ... like:end: Paar Stück zeilen ausschneiden - #51633 (Allgemeines zu Perl)

polkana

2005-02-11 00:52

User since
2004-06-18
74 Artikel
BenutzerIn

Hallo Leute,
Habe heute eine Software-upgrade gemacht, und sollte ja eine function verbessern.
Allso es war immer bei mir gut funktioniert mit

Code: (dl )

s/$match/$replache/;

es sollte Apache httpd.conf gescannt werden und dann eine <VirtualHost>......</Virtualhost> bei der anfrage loschen.

Und nun wollte ich das verbessern, mit so gennante "Markierung", wo ich z.b mache

Code: (dl )

#domain.de:start
<VirtualHost *:80>
......
</Virtualhost>
#domain.de:end

Wenn das markert ist, dann findet diese funktion die "start" , "end" und dann was zwieschen ist schneidet aus.

Ich sollte das probieren. Trotzdem das war für mich noch eine große Probleme.
Kann Jemand was dazu einfügen?

Code: (dl )

$domain = 'domain.net';
open(F, '< /usr/local/cpanel/text.txt') or die($!);
my @F = <F>;
close(F);
        foreach (@F) {
            if (/\#$domain:start/i)
            {
                #do {                #das funzt nicht... leider 
                #        $line .= ''; #next schneidet nur erste Zeile.
                #} while ($_ !~ /\#$domain:end/i);
            }
                $line .= $_;
        }
print $line;

danke.
Alexander.\n\n