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 | 5d1b3b61fce5737953e155ffd12c3f63c031c298 (patch) | |
| tree | 6e8dbfda2a6a46dfd0717bc4e76afaabc5d8b412 /not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl | |
| parent | f069904bab42fc7ff6b3b5085ace779ee08f6a87 (diff) | |
| download | pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.tar pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.tar.gz pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.tar.bz2 pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.tar.lz pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.tar.xz pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.tar.zst pttbbs-5d1b3b61fce5737953e155ffd12c3f63c031c298.zip | |
enhance
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@2863 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl')
| -rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl b/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl index 3e36fb8e..64695a21 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl +++ b/not-maintained/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); |