[kansaipm] 住基ネット
Kiyoka Nishiyama
kiyoka at netfort.gr.jp
Mon Aug 5 10:12:13 CDT 2002
kiyokaです。
恐い時代になりました。住基ネットがスタートしました。
悪のりして次のようなスクリプトを作ってしまいました。
冗談のつもりなんですが、実行してみるとなにか気味わるいものを感じました。
冗談になりそうにないです。なんだか、暗くなります。
#!/usr/bin/perl -w
my( $NUM ) = 10000;
my( $i );
my( @list ) = ();
@moji = (
'西'
,'東'
,'北'
,'南'
,'中'
,'高'
,'上'
,'下'
,'横'
,'田'
,'仲'
,'池'
,'海'
,'貴'
,'夫'
,'子'
,'氏'
,'士'
,'至'
,'裕'
,'広'
,'気'
,'木'
,'村'
,'森'
,'山'
);
for( $i = 0 ; $i < $NUM ; $i++ ) {
if(( 0 != $i ) and (0 == ($i % 4))) {
if( 0 == (int(rand( 2 )))) {
printf( "%s%s %s %011ld\n", get_moji(), get_moji(), get_moji(), get_num() );
}
else {
printf( "%s%s %s%s %011ld\n", get_moji(), get_moji(), get_moji(), get_moji(), get_num() );
}
@list = ();
}
$i++;
}
sub get_num {
int(rand( 1000000 )*1000 + rand( 100000 ));
}
sub get_moji {
return( $moji[int(rand(scalar( @moji )))] );
}
+---
Kiyoka Nishiyama <kiyoka at netfort.gr.jp>
http://www.netfort.gr.jp/~kiyoka/
More information about the Kansai-pm
mailing list