Changes between Version 3 and Version 4 of Dev/Perl

Timestamp:

Oct 21, 2010 2:10:01 PM (15 years ago)

Author:

mitty

Comment:

--

Dev/Perl

@@ -97 +97 @@
 }}}
      * ただし、ゾンビとなった親プロセスは入出力がないため、しばらくするとhttpdによって殺される(see [http://www.bioinfo.jp/tips.html Tips (CGI, Perl, Unix and etc.)])。
+
+ = making files with random name and random content =
+ * [http://d.hatena.ne.jp/perlcodesample/20100413/1270894115 File::Temp - 一時ファイルの作成 / Perlモジュール徹底解説 - サンプルコードによるPerl入門]
+ * [http://d.hatena.ne.jp/fbis/20080114/1200307393 ランダムな文字列を生成するString::Random - Unknown::Programming]
+
+ * makerandom.pl
+{{{
+#!perl
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use File::Temp qw(tempfile);
+use String::Random;
+
+my $filenum = $ARGV[0];
+
+while ($filenum-- > 0) {
+    my ($fh, $fname) = tempfile(DIR => '.');
+    
+    my $length = int(rand(100));
+    print "making $fname ...\n";
+    print $fh String::Random->new->randregex("[A-Za-z0-9]{$length}");
+}
+}}}