OT C++ in perl umwandeln

[Nico Jochens <nico@hansetux.de>]

Moin Moin,

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"

Danke im voraus,


best greetings from Norderstedt

|\||C@


--
  It`s not a trick...it`s Linux!   |   mailto: nico@hansetux.de
    Norderstedt -  Germany  |  Registered Linux User #313928
Original member of Linux User Group Norderstedt e.V. - www.lugn.de
PGP-Fingerprint: BA5C 5245 1C33 B6B7 0E7E  F8B6 8AC2 E152 47C5 4177