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
--
Haeufig gestellte Fragen und Antworten (FAQ):
http://www.de.debian.org/debian-user-german-FAQ/
Zum AUSTRAGEN schicken Sie eine Mail an [EMAIL PROTECTED]
mit dem Subject "unsubscribe". Probleme? Mail an [EMAIL PROTECTED] (engl)
