---
title: "Perl"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19083-perl"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Sebek"
published: "2000-06-30T09:30:00.000Z"
updated: "2000-06-30T17:39:00.000Z"
replies: 2
views: 370
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19083-perl"
---

# Perl

## #1 — Sebek, 2000-06-30T09:30Z

Hej jag vore tacksam om någon skull vilja svara på detta.

Jag hittade ett exempel i en bok som byter ut alla ord som heter tex Karl och byter dem mot Kalle. 

Det ser ut så här,
\---------------
\#!/usr/bin/perl

while (\<\> ) {
s/Karl/Kalle/g;
print;
}
\---------------

Men med detta är ju problemt att jag inte vet hur jag ska få in en text fil som den söker efter Karl i?

Permalänk: https://www.webforum.nu/p/19083

## #2 — Peter_B, 2000-06-30T16:07Z

Du vill alltså:

läsa in en fil
ändra alla Karl till Kalle
skriva filen igen

?

kan tex göras såhär:

\#!/usr/bin/perl

open (IN_FILE,"karl.fil") or &die("kan inte öppna fil: karl.fil");
my @lines = \<IN_FILE\>;
close (IN_FILE);

open (OUT_FILE,"\>kalle.fil") or &die("kan inte öppna fil: kalle.fil");
foreach my $line (@lines) {
$line =\~s/Karl/Kalle/g;
print OUT_FILE $line;
}
close (OUT_FILE);

eller dyligt. har ej testat, så jag kan inte hållas ansvarig för någonting! :). rätta den som rätta vill.

Peter Bredlöv
 <http://www.scorpiondata.com>

Permalänk: https://www.webforum.nu/p/340832

## #3 — Jojoxx, 2000-06-30T17:39Z

```
#!/usr/bin/perl 

open(INDATA,"/path/to/fil.txt") &#0124; &#0124; die 'Kan inte läsa filen'; 
while (<INDATA> ) { 
s/Karl/Kalle/g; 
print; 
} 
close(INDATA);
```

Permalänk: https://www.webforum.nu/p/340833

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19083-perl