On Mon, Oct 20, 2003 at 12:33:00PM +0200 Christiane Nerz wrote:
> How do I read data out of a table-file in an array-of-arrays?
>
> Problem: I have to compare two tables with pairs of start-stop-Positions.
> I want to find out, which pair of Start-Stop-Position in table_1 is
> entirely within the range marked by a pair of start-stop-positions of
> the second table.
> 2..5 would be in 2..6 or 1..7, 45..46 in 23..47 or 40..46 and so on.
Do these strings show up in the table like that? In this case, it should
not be so hard:
my $range1 = "2..5";
my $range2 = "2..6";
my ($start1, $stop1) = $range1 =~ /(\d+)\.\.(\d+)/;
my ($start2, $stop2) = $range2 =~ /(\d+)\.\.(\d+)/;
print "$range1 within $range2" if
$start1 >= $start2 and
$stop1 <= $stop2;
Is it something like that you were asking for? I am not yet sure where
array of arrays are involved.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
