perl로 web page get

http://www.perl.com/pub/2002/08/20/perlandlwp.html

 

 

아래는 koscom 에서 kospi200 시세를 얻어오는 예제이다.

 

#!/bin/sh
while true
do
  date +%T
  echo $(perl -MLWP::Simple -e "getprint 'http://stock.koscom.co.kr'"|head -n 556|tail -n 4|grep -v background-color|sed -e 's_</span>__g;s_</td>__g')

  HOUR=$(date +%_H)
  if (( $HOUR >= 15 )); then break; fi
  sleep 600
done

 

 

showindex.pl

 

#!/usr/bin/perl
use LWP::Simple;
sub getQuote {
  my $text = get "http://kosdb.koscom.co.kr/main/jisuticker.html";
  if ($text =~ m{KOSPI200.*>([\d\.]+).*(\S\S)&nbsp;([\d\.]+)</font>}) {$1." ".$2.$3}
}

while () {
  print scalar(localtime(time)), " ", getQuote, "\n";
  sleep 60;
}