Mercurial > hg > Game > Cerium

annotate example/bm_search/bigfile.pl @ 2054:2e7a6f40672f draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add param(4) in FileMapReduce.cc
author masa
date Fri, 29 Jan 2016 15:56:28 +0900
parents a8f4227d6a21
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1933
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #!/usr/bin/perl
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 my $loop_counter = 0;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 my $exec_result = 0;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 my $original_filename = $ARGV[0];
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 my $make_filename = $ARGV[1];
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 my $make_filesize = $ARGV[2] * 1024 * 1024 * 1024;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 if (@ARGV != 3) {
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 print("Usage: ./bigfile.pl [original filename] [make filename] [make filesilze(GB)]\n");
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 exit(0);
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 }
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 my $original_filesize = -s $original_filename;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 my $loop_num = $make_filesize / $original_filesize;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 print "original file name : $original_filename\n";
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 print "original file size : $original_filesize\n";
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 print "make file name : $make_filename\n";
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 print "make file size : $make_filesize\n";
1934
3d54a6c26caa fix w->size calc
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents: 1933
diff changeset
23 print "make file size(GB) : $ARGV[2] GB\n";
1933
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 while ($loop_counter < $loop_num) {
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 $exec_result = `cat $original_filename >> $make_filename`;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 $loop_counter++;
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 }
d7f1710e0070 add bigfile.pl
Masataka Kohagura <e085726@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29