[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