Re: OT C++ in perl umwandeln

[Thomas Kobienia <tkfunny@gmx.de>]

Hallo Nico Jochens,

Nico Jochens schrieb am Donnerstag, den 13. Juli 2006:

> kann mir jemand von euch sagen wie ich folgende Zeilen in perl
> schreiben muss:
> 
> #!/bin/sh
> 
> testi1=`echo "13.2.200422.12.200510.1.2006" | cut -d "." -f 1`
> testi2=`echo "13.2.200422.12.200510.1.2006" | cut -d "." -f 2`
> testi3=`echo "13.2.200422.12.200510.1.2006" | cut -d "." -f 3`
> testi31=`echo $testi3 | cut -b 1,2,3,4`
>  
>  echo "$testi1.$testi2.$testi31"

#!/usr/bin/perl -w

use strict;

my $str = "13.2.200422.12.200510.1.2006";
my $dst = "";

if ($str =~ m/^([^\.]+)\.([^\.]+)\.([^\.]{4}/ ) {
  $dst = join('.', $1, $2, $3);
}

print $dst;

exit 0;

Besser wäre aber der Regex ^(\d+)\.(\d+)\.(\d{4}/, wenn der
Ausgangsstring nur aus Ziffern und Punkten besteht.

Mit freundlichen Grüßen
Thomas Kobienia