Thread Datendatei per Regex validieren? (12 answers)
Opened by Muffi at 2012-06-29 09:11

payx
 2012-06-29 10:18
#159459 #159459
User since
2006-05-04
564 Artikel
BenutzerIn

user image
Hallo Muffi,

ich habe mich mal dran versucht:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl/

use strict;
use warnings;
use 5.010;

my $key = 'foo';
my $value = 'bar';

my $str = sprintf('%-50s%s', $key, $value);

say $str;

my ($k, $v) = (substr($str, 0, 50), substr($str, 50));

say "'$k'";
say "'$v'";

die "wrong pattern: $str" if ($k !~ s/\s+$// or $v =~ /^\s+/);

say "'$k'";
say "'$v'";

Ich bin mir aber nicht sicher, ob das das ist, was Du willst.

Hier wird der String bei 50 gesplittet, dann wird geprüft, ob der erste auf n Leerzeichen endet und der zweite am Anfang keine Leerzeichen hat.

Wenn beides ok ist, werden key und value ausgegeben.

Vielleicht geht es auch eleganter, bin gespannt was noch kommt.

HTH
Grüße
payx

View full thread Datendatei per Regex validieren?