tags/release-0.5/bioseg-validate.pl

#!/usr/bin/perl
$integer = '[+-]?[0-9]+';
$real    = '[+-]?[0-9]+\.[0-9]+';

$RANGE   = '(\.\.)(\.)?';
$PLUMIN  = q(\'\+\-\');
$FLOAT   = "(($integer)|($real))([eE]($integer))?";
$EXTENSION = '<|>|~';

$boundary = "($EXTENSION)?$FLOAT";
$deviation = $FLOAT;

$rule_1 = $boundary . $PLUMIN . $deviation;
$rule_2 = $boundary . $RANGE . $boundary;
$rule_3 = $boundary . $RANGE;
$rule_4 = $RANGE . $boundary;
$rule_5 = $boundary;


print "$rule_5\n";
while (<>) {
#  s/ +//g;
  if ( /^($rule_1)$/ ) {
    print;
  }
  elsif ( /^($rule_2)$/ ) {
    print;
  }
  elsif ( /^($rule_3)$/ ) {
    print;
  }
  elsif ( /^($rule_4)$/ ) {
    print;
  }
  elsif ( /^($rule_5)$/ ) {
    print;
  }
  else {
    print STDERR "error in $_\n";
  }

}
Revision:	31
Committed:	Wed Aug 20 20:24:01 2008 UTC (13 years, 11 months ago) by kmr
File size:	734 byte(s)
Log Message:	Tag 0.4 an 0.5
Line	File contents
1	#!/usr/bin/perl
2	$integer = '[+-]?[0-9]+';
3	$real = '[+-]?[0-9]+\.[0-9]+';
4
5	$RANGE = '(\.\.)(\.)?';
6	$PLUMIN = q(\'\+\-\');
7	$FLOAT = "(($integer)\|($real))([eE]($integer))?";
8	$EXTENSION = '<\|>\|~';
9
10	$boundary = "($EXTENSION)?$FLOAT";
11	$deviation = $FLOAT;
12
13	$rule_1 = $boundary . $PLUMIN . $deviation;
14	$rule_2 = $boundary . $RANGE . $boundary;
15	$rule_3 = $boundary . $RANGE;
16	$rule_4 = $RANGE . $boundary;
17	$rule_5 = $boundary;
18
19
20	print "$rule_5\n";
21	while (<>) {
22	# s/ +//g;
23	if ( /^($rule_1)$/ ) {
24	print;
25	}
26	elsif ( /^($rule_2)$/ ) {
27	print;
28	}
29	elsif ( /^($rule_3)$/ ) {
30	print;
31	}
32	elsif ( /^($rule_4)$/ ) {
33	print;
34	}
35	elsif ( /^($rule_5)$/ ) {
36	print;
37	}
38	else {
39	print STDERR "error in $_\n";
40	}
41
42	}