diff options
| author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2005-06-24 01:04:32 +0800 |
|---|---|---|
| committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2005-06-24 01:04:32 +0800 |
| commit | 3e1adccc79b103308400861b7a22d0fc0bcd6351 (patch) | |
| tree | 15a6b853de51d8a3c4e036c0af3f40793cc65db8 /ColaBBS_to_PttBBS/cnthomedir.pl | |
| parent | a545d2f4f3dc28c0b12d35b192ec1bcedce86e4b (diff) | |
| download | pttbbs-not-maintained@4903.tar pttbbs-not-maintained@4903.tar.gz pttbbs-not-maintained@4903.tar.bz2 pttbbs-not-maintained@4903.tar.lz pttbbs-not-maintained@4903.tar.xz pttbbs-not-maintained@4903.tar.zst pttbbs-not-maintained@4903.zip | |
enhancenot-maintained@4903
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/not-maintained@2863 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'ColaBBS_to_PttBBS/cnthomedir.pl')
| -rw-r--r-- | ColaBBS_to_PttBBS/cnthomedir.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ColaBBS_to_PttBBS/cnthomedir.pl b/ColaBBS_to_PttBBS/cnthomedir.pl index 3e36fb8e..64695a21 100644 --- a/ColaBBS_to_PttBBS/cnthomedir.pl +++ b/ColaBBS_to_PttBBS/cnthomedir.pl @@ -2,8 +2,10 @@ # $Id$ # usage: cd ColaBBS/home; perl cnthomedir.pl use IO::All; +`mkdir -p ~/home/$_` foreach( 'a'..'z', 'A'..'Z' ); + foreach( <*> ){ - next if( !-d $_ || /\./ ); + next if( !-d $_ || /\./ || /^[A-Za-z]$/ ); $USERDATA < io("$_/USERDATA.DAT"); ($userid) = $USERDATA =~ /^(\w+)/; $c = substr($userid, 0, 1); |