[perl] waarden veranderen in een file

[DaFearLess]

Ik heb het volgende probleem

ik heb een conf file

code:

# Server Settings 
server = 10.0.0.10
nick   = e-Bot
host   = e-bot.fearnet.nl
port   = 6667

# Current Version
versie = 1.0

# Welke Channels ik moet Joinen
channel = #FearNet

# Wie zijn mijn admins.
admin   = FearLess,Evert

en daar wil ik door middel van een perl script

code:

# Server Settings 
server = 10.0.0.10
nick   = e-Bot
host   = e-bot.fearnet.nl
port   = 6667


# Current Version
versie = 1.0

# Welke Channels ik moet Joinen
channel = #FearNet

# Wie zijn mijn admins.
admin   = FearLess,Evert,henk,piet

van maken

en ik heb echt geen idee hoe ik dat moet/kan doen?
kan iemand mij op weg helpen?

[Postman]

Makkie (toch?):

code:

open (APPEND, ">>append.txt") or die "$! error trying to append";
print APPEND "We're adding to the end here.\n", "And here too.\n";

Heb goed Perl gekunt (4 jaar geleden ), dus het kan niet kloppen. Check anders www.perl.com.

[Verwijderd]

dit is wel een beetje heel erg basic,
check perldoc.com

[DaFearLess]

Op zaterdag 20 april 2002 02:08 schreef FlamerX het volgende:
Makkie (toch?):

code:

open (APPEND, ">>append.txt") or die "$! error trying to append";
print APPEND "We're adding to the end here.\n", "And here too.\n";

Heb goed Perl gekunt (4 jaar geleden ), dus het kan niet kloppen. Check anders www.perl.com.

dan krijg ik dit

code:

# Wie zijn mijn admins.
admin   = FearLess,Evert
admin   = FearLess,Evert,henk,piet

hij moet het gewoon vervangen

[maartenba]

Hier ben je wel iets mee...

code:

########################################################
## Vervang elke $search door $replace in $file

sub filereplace {
  ($search,$replace,$file) = @_;

  open(sf,"$file");
  @data = <sf>;
  close(sf);

  open(sf,">$file");
    foreach $dataline (@data) {
    $dataline =~ s/$search/$replace/gi;
    print sf $dataline;
    }
  close(sf);
}

[DaFearLess]

Ja bedankt dat heeft gewerkt

nu alleen nog een vraagje

code:

$dataline =~ s/$search/$replace/gi;

Waar staat die laatste i voor ?
voor de g weet ik

[tomato]

dafearless:

code:

$dataline =~ s/$search/$replace/gi;

Waar staat die laatste i ?

Tussen de 'g' en de ';'

Maar wat de /i modifier doet kun je opzoeken in de docs (of binnen de eerste 20 regels van iedere basic regex tutorial).

[maartenba]

iGNORE cAse...
geen hoofdlettergevoeligheid dus... kan je misschien uitzetten ook...

[muba]

Op zaterdag 20 april 2002 20:13 schreef maartenba het volgende:
iGNORE cAse...
geen hoofdlettergevoeligheid dus... kan je misschien uitzetten ook...

Uiteraard kan je dat uitzetten... wordt dan s/\/gi/\g/gi; oftewel gewoon de i weghalen, d'oh

[tomato]

MUBA: Uiteraard kan je dat uitzetten... wordt dan s/\/gi/\g/gi; oftewel gewoon de i weghalen, d'oh

Je vergeet een /

[muba]

Bah.

s/s\/\\\/gi/\\g/s/\/gi/\/g/gi

Zo, pas die regexp toe op mijn vorige beriggie en volgens mij moettie dan weer kloppen. Jezus wat een zooitje zeg.

[tomato]

MUBA rommelde wat met backslashes

Nog nooit van andere delimiters gehoord zeker?

s_/_!_g;

[muba]

Bah.

s#tomato#zeer irritant verschijnsel#gi;

AS YOU WISH!

Hahah, j/k
Oh wacht:
s#zeer irritant verschijnsel# #gi;

Hohoho!

BTW waarom mag je geen .png als icon gebruiken #!&?