1: #!/usr/bin/perl 2: 3: use LWP::Simple; 4: 5: use constant IDMIN => 1000; 6: use constant IDMAX => 10000; 7: use constant URL => "http://quote.yahoo.co.jp"; 8: 9: print "[ ID ] "; 10: print "銘柄 "; 11: print "取引値 "; 12: print " 前日比 "; 13: print "前日終値 "; 14: print " 出来高 "; 15: print " 時価総額(x百万) "; 16: print " 始値 "; 17: print " 高値 "; 18: print " 安値 "; 19: #print "売気配 "; 20: #print "買気配 "; 21: #p