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

payx
 2012-06-29 11:09
#159465 #159465
User since
2006-05-04
564 Artikel
BenutzerIn

user image
Hallo Muffi,

ich habe jetzt was besseres:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl/

use strict;
use warnings;

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

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

die "wrong pattern: $str" unless $str =~ /^\w+\s+(\w+)$/ and $-[1]==50;


Na?

Grüße
payx

PS: Funktioniert, wenn $key und $value nur aus \w-Zeichen bestehen dürfen, sonst statt \w vielleicht \S verwenden, wenn sie keine Leerzeichen (aber andere \W-Zeichen) enthalten dürfen.
Zu $- siehe http://perldoc.perl.org/perlretut.html#Position-information

Editiert von payx: PS
Last edited: 2012-06-29 11:15:04 +0200 (CEST)

View full thread Datendatei per Regex validieren?