Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: Best way to read a file into memory and use normal operation on memory file?

by sn1987a (Chaplain)
on Jul 16, 2014 at 17:36 UTC ( #1093914=note: print w/replies, xml ) Need Help??


in reply to Re: Best way to read a file into memory and use normal operation on memory file?
in thread Best way to read a file into memory and use normal operation on memory file?

Is there any reason this has to be done as a file in memory, instead of a simple scalar? Just replace your

syswrite $mem_file, pack( "v*", unpack("n*", $data ));

with

$mem_file .= pack( "v*", unpack("n*", $data ));

And of course, simply use my $mem_file; instead of the open my $mem_file...;

Replies are listed 'Best First'.
Re^3: Best way to read a file into memory and use normal operation on memory file?
by james28909 (Deacon) on Jul 16, 2014 at 23:17 UTC
    yeah that def worked because i can byte reverse the file, then after the while loop i can write it to disk/hdd. i can also seek and read it ;) which is what i was after lol.

    here is the final working code:
    open ( my $in_file, '<', "file" ); binmode( $in_file ); my $mem_file; binmode( $mem_file ); my ( $buf, $data, $n, $bytes ); while (( $n = read $in_file, $data, 4096 ) != 0){ $mem_file .= pack( "v*", unpack("n*", $data )); $bytes+=$n; } open ( my $otherMem_file, '<', \$mem_file ); binmode( $otherMem_file ); seek $otherMem_file, 0x00, 0; read $otherMem_file, my $temp, 0x1200; open my $out_file, '>', "reversed"; syswrite( $out_file, $temp);


    and it give me all expected results byte for byte. :)
    also i should add that i am parsing the file using its hexadecimal representaion of a binary file and i honestly dont think you would even need to binmode any of these files and it doesnt need file::slurp. completely independant code teehee

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2019-04-26 08:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I am most likely to install a new module from CPAN if:
















    Results (128 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!