perldoc LWP::UserAgent 如果没有安装，则安装模块，运行 cpanm LWP::UserAgent  。 编写  get_yjyg_10jqka.pl  如下 #!/usr/bin/perl# perl 获取同花顺数据--业绩预告use LWP::UserAgent;use Encode qw(decode encode);use POSIX;use Data: