#!/usr/bin/perl require('cgi-lib.pl'); print &PrintHeader(); &ReadParse(*input); #print &PrintVariables (%input); $pedigree = $input{pedigree}; if ($pedigree) { open (IN,pinto) || die "File does not exist"; } else { print "Error!!!\n"; } while (($in = ) && !($in =~ /^$pedigree/)) {} close (IN); ($pedig,$rest) = split('=', $in); @array = split('/', $rest); foreach $i (0..$#array) { if ($array[$i] =~ /\*/) { ($str, $num) = split('\*', $array[$i]); } else { $str = $array[$i]; $num = 1; } foreach $j (1..$num){ if ($j == 1 && !$newin) { $newin = $str; } else { $newin = $newin . '/' . $str; } # print "newin: $newin\n"; } } $newin = $pedig . '=' . $newin; #print $newin, "\n"; #print "$in"; #print &PrintVariables (%input); print "\n"; print "\n"; print "Beangenes pedigree\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "Hello to whoever you are!\n"; print "\n"; print "\n"; print "";