Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2014-09-01 20:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (17 votes), past polls