Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by darkreaper00

  1. darkreaper00

    splicing one array modifies values of another?

    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]}...
  2. darkreaper00

    map command, Tk, and $_

    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...
  3. darkreaper00

    Tk headache: passing arguments to a subroutine

    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)...
  4. darkreaper00

    looking to automate inserting an image into a container

    problem solved: -calculation field: img_name= object_name&".jpg" -import folder of images into container, matching filename to img_name
  5. darkreaper00

    looking to automate inserting an image into a container

    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...
  6. darkreaper00

    controlling wrapping around images

    actually, i think i've got it. i put a [code]<div style=&quot;clear:all&quot;></div>[code] in between my elements. thanks again for your elegant suggestion
  7. darkreaper00

    controlling wrapping around images

    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...
  8. darkreaper00

    controlling wrapping around images

    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...
  9. darkreaper00

    print to a samba printer through usb

    (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!
  10. darkreaper00

    print to a samba printer through usb

    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).
  11. darkreaper00

    print to a samba printer through usb

    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...
  12. darkreaper00

    repetition operators: do {} five times...

    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...
  13. darkreaper00

    $_ = shift(@tony) until /xx/ or die;

    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(&quot;eep! mrna $h doesn't have a genbank accession! you...
  14. darkreaper00

    $_ = shift(@tony) until /xx/ or die;

    Here's my snippet of code: else { $_=shift(@tony) until (/Genomic: .*\|([\dyxpq_])+[Tt]el/); print STDERR &quot;6.5 &quot;; $telomere = $1; print STDERR &quot;7 &quot;; $_=shift(@tony) until (m!mRNA: .*/gb=([\w]+)!) or die(&quot;eep! mrna $h doesn't have a genbank accession! you...
  15. darkreaper00

    I want STDOUT's filename!

    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...
See more

Part and Inventory Search

Back
Top