linux-l: sed/perl/wasauchimmer...

[ruwen poljak]

>~wort durch <i>wort</i> ersetzen. Kann mir da mal jemand ein
>geeigneten Codeschnipsel vorwerfen, den ich dann verfeinern kann?
[...]

bsp perl (kein einzeiler):

#!/usr/bin/perl

my $datei ="der pfad zur datei";
my (@back, @wert) = "";

# einlesen 
open (IN, $datei) || die "can not open:$!\n";
	while (<IN>) {	push(@back,$_) } 
close IN;

# bearbeiten
foreach (@back) {
	$_ =~ s/(\w+)/<i>$1</i>/;
           push(@wert,$_);
       } 

# schreiben
open (IN, >$datei-neu) || die "can not open:$!\n";
	foreach (@wert) { print $_ };
close IN;


hoffe das klappt, habs nicht getestet. allerdings ist das kriterium
\w+ etwas allgemein, sollte irgendwie spezifiziert werden.......
(eventuell eine wortliste angeben??)

--
   -------                               handy 0170.323 66 36  
tel 030.444 79 83                        have fun!