in reply to Help resolve Useless use of array element in void context warning.
##error here--- Useless use of array element in void context--can u please tell me what this line does.foreach $item (@results) { @line=split/,/, $item; $seen{$line[1]}="0"; #$seen{$item}=0; #print "LINE 1 $line[1]\n"; } foreach $item (@results) { @line=split/,/, $item; if ($line[0] =~ /1|6|7|8|9|5/) { &integrate; sub integrate { %matching +=(); if ($line[0]=~/6|7|8|/) { $overlapc=$line1; foreach $itemi (@eresults) { @linei=split/,/, $itemi; if ($linei1 eq $line1) { @matchone=split/ /, $linei[2]; $lengthandn=$l +ine[4].',', $line[5];
It seems to be missing portions though. All the variables and arrays should be declared at the beginning of the script (as far as I know). One other thing, all of the locations where a number was placed in square brackets were converted to links, and the square brackets disappeared. This is because you did not place your code between the$matching{$matchone[0]}="$lengthandn"; $matching{$matchone[1]}="$lengthandn"; #$seenclone{$matchclone[1]}="1"; #print "678 line 1 $line[1] Length $l +engthandn matchclone $matchclone[1] m0 $matchclone[0]\n"; } }
tags, so allways do that, please. <div class="pmsig"> <div class="pmsig-334202"> <br><br><code> our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, + 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;
|
|---|