make_tags.pl

Unix下基于Web的管理工具

#!/usr/local/bin/perl

while(<STDIN>) {
	s/\s/ /g;
	$list .= $_;
	}

while($list =~ /^\s*([a-z0-9]{1,2})\s+(.{15})(.*)$/) {
	$code = $1; $name = $2; $list = $3;
	$name =~ s/\s+$//;
	print "'$code' => '$name',\n";
	}