Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^5: Completing a list/ array?

by Not_a_Number (Parson)
on Nov 12, 2011 at 18:38 UTC ( #937770=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Completing a list/ array?
in thread Completing a list/ array?

OK, now that's fixed, try this:

use Modern::Perl; use autodie; my $infile = '/Users/ts/desktop/work/numbers.txt'; # Hmm... my $outfile = 'Users/ts/full_number.txt'; # leading '/' or n +ot? open my $in, '<', $infile; my @result; while ( <$in> ) { my ( $index, $value ) = split; $result[$index] = $value; } close $in; open my $out, '>', $outfile; say $out "$_\t", $result[$_] || 0 for 1 .. 3_000_050; close $out;


Comment on Re^5: Completing a list/ array?
Download Code
Re^6: Completing a list/ array?
by Taylorswift13 (Novice) on Nov 12, 2011 at 19:09 UTC

    Hi i tried doing this but i can't seem to open the output file to write in it i checked and it is definatly the right path the same happened with the previous attempt where the results just came up on terminal and not the outputfile i tried ending with a / but no difference

    Can't open 'Users/ts/full_number.txt/' for writing: 'No such file or directory' at ./program13.txt line 18

    EDIT OH i understand now leading /!! yes that fixed it thank you very much

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (13)
As of 2014-07-10 14:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (212 votes), past polls