I am pulling my hair out here, because @B should be static!
foreach my $chr (keys %hits) {
foreach my $strand (keys %{$hits{$chr}}) {
my %ref;
## sort by location on subject then location on query.
my @A = sort {$a->[2]<=>$b->[2] || $a->[0]<=>$b->[0]}...
I'm running a map for checkbuttons in a grid. map should pass the same value to each $_, but it is not doing so. At first I had only the -text and -variable, and noticed that the variable passed was not the correct one. So I added the print STDERR command, and it's receiving an empty value of...
I have a command bound to objects on a canvas like so:
$canvas->bind($id, '<ButtonRelease-2>' => [\&netscape, $org, $call_subject, $B_hits[$m]{qstart}, $B_hits[$m]{qend}]);
It calls the function netscape() correctly, but my arguments are passed as things like:
Tk::Canvas=HASH(0x14059da90)...
I have a db with ~3000 records in FMP 7 (Mac), and I have an image library that will give me an image for a container field in each record. The filename for each image corresponds to a field in the record (<<object_number>>.jpg), and I want to create a script that will insert the image with the...
actually, i think i've got it. i put a
[code]<div style="clear:all"></div>[code]
in between my elements.
thanks again for your elegant suggestion
ChrisHunt --
you certainly got it to do what you thought I wanted, and it is close, but it's not quite there. Each of the h4 lines should line up vertically with a picture to the right. Right now i have all my pictures on the right, but the text is continuous on the left and pays no attention...
so i have images on the right side of a page, and text to the left of them.. sometimes the text won't extend below the image, and when this happens, i _cannot_ get the next image/table to display underneath the first image, rather than wrapping next to it. i've got them in their own tables and...
(ok, so it wasn't on a domain)
anyhow, i got it working. apparently my linux box got terribly confused by an underscore in the share name, but my windows computers didn't.
thanks for your help!
Yes, it's in a domain (well, it's in a workgroup; I think we understand these to be the same?), and the LaserJet appears as a share under the XP machine (and I can set it up as a queue through it).
hoping this is the right spot to post this; I've mostly lingered with questions in the Perl forum.
I have a windows XP 2002 SP1 machine with an HP DeskJet 1220c shared over our Windows network. I have a machine running RedHat 9 that I want to connect via samba to print to this printer, but I...
this:
($_=shift(@tony)) x5;
doesn't do what I want it to do: namely, go to the fifth value after the current one, and trash all the others. I know that this generally pertains to strings, but with perl being so intuitive-friendly, I'd like it to intuit me telling it to do something five...
I think you're both right about what it's doing with my code, but justice41, your code does the same thing. I fixed it using this loop:
while ($_=shift(@tony)) {
if (m!mRNA: .*/gb=([\w]+)!) { last; }
elsif (m!mRNA:!) { die("eep! mrna $h doesn't have a genbank accession! you...
To clarify, I want the user to be able to type this at the command line:
process-hits < sourcefile > output.blixem
then, depending on the contents of sourcefile, i may want to output to multiple files, in which case i would want to name them output_01.blixem, output_02.blixem, etc. Going from...
personal stubbornness? I suppose I could do it the other way, and I'm probably capable of doing that already (capture ARGV[1] when ARGV[0] is > ?) but I want to figure out how to go backwards from STDOUT. Even if I wind up doing it an easier way, I'd like to know how to do things the way I was...
I have a program for which the user specifies the output as an argument in the commandline -- i.e. > filename puts my program's output to STDOUT into a file named filename. I want to know how I can capture that name from within my program, without evaluating the arguments from the command line...
Thanks for your help -- I've got it working. There are, however, still some things I don't understand:
- why (&when) perl insists on having spaces inside parentheses
- what makes a symbolic reference faster and why i should avoid using them
I am quite new at perl, and I greatly appreciate the...
Hey everyone--
I have an array of hashes that I want to turn into a collection of strings with the keys as their names and the values conserved. (so that in lots and lots of code i can type $key instead of $array_name[$h]{key}).
This was the first test program I made, and it was successful...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.