---

Hej gutter og gutinder...

Er der nogle der er i besidelse af et search & replace perl script....? Det
skal kunne modtage følgende syntax: scriptnavn [old string] [new string]
filename(s)


/thomas

---

In <92v2t9$1ut$1@news.inet.tele.dk> "Thomas Albech" <thomas@albech.dk> writes:

>Hej gutter og gutinder...

>Er der nogle der er i besidelse af et search & replace perl script....? Det
>skal kunne modtage følgende syntax: scriptnavn [old string] [new string]
>filename(s)


Det kan klares paa en linie:
perl -pe " s/Martin/Kurt/g; " x.txt y.txt >z.txt
Vil erstatte alle forekomster af Martin med Kurt i filerne x.txt og y.txt og
gemme resultatet i z.txt.

Hvis du vil have mere hjaelp fra mig skal du hente betale eller laes
lidt i en perl-bog selv.

Mvh
Martin

---

Hej

Jeg går tilfældigvis også og leder efter et script eller nogle
dokumenter om hvordan man søger og erstatter med perl.

Der er bare den detalje at funktionen skal bruges i et compileret
perlscript på en computer der ikke har perl installeret. Derfor kan
jeg ikke bruge metoden som Martin beskrev.

Hvis i har nogle forslag til hvad jeg ellers kan gøre vil jeg blive
lykkelig

MVH Aslak Ransby

---

Aslak Ransby <aslak-ransby@get2net.dk> writes:
> Der er bare den detalje at funktionen skal bruges i et compileret
> perlscript på en computer der ikke har perl installeret. Derfor kan
> jeg ikke bruge metoden som Martin beskrev.
>
> Hvis i har nogle forslag til hvad jeg ellers kan gøre vil jeg blive
> lykkelig

Martin skrev (med Klaus' hjælp):

perl -pi -e " s/Martin/Kurt/g; " x.txt y.txt

Thorbjørn skrev:

perldoc perlrun

Sidstnævnte siger:

From the shell, saying

$ perl -p -i.orig -e "s/foo/bar/; ... "

is the same as using the program:

#!/usr/bin/perl -pi.orig
s/foo/bar/;

which is equivalent to

#!/usr/bin/perl
$extension = '.orig';
LINE: while (<>) {
if ($ARGV ne $oldargv) {
if ($extension !~ /\*/) {
$backup = $ARGV . $extension;
}
else {
($backup = $extension) =~ s/\*/$ARGV/g;
}
rename($ARGV, $backup);
open(ARGVOUT, ">$ARGV");
select(ARGVOUT);
$oldargv = $ARGV;
}
s/foo/bar/;
}
continue {
print; # this prints to original filename
}
select(STDOUT);

God fornøjelse.
--
Lars Balker Rasmussen "Woo hoo!?"

---

Tak :)

MVH Aslak Ransby

On 17 Jan 2001 22:08:28 +0100, Lars Balker Rasmussen <lars@balker.org>
wrote:

>Aslak Ransby <aslak-ransby@get2net.dk> writes:
>> Der er bare den detalje at funktionen skal bruges i et compileret
>> perlscript på en computer der ikke har perl installeret. Derfor kan
>> jeg ikke bruge metoden som Martin beskrev.
>>
>> Hvis i har nogle forslag til hvad jeg ellers kan gøre vil jeg blive
>> lykkelig
>
>Martin skrev (med Klaus' hjælp):
>
> perl -pi -e " s/Martin/Kurt/g; " x.txt y.txt
>
>Thorbjørn skrev:
>
> perldoc perlrun
>
>Sidstnævnte siger:
>
> From the shell, saying
>
> $ perl -p -i.orig -e "s/foo/bar/; ... "
>
> is the same as using the program:
>
> #!/usr/bin/perl -pi.orig
> s/foo/bar/;
>
> which is equivalent to
>
> #!/usr/bin/perl
> $extension = '.orig';
> LINE: while (<>) {
> if ($ARGV ne $oldargv) {
> if ($extension !~ /\*/) {
> $backup = $ARGV . $extension;
> }
> else {
> ($backup = $extension) =~ s/\*/$ARGV/g;
> }
> rename($ARGV, $backup);
> open(ARGVOUT, ">$ARGV");
> select(ARGVOUT);
> $oldargv = $ARGV;
> }
> s/foo/bar/;
> }
> continue {
> print; # this prints to original filename
> }
> select(STDOUT);
>
>God fornøjelse.