Create a 100 MB file 2

[MoshiachNow]

HI,

Running on a Windows system,how do I create a 100 MB file using Perl ?

Long live king Moshiach !

http://www.7for70.com/

 

[MikeLacey]

Just a blank file?

open(FILE,'>c:/perl/100mbfile.txt') or die $!;
print FILE ' ' x (100 * (1024 * 1024));
close FILE;


Mike

I am not inscrutable.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884

 

[MoshiachNow]

Thanks !

Long live king Moshiach !

http://www.7for70.com/

 

[MikeLacey]

Mike

I am not inscrutable.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884

 

[ishnid]

Hmm, isn't that 100 mebibytes? ;-)

 

[KevinADC]

you really want to create a blank 100MB file? Why? if I may ask...

 

[MoshiachNow]

Does not has to be blank.
Will be used to test networking performance by ftp transfer to other hosts.
Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[KevinADC]

ahh! gotcha!

 

[stevexff]

In that case it might be a good idea to generate random characters - any hardware or software compression on the network will make short work of a file consisting only of blanks, and might give you an artificially good result that doesn't translate to the real world.

 

[icrf]

lol @ mebibytes, hadn't heard that, I just get pissed when I buy a 320G hard drive, format it and get less than 300G, read the fine print and WD lovingly informs me about "decimal gigabytes". Turds.

Random data is always better to test transfer rates than homogenous. I made a 1G random file before (see perl's rand() function) to test the write failure of a RAID driver I was beta-testing.

- Andrew
Text::Highlight - A language-neutral syntax highlighting module in Perl
also on SourceForge including demo