\n" if ($setup_en == 1);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $datafile;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime);
printf("%4d年%d月%d日%2d時%02d分更新
\n",$year+1900,$mon+1,$mday,$hour,$min);
$in{mode} = --$default_menu unless (exists $in{mode});
my $title_flag = '';
my $link_flag = '';
my @titlelist;
my @linklist;
my $cols;
my $ref;
open(FILE,"< $datafile") || &error("データファイル$datafileが開けません");
while (){
chomp;
next if /^\s*#/;
next if /^\s*$/;
my @line = split /$separator/;
if (/^\s*$firsttitle/ and $title_flag ne 'done') {
shift @line;
$cols = $#line + 1;
print qq{
\n} if ($title_flag ne 'done');
my $i = 0;
foreach (@line){
s/^\s*?$//;
if ($in{mode} !~ /^\d/ or $i ne $in{mode}) {
print qq{
} if ($title_flag ne 'done');
@titlelist = @line;
$title_flag = 'done';
} elsif (/^\s*$firstlink/ and $link_flag ne 'done'){
shift @line;
foreach (@line){s/^\s*//; s/\s*$//;}
@linklist = @line;
$link_flag = 'done';
}
last if ($title_flag eq 'done' and $link_flag eq 'done');
}
close(FILE);
print "
\n";
if ($in{mode} =~ /^\d/ or $in{mode} eq 'all1') {
print "
\n";
} else {
$cols=$#titlelist+1;
print "
\n";
print "
\n";
my $i;
for ($i=0;$i<=$cols;$i++){
if ($i == 0){
print "
\n";
} else {
print "
$titlelist[$i-1]
\n";
}
}
print "
\n";
}
open(FILE,"< $datafile") || &error("データファイル$datafileが開けません");
while (){
chomp;
next if /^\s*#/;
next if /^\s*$/;
my @line = split /$separator/;
foreach (@line) {s/^\s*?$//;}
my $addr = '';
if (!/^\s*$firsttitle/ and !/^\s*$firstlink/) {
my $name = shift @line;
$name =~ s/^\s*//; $name =~ s/\s*$//;
next if ($#line == -1);
if ($in{mode} eq 'all1'){
print "
\n";
print "
$name
\n";
print "
\n";
print "
\n";
my $wrote = 0;
my $i;
for ($i=0;$i<=$#line;$i++){
if ($line[$i] =~ /^(\d+)$/){
$ref = $1 - 1;
} else {
$ref = $i;
}
$addr = $line[$ref];
next if ($addr eq '');
print "
\n";
print "
$titlelist[$i]：
\n";
if ($linklist[$i] eq 'none' or $linklist[$i] eq ''){
print "