Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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!

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 romping around the Monastery: (16)
As of 2016-10-21 15:56 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (289 votes). Check out past polls.