---

Hej,

Nogle der kan hjælpe med et søg og erstat script som bruger regulære
expressions?

streng1: textstreng

skal erstattes med

streng1: textstreng
streng2: textstreng

På forhånd tak

Michael

---

Nedenstående Perl script klarede det.

Tak for "hjælpen"

Mvh Michael


#!/usr/bin/perl

$inputfile = "test.txt";
$outputfile = "test2.txt";
$str1 = "str1: ";
$str2 = "str2: ";

open INP, '<', $inputfile or die "Cannot open: $inputfile\n";
open OUTP, '>', $outputfile or die "Output file ($outputfile) already
exists\n";

my $line;
my $newline;

while($line = <INP>) {
$_ = $line;
print OUTP $line;
if ( $_ =~ /^$str1*/ ) {
    s/$str1/$str2/;
    print OUTP $_;
   }
}
close(OUTP);
close(INP);


Michael Jenner wrote:
> Hej,
>
> Nogle der kan hjælpe med et søg og erstat script som bruger regulære
> expressions?
>
> streng1: textstreng
>
> skal erstattes med
>
> streng1: textstreng
> streng2: textstreng
>
> På forhånd tak
>
> Michael
>

---

Michael Jenner wrote:
> > Nogle der kan hjælpe med et søg og erstat script som bruger regulære
> > expressions?
> >
> > streng1: textstreng
> >
> > skal erstattes med
> >
> > streng1: textstreng
> > streng2: textstreng

sed 's/^streng1/streng2/' indfil > udfil

Skulle kunne gøre det. Det har nu ikke så meget med regulære udtryk at
gøre. Men jeg tror at grunden til at du ikke fik så megen "hjælp", var
at det var lidt svært at forstå, præcis hvad du ville. Jeg var i hvert
fald i tvivl.

--
Lars Kongshøj
http://www.kongshoj.com/

---

Lars Kongshøj <lars_kongshoj@hotmail.com> writes:

> sed 's/^streng1/streng2/' indfil > udfil

Det gør ikke det samme som perlscriptet i det indlæg du svare på.

perl -ple 's/^streng1:(.*)/streng1:$1\nstreng2:$1/' fil1 > fil2

Jeg plejer at have småproblemer med at få noget til at virke med sed
og man kan heller ikke forvente at sed kan lave
inline-redigering. derfor foretrækker jeg (også) perl til det problem.

--
Peter Makholm | I laugh in the face of danger. Then I hide until
peter@makholm.net | it goes away
http://hacking.dk | -- Xander

---

Peter Makholm wrote:
> Lars Kongshøj <lars_kongshoj@hotmail.com> writes:
> > sed 's/^streng1/streng2/' indfil > udfil
> Det gør ikke det samme som perlscriptet i det indlæg du svare på.
> perl -ple 's/^streng1:(.*)/streng1:$1\nstreng2:$1/' fil1 > fil2

Nej, så fik jeg vist alligevel misforstået opgaven. Så i stedet for sed
skal man mindste have fat på storebror awk.

> Jeg plejer at have småproblemer med at få noget til at virke med sed
> og man kan heller ikke forvente at sed kan lave
> inline-redigering. derfor foretrækker jeg (også) perl til det problem.

En ubegribelig mangel ved sed. Den findes dog i super-sed, som vist
senere skal overtage rollen som gnu sed.

--
Lars Kongshøj
http://www.kongshoj.com/