Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^5: Completing a list/ array?

by Not_a_Number (Prior)
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;

Replies are listed 'Best First'.
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://937770]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2018-05-26 11:12 GMT
Find Nodes?
    Voting Booth?