Robert Kasunic wrote:
> 
...
> 
> Ziffer  Ziffer  Ziffer          Text
> Ziffer  Ziffer  Ziffer          Text
> Ziffer  Ziffer  Ziffer          Text
> 
> Bsp.:
> 233     345     23              Dies ist ein Text
> 32      3       5               Noch ein Text
> 
> Die Spalten sind durch Whitespaces voneinander getrennt. Wie bekomme ich
> es mittels eines regulären Ausdrucks hin, daß nur in der letzten Spalte
> die Whitespaces durch Underscores ersetzt werden?
> 

Hi Robert,

mir faellt keine passende regexp ein, daher ein kleiner Dreizeiler in
Perl, der die Arbeit in drei Schritten macht. Dabei nehme ich an, dass
in $mystring die betreffende Zeile vorher eingelesen wurde (vielleicht
nicht gerade besonders elegant, aber tut)

$tmp1=substr($mystring,rindex($mystring,'  ')+2,length($mystring));
$tmp1 =~ s/ /_/g;
$mystring = substr($mystring,0,rindex($mystring,'  ')+2).$tmp1;

HTH,
Gruesse,

Martin.

-- 
-----------------------------------------------------------
Um sich aus der Liste auszutragen schicken Sie bitte eine
E-Mail an [EMAIL PROTECTED] die im Subject
"unsubscribe <deine_email_adresse>" enthaelt.
Bei Problemen bitte eine Mail an: [EMAIL PROTECTED]
-----------------------------------------------------------

838 eingetragene Mitglieder in dieser Liste.

Antwort per Email an