#!/bin/perl if($#ARGV != 0){ print "usage : perl $0 入力txt\n"; exit 1; } # 定数 $infile = $ARGV[0]; $outfile = "~Sys~Bookmark.dat"; # --------------------------------------------------------------------- # ヘッダ読みこみ open(IFILE, "$out…