Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: no output or error received

by ww (Bishop)
on Jun 28, 2013 at 10:07 UTC ( #1041209=note: print w/ replies, xml ) Need Help??

in reply to no output or error received

You were close...

Slightly abbreviated; syntax and logic problems fixed... and it works for me.

#!/usr/bin/perl use 5.016; use strict; use warnings; # no warnings "all"; # WHY? warnings are to help you get a compilab +le program # 1041200 open (OFILE, '>', 'name.tsv') or die "Can't open for output, $!"; # C +HECK opens while (<DATA>) { chomp; my ($name, $ID, $chromosome, $start_location, $control_type) = spl +it("\t"); print "$name \n"; # open (OFILE, '>name.tsv'); # OPENING HERE OVERWRITES PREVIOUS +ENTRY EACH TIME THRU print OFILE "$name\n"; # HANDLE and LIST WERE REVERSED } __DATA__ fred 123 GeeWhiz 00 freak jack 4321 Whoosh 04 paternalist sam 9876 imme 27 passive

If you didn't program your executable by toggling in binary, it wasn't really programming!

Comment on Re: no output or error received
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1041209]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2015-11-27 20:34 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (731 votes), past polls