[solved] Perl - S///

C

catweasel

Hacker

• 22 Mai 2007

• #1

Hi!

Wie kann man das perlmäßiger schreiben (ohne eine temporäre Datei zu erzeugen)?

Code:

#!/usr/bin/perl

`sed -i 's/a/e/g' /Pfad/Datei`

 

G

ginka

Member

• 22 Mai 2007

• #2

Code:

perl -p -i -e 's/a/e/g' /Pfad/Datei

Viele Grüße
ginka

 

OP

C

catweasel

Hacker

• 22 Mai 2007
• Thread Starter

• #3

Aber wie schreibt man das innerhalb eines Perlskriptes?

 

J

jengelh

Guru

• 22 Mai 2007

• #4

Code:

perl -i -pe ...

Es sollte ja perliger werden 8)

 

A

abgdf

Guru

• 22 Mai 2007

• #5

Das wird am "Tag 9" von "Perl in 21 Tagen" beschrieben.

 

regexer

Advanced Hacker

• 23 Mai 2007

• #6

catweasel schrieb:

Aber wie schreibt man das innerhalb eines Perlskriptes?

Zum Vergrößern anklicken....

Eine Möglichkeit wäre, die Datei komplett in den Hauptspeicher zu lesen (Stichwort: slurp), den Substitute vorzunehmen, und dann komplett wieder zurückzuschreiben.

 

A

abgdf

Guru

• 23 Mai 2007

• #7

Aber wie schreibt man das innerhalb eines Perlskriptes?

Zum Vergrößern anklicken....

Ach so, Du hast Probleme mit Datei-I/O:

Code:

#!/usr/bin/perl

open (IN, "/Pfad/Datei") or die; 
my @a=<IN>;
close IN;

foreach (@a)
{
    $_ =~ s/a/e/g;
}

open (OUT, ">/Pfad/Datei") or die;
print (OUT @a);
close OUT;

Siehe "Tag 15" ...

HTH

 

regexer

Advanced Hacker

• 23 Mai 2007

• #8

Oder so:

Code:

#!/usr/bin/perl
use strict;
local $/;
open (IN, "<x") or die "$!\n";
$_=<IN>;
close IN;
s/a/e/g;
open (OUT, ">x") or die "$!\n";
print OUT;
close OUT;

Aber wie gesagt: Man sollte das nur mit Dateien machen, die auch bequem in den Hauptspeicher passen

 

J

jengelh

Guru

• 23 Mai 2007

• #9

Oder mach's wie -i es macht, mittels rename(), und dann beide gleichzeitig offen haben.

 

OP

C

catweasel

Hacker

• 24 Mai 2007
• Thread Starter

• #10

thx!