Chinaunix首页 | 论坛 | 博客
  • 博客访问: 107880
  • 博文数量: 41
  • 博客积分: 2520
  • 博客等级: 少校
  • 技术积分: 440
  • 用 户 组: 普通用户
  • 注册时间: 2010-01-22 16:25
文章分类

全部博文(41)

文章存档

2010年(41)

我的朋友

分类: LINUX

2010-01-27 11:59:11

使用数据图表处理工具gnuplot,结合Perl脚本,可以随意绘制自己的柱状图。
 
1. mkbar       --- Perl script
2. mkbar.dat   --- Config file
3. README      --- readme
 
* mkbar
 

#!/usr/bin/perl

###############################################################################
# COPYRIGHT GPLv2 2008-2010
# File name: mkbar
# Summary: Create bar chart.
# Author: poseidonyu <>
###############################################################################

use strict;
use vars qw($opt_h $opt_s $opt_o $opt_t $opt_l $opt_r);
use Getopt::Std;

my $format = "png";
my $source_file = "mkbar.dat";
my $output_file = "mkbar.$format";
my $gnuplot_file = "mkbar.gp";
my $data_file = "data";
my $title = "";
my $bcinfo = {};

my $encoding = "iso_8859_1";
my $solid = 0.5;
my $border = 0;
my $xlabel = "";
my $ylabel = "";
my $keyp = 0;

my $mkbar_help = "
Usage: perl mkbar [-h] [-s ] [-o ] [-t ] [-l] [-r]<BR><BR>  [-h]<BR>    Display this message.<BR>  [-s <sourcefile>]<BR>    Specify the source file contains the data.<BR>  [-o <outputfile>]<BR>    Specify the output file.<BR>  [-t <title>]<BR>    Specify the title of bar chart.<BR>  [-l]<BR>    Set key on left.<BR>  [-r]<BR>    Set key on right.<BR><BR>"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR><SPAN style="COLOR: #0000ff">sub</SPAN> get_info<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000ff">sub</SPAN> create_dataf<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000ff">sub</SPAN> create_gpf<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000ff">sub</SPAN> create_barchart<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000ff">sub</SPAN> help<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>getopts<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #ff00ff">"hs:o:t:lr"</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000ff">or</SPAN> <SPAN style="COLOR: #ff0000">die</SPAN> <SPAN style="COLOR: #ff00ff">"ERROR: invalid option, -h for help.\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_h</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    help<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">mkbar_help</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #ff0000">defined</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_s</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">source_file</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"$opt_s"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #ff0000">defined</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_o</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">output_file</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"$opt_o.$format"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #ff0000">defined</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_t</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">title</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"$opt_t"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_l</SPAN> <SPAN style="COLOR: #0000cc">&</SPAN><SPAN style="COLOR: #0000cc">&</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_r</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> <SPAN style="COLOR: #0000ff">STDERR</SPAN> <SPAN style="COLOR: #ff00ff">"ERROR: -l and -r can not be used simultaneous, -h for help.\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_l</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">keyp</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 0<SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">opt_r</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">keyp</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 1<SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><BR>get_info<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">source_file</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>create_dataf<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">data_file</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>create_gpf<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">gnuplot_file</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>create_barchart<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">gnuplot_file</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #ff0000">unlink</SPAN> <SPAN style="COLOR: #ff00ff">"$data_file"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #ff0000">unlink</SPAN> <SPAN style="COLOR: #ff00ff">"$gnuplot_file"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR><SPAN style="COLOR: #ff0000">exit</SPAN> 0<SPAN style="COLOR: #0000cc">;</SPAN><BR><BR><SPAN style="COLOR: #0000ff">sub</SPAN> get_info<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><BR><SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">sfile</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">shift</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">open</SPAN><SPAN style="COLOR: #0000cc">(</SPAN>SFILE<SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #ff00ff">"$sfile"</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000ff">or</SPAN> <SPAN style="COLOR: #ff0000">die</SPAN> <SPAN style="COLOR: #ff00ff">"ERROR: source file \"$sfile\" does not exist.\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">while</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">line</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000cc"><</SPAN>SFILE<SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #ff0000">chomp</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">line</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">next</SPAN> <SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000cc">!</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">line</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>        <SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">.</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> 1<SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>            <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">objects</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">split</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">\</SPAN>s<SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">line</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>            <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bcinfo</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'objects_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> \<SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">objects</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000ff">elsif</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">.</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> 2<SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>            <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">labels</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">split</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">\</SPAN>s<SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">line</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>            <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bcinfo</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'labels_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> \<SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">labels</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000ff">else</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>            <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">desc</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">split</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">\</SPAN>s<SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">line</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>            <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_desc</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>            <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_desc</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'class'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">shift</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">desc</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>            <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_desc</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'class_value_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> \<SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #808000">desc</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>            <SPAN style="COLOR: #ff0000">push</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bcinfo</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'desc_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_desc</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000cc">}</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">close</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #ff0000">LOG</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><BR><SPAN style="COLOR: #0000ff">sub</SPAN> create_dataf<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><BR><SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">dfile</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">shift</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">open</SPAN><SPAN style="COLOR: #0000cc">(</SPAN>DFILE<SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #ff00ff">"> $dfile"</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000ff">or</SPAN> <SPAN style="COLOR: #ff0000">die</SPAN> <SPAN style="COLOR: #ff00ff">"ERROR: data file \"$dfile\" does not exist.\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 0<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">foreach</SPAN> <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_desc</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bcinfo</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'desc_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #ff0000">print</SPAN> DFILE <SPAN style="COLOR: #ff00ff">"$i\t$one_desc->{'class'}"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>        <SPAN style="COLOR: #0000ff">foreach</SPAN> <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_class_value</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">one_desc</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'class_value_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>            <SPAN style="COLOR: #ff0000">print</SPAN> DFILE <SPAN style="COLOR: #ff00ff">"\t$one_class_value"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000cc">}</SPAN><BR><BR>        <SPAN style="COLOR: #ff0000">print</SPAN> DFILE <SPAN style="COLOR: #ff00ff">"\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">close</SPAN><SPAN style="COLOR: #0000cc">(</SPAN>DFILE<SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><BR><SPAN style="COLOR: #0000ff">sub</SPAN> create_gpf<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><BR><SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">gpfile</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">shift</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">open</SPAN><SPAN style="COLOR: #0000cc">(</SPAN>GPFILE<SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #ff00ff">"> $gpfile"</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000ff">or</SPAN> <SPAN style="COLOR: #ff0000">die</SPAN> <SPAN style="COLOR: #ff00ff">"ERROR: gnuplot file \"$gpfile\" does not exist.\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"#!/usr/bin/gnuplot\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set encoding $encoding\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set style data boxes\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set style fill solid $solid border $border\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set terminal $format small xfdf5e6\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set output '$output_file'\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set title '$title'\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set grid ytics\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set xlabel '$bcinfo->{'labels_aref'}[0]'\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set ylabel '$bcinfo->{'labels_aref'}[1]'\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">keyp_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">""</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">if</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000cc">!</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">keyp</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">keyp_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"left"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN> <SPAN style="COLOR: #0000ff">else</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">keyp_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"right"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set key top $keyp_string\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set key box\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xrangemax</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">scalar</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bcinfo</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'desc_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set xrange [0:$xrangemax]\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"set xtic ("</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xrange</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 0<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">while</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xrange</SPAN> <SPAN style="COLOR: #0000cc"><</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xrangemax</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_tmp_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"'' $xrange,"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_string</SPAN> <SPAN style="COLOR: #0000cc">.</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_tmp_string</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xrange</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN><BR>    <SPAN style="COLOR: #ff0000">chop</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_string</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN><SPAN style="COLOR: #0000cc">~</SPAN> s<SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #0000cc">/</SPAN>g<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xtic_string</SPAN> <SPAN style="COLOR: #0000cc">.</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">")"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"$xtic_string\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xlabel_excursion</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"-0.03"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xlabel</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 1<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">while</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xlabel</SPAN> <SPAN style="COLOR: #0000cc"><</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xrangemax</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xposition</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xlabel</SPAN> <SPAN style="COLOR: #0000cc">-</SPAN> 0<SPAN style="COLOR: #0000cc">.</SPAN>5<SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE<BR>            <SPAN style="COLOR: #ff00ff">"set label $xlabel '$bcinfo->{'desc_aref'}->[$xlabel - 1]->{'class'}' at $xposition, graph $xlabel_excursion, 0 centre norotate\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">xlabel</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set yrange [0:]\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">classbar_number</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">scalar</SPAN> <SPAN style="COLOR: #0000ff">@</SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bcinfo</SPAN><SPAN style="COLOR: #0000cc">-</SPAN><SPAN style="COLOR: #0000cc">></SPAN><SPAN style="COLOR: #0000cc">{</SPAN><SPAN style="COLOR: #ff00ff">'objects_aref'</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">}</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">boxwidth</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 1 <SPAN style="COLOR: #0000cc">/</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">classbar_number</SPAN> <SPAN style="COLOR: #0000cc">+</SPAN> 2<SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"set boxwidth $boxwidth absolute\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"plot "</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 1<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">color</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> 3<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">""</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">while</SPAN> <SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN> <SPAN style="COLOR: #0000cc"><</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">classbar_number</SPAN><SPAN style="COLOR: #0000cc">)</SPAN> <SPAN style="COLOR: #0000cc">{</SPAN><BR>        <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">linenum</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN> <SPAN style="COLOR: #0000cc">+</SPAN> 2<SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_excursion</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">boxwidth</SPAN> <SPAN style="COLOR: #0000cc">*</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN> <SPAN style="COLOR: #0000cc">+</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">boxwidth</SPAN> <SPAN style="COLOR: #0000cc">/</SPAN> 2<SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_tmp_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff00ff">"'$data_file' using (\$1+$bar_excursion):$linenum title '$bcinfo->{'objects_aref'}->[$i - 1]' linetype $color,"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_string</SPAN> <SPAN style="COLOR: #0000cc">.</SPAN><SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_tmp_string</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">color</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>        <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">i</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">+</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000cc">}</SPAN><BR>    <SPAN style="COLOR: #ff0000">chop</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_string</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">bar_string</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN><SPAN style="COLOR: #0000cc">~</SPAN> s<SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN><SPAN style="COLOR: #0000cc">/</SPAN><SPAN style="COLOR: #0000cc">,</SPAN> <SPAN style="COLOR: #0000cc">/</SPAN>g<SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> GPFILE <SPAN style="COLOR: #ff00ff">"$bar_string\n"</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">close</SPAN><SPAN style="COLOR: #0000cc">(</SPAN>GPFILE<SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><BR><SPAN style="COLOR: #0000ff">sub</SPAN> create_barchart<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><BR><SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">gpfile</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">shift</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">system</SPAN><SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #ff00ff">"gnuplot $gpfile"</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN><BR><BR><SPAN style="COLOR: #0000ff">sub</SPAN> help<SPAN style="COLOR: #0000cc">(</SPAN><SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #0000cc">)</SPAN><BR><SPAN style="COLOR: #0000cc">{</SPAN><BR>    <SPAN style="COLOR: #0000ff">my</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">msg</SPAN> <SPAN style="COLOR: #0000cc">=</SPAN> <SPAN style="COLOR: #ff0000">shift</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR>    <SPAN style="COLOR: #ff0000">print</SPAN> <SPAN style="COLOR: #0000ff">STDERR</SPAN> <SPAN style="COLOR: #0000ff">$</SPAN><SPAN style="COLOR: #008080">msg</SPAN><SPAN style="COLOR: #0000cc">;</SPAN><BR><BR>    <SPAN style="COLOR: #ff0000">exit</SPAN> 0<SPAN style="COLOR: #0000cc">;</SPAN><BR><SPAN style="COLOR: #0000cc">}</SPAN></SPAN></CODE></P></TD></TR></TBODY></TABLE> <DIV> </DIV> <DIV>* mkbar.dat</DIV> <DIV>fedora9 fedora10 fedora11  fedora12<BR>Processes       Times(Sec)</DIV> <DIV> </DIV> <DIV>20      0.5576  0.5972  0.5872<BR>40      0.7305  0.7717</DIV> <DIV> </DIV> <DIV>60      0.9294  0.9524  0.9124 0.9374<BR>80      1.1275  1.1557<BR>100     1.3324  1.3640  1.3540  1.3824</DIV> <DIV> </DIV> <DIV>* README</DIV> <DIV>1. Usage:<BR>=====Don't use options=====</DIV> <DIV># ls<BR>mkbar  mkbar.dat  README</DIV> <DIV># ./mkbar<BR># ls<BR>mkbar  mkbar.dat  mkbar.png  README</DIV> <DIV><BR>=====Use options=====<BR># cp mkbar.dat hackbench.dat</DIV> <DIV># ./mkbar -s hackbench.dat -o hackbench -t "HackBench BarChart" -l<BR># ls<BR>hackbench.dat  hackbench.png  mkbar  mkbar.dat  mkbar.png  README</DIV> <DIV><BR>2. Format<BR>*****The Format of Datafile*****</DIV> <DIV><BR>fedora9 fedora10 fedora11  fedora12 --> Line 1 must be items which will be compared<BR>Processes       Times(Sec)          --> Line 2 must be xlabel and ylabel<BR>                                    --> Can be blank from line 3, will be ignored<BR>20      0.5576  0.5972  0.5872      --> Category and values of items<BR>40      0.7305  0.7717              --> Had better compatible with Line 1</DIV> <DIV><BR>60      0.9294  0.9524  0.9124 0.9374<BR>80      1.1275  1.1557<BR>100     1.3324  1.3640  1.3540  1.3824<BR></DIV> <DIV></DIV> <DIV></DIV> </div> <!-- <div class="Blog_con3_1">管理员在2009年8月13日编辑了该文章文章。</div> --> <div class="Blog_con2_1 Blog_con3_2"> <div> <!--<img src="/image/default/tu_8.png">--> <!-- JiaThis Button BEGIN --> <div class="bdsharebuttonbox"><A class=bds_more href="#" data-cmd="more"></A><A class=bds_qzone title=分享到QQ空间 href="#" data-cmd="qzone"></A><A class=bds_tsina title=分享到新浪微博 href="#" data-cmd="tsina"></A><A class=bds_tqq title=分享到腾讯微博 href="#" data-cmd="tqq"></A><A class=bds_renren title=分享到人人网 href="#" data-cmd="renren"></A><A class=bds_weixin title=分享到微信 href="#" data-cmd="weixin"></A></div> <script>window._bd_share_config={"common":{"bdSnsKey":{},"bdText":"","bdMini":"2","bdMiniList":false,"bdPic":"","bdStyle":"0","bdSize":"16"},"share":{}};with(document)0[(getElementsByTagName('head')[0]||body).appendChild(createElement('script')).src='http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion='+~(-new Date()/36e5)];</script> <!-- JiaThis Button END --> </div> 阅读(767) | 评论(0) | 转发(0) | <div class="HT_line3"></div> </div> <div class="Blog_con3_3"> <div><span id='digg_num'>0</span><a href="javascript:void(0)" id='digg' bid='2486286' url='/blog/digg.html' ></a></div> <p>上一篇:<a href="/uid-23227364-id-2486285.html">How to get command's path</a></p> <p>下一篇:<a href="/uid-23227364-id-2486287.html">seq_file output buffer</a></p> </div> </div> <!-- <div class="Blog_con3_4 Blog_con3_5"> <div class="Blog_tit2 Blog_tit7">热门推荐</div> <ul> <li><a href="" title="" target='blank' ></a></li> </ul> </div> --> </div> </div> <div class="Blog_right1_7" id='replyList'> <div class="Blog_tit3">给主人留下些什么吧!~~</div> <!--暂无内容--> <!-- 评论分页--> <div class="Blog_right1_6 Blog_right1_12"> </div> <!-- 评论分页--> <div class="Blog_right1_10" style="display:none"> <div class="Blog_tit3">评论热议</div> <!--未登录 --> <div class="Blog_right1_8"> <div class="nologin_con1"> 请登录后评论。 <p><a href="http://account.chinaunix.net/login" onclick="link(this)">登录</a> <a href="http://account.chinaunix.net/register?url=http%3a%2f%2fblog.chinaunix.net">注册</a></p> </div> </div> </div> <div style="text-align:center;margin-top:10px;"> <script type="text/javascript" smua="d=p&s=b&u=u3118759&w=960&h=90" src="//www.nkscdn.com/smu0/o.js"></script> </div> </div> </div> </div> <input type='hidden' id='report_url' value='/blog/ViewReport.html' /> <script type="text/javascript"> //测试字符串的长度 一个汉字算2个字节 function mb_strlen(str) { var len=str.length; var totalCount=0; for(var i=0;i<len;i++) { var c = str.charCodeAt(i); if ((c >= 0x0001 && c <= 0x007e) || (0xff60<=c && c<=0xff9f)) { totalCount++; }else{ totalCount+=2; } } return totalCount; } /* var Util = {}; Util.calWbText = function (text, max){ if(max === undefined) max = 500; var cLen=0; var matcher = text.match(/[^\x00-\xff]/g), wlen = (matcher && matcher.length) || 0; //匹配url链接正则 http://*** var pattern = /http:\/\/([\w-]+\.)+[\w-]+(\/*[\w-\.\/\?%&=][^\s^\u4e00-\u9fa5]*)?/gi; //匹配的数据存入数组 var arrPt = new Array(); var i = 0; while((result = pattern.exec(text)) != null){ arrPt[i] = result[0]; i++; } //替换掉原文本中的链接 for(var j = 0;j<arrPt.length;j++){ text = text.replace(arrPt[j],""); } //减掉链接所占的长度 return Math.floor((max*2 - text.length - wlen)/2 - 12*i); }; */ var allowComment = '0'; //举报弹出层 function showJuBao(url, cid){ $.cover(false); asyncbox.open({ id : 'report_thickbox', url : url, title : '举报违规', width : 378, height : 240, scroll : 'no', data : { 'cid' : cid, 'idtype' : 2 , 'blogurl' : window.location.href }, callback : function(action){ if(action == 'close'){ $.cover(false); } } }); } $(function(){ //创建管理员删除的弹出层 $('#admin_article_del').click(function(){ $.cover(false); asyncbox.open({ id : 'class_thickbox', html : '<div class="HT_layer3_1"><ul><li class="HT_li1">操作原因:<select class="HT_sel7" id="del_type" name="del_type"><option value="广告文章">广告文章</option><option value="违规内容">违规内容</option><option value="标题不明">标题不明</option><option value="文不对题">文不对题</option></select></li><li class="HT_li1" ><input class="HT_btn4" id="admin_delete" type="button" /></li></ul></div>', title : '选择类型', width : 300, height : 150, scroll : 'no', callback : function(action){ if(action == 'close'){ $.cover(false); } } }); }); $('#admin_delete').live('click' , function(){ ///blog/logicdel/id/3480184/url/%252Fblog%252Findex.html.html var type = $('#del_type').val(); var url = '/blog/logicdel/id/2486286/url/%252Fuid%252F23227364.html.html'; window.location.href= url + '?type=' + type; }); //顶 js中暂未添加&过滤 $('#digg').live('click' , function(){ if(isOnLine == '' ) { //showErrorMsg('登录之后才能进行此操作' , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); return false; } var bid = $('#digg').attr('bid'); var url = $('#digg').attr('url'); var digg_str = $.cookie('digg_id'); if(digg_str != null) { var arr= new Array(); //定义一数组 arr = digg_str.split(","); //字符分割 for( i=0 ; i < arr.length ; i++ ) { if(bid == arr[i]) { showErrorMsg('已经赞过该文章', '消息提示'); return false; } } } $.ajax({ type:"POST", url:url, data: { 'bid' : bid }, dataType: 'json', success:function(msg){ if(msg.error == 0) { var num = parseInt($('#digg_num').html(),10); num += 1; $('#digg_num').html(num); $('#digg').die(); if(digg_str == null) { $.cookie('digg_id', bid, {expires: 30 , path: '/'}); } else { $.cookie('digg_id', digg_str + ',' + bid, {expires: 30 , path: '/'}); } showSucceedMsg('谢谢' , '消息提示'); } else if(msg.error == 1) { //showErrorMsg(msg.error_content , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); } else if(msg.error == 2) { showErrorMsg(msg.error_content , '消息提示'); } } }); }); //举报弹出层 /*$('.box_report').live('click' , function(){ if(isOnLine == '' ) { //showErrorMsg('登录之后才能进行此操作' , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); return false; } var url = $('#report_url').val(); var cid = $(this).attr('cid'); $.cover(false); asyncbox.open({ id : 'report_thickbox', url : url, title : '举报违规', width : 378, height : 240, scroll : 'no', data : { 'cid' : cid, 'idtype' : 2 }, callback : function(action){ if(action == 'close'){ $.cover(false); } } }); });*/ //评论相关代码 //点击回复显示评论框 $('.Blog_a10').live('click' , function(){ if(isOnLine == '' ) { //showErrorMsg('登录之后才能进行此操作' , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); return false; } if(allowComment == 1) { showErrorMsg('该博文不允许评论' , '消息提示'); return false; } var tid = $(this).attr('toid');//留言作者id var bid = $(this).attr('bid');//blogid var cid = $(this).attr('cid');//留言id var tname = $(this).attr('tname'); var tpl = '<div class="Blog_right1_9">'; tpl += '<div class="div2">'; tpl += '<textarea name="" cols="" rows="" class="Blog_ar1_1" id="rmsg">文明上网,理性发言...</textarea>'; tpl += '</div>'; tpl += '<div class="div3">'; tpl += '<div class="div3_2"><a href="javascript:void(0);" class="Blog_a11" id="quota_sbumit" url="/Comment/PostComment.html" tid="'+tid+'" bid="'+bid+'" cid="'+cid+'" tname="'+tname+'" ></a><a href="javascript:void(0)" id="qx_comment" class="Blog_a12"></a></div>'; tpl += '<div class="div3_1"><a href="javascript:void(0);" id="mface"><span></span>表情</a></div>'; tpl += '<div class="clear"></div>'; tpl += '</div>'; tpl += '</div>'; $('.z_move_comment').html(''); $(this).parents('.Blog_right1_8').find('.z_move_comment').html(tpl).show(); }); //引用的评论提交 $('#quota_sbumit').live('click' , function(){ if(isOnLine == '' ) { //showErrorMsg('登录之后才能进行此操作' , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); return false; } var bid = $(this).attr('bid'); var tid = $(this).attr('tid');//被引用人的id var qid = $(this).attr('cid');//引用的id var url = $(this).attr('url'); var text = $('#rmsg').val(); var tname = $(this).attr('tname'); if(text == '' || text=='文明上网,理性发言...') { showErrorMsg('评论内容不能为空!' , '消息提示'); return false; } else { if(mb_strlen(text) > 1000){ showErrorMsg('评论内容不能超过500个汉字' , '消息提示'); return false; } } $.ajax({ type: "post", url: url , data: {'bid': bid , 'to' : tid , 'qid' : qid , 'text': text , 'tname' : tname }, dataType: 'json', success: function(data){ if(data.code == 1){ var tpl = '<div class="Blog_right1_8">'; tpl+= '<div class="Blog_right_img1"><a href="' +data.info.url+ '" >' + data.info.header + '</a></div>'; tpl+= '<div class="Blog_right_font1">'; tpl+= '<p class="Blog_p5"><span><a href="' +data.info.url+ '" >' + data.info.username + '</a></span>' + data.info.dateline + '</p>'; tpl+= '<p class="Blog_p7"><a href="' + data.info.quota.url + '">' + data.info.quota.username + '</a>:'+ data.info.quota.content + '</p>'; tpl+= '<p class="Blog_p8">' + data.info.content + '</p><span class="span_text1"><a href="javascript:void(0);" class="Blog_a10" toid=' + data.info.fuid + ' bid=' + data.info.bid + ' cid=' + data.info.cid + ' tname = ' + data.info.username + ' >回复</a> |  <a class="comment_del_mark" style="cursor:pointer" url="' + data.info.delurl + '" >删除</a> |  <a href="javascript:showJuBao(\'/blog/ViewReport.html\','+data.info.cid+')" class="box_report" cid="' + data.info.cid + '" >举报</a></span></div>'; tpl+= '<div class="z_move_comment" style="display:none"></div>'; tpl+= '<div class="Blog_line1"></div></div>'; $('#replyList .Blog_right1_8:first').before(tpl); $('.z_move_comment').html('').hide(); } else if(data.code == -1){ //showErrorMsg(data.info , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); } }, error: function(){//请求出错处理 } }); }); //底部发表评论 $('#submitmsg').click(function(){ if(allowComment == 1) { showErrorMsg('该博文不允许评论' , '消息提示'); return false; } var bid = $(this).attr('bid'); var toid = $(this).attr('toid'); var text = $('#reply').val(); var url = $(this).attr('url'); if(text == '' || text=='文明上网,理性发言...') { showErrorMsg('评论内容不能为空!' , '消息提示'); return false; } else { if(mb_strlen(text) > 1000){ showErrorMsg('评论内容不能超过500个汉字' , '消息提示'); return false; } } $.ajax({ type: "post", url: url , data: {'bid': bid , 'to' : toid ,'text': text}, dataType: 'json', success: function(data){ if(data.code == 1) { var tpl = '<div class="Blog_right1_8">'; tpl += '<div class="Blog_right_img1"><a href="' +data.info.url+ '" >' + data.info.header + '</a></div>'; tpl += '<div class="Blog_right_font1">'; tpl += '<p class="Blog_p5"><span><a href="' +data.info.url+ '" >' + data.info.username + '</a></span>' + data.info.dateline + '</p>'; tpl += '<p class="Blog_p6">' + data.info.content + '</p>'; tpl += '<div class="div1"><a href="javascript:void(0);" class="Blog_a10" toid=' + data.info.fuid + ' bid=' + data.info.bid + ' cid=' + data.info.cid + '>回复</a> |  <a class="comment_del_mark" style="cursor:pointer" url="' + data.info.delurl + '">删除</a> |  <a href="javascript:showJuBao(\'/blog/ViewReport.html\','+data.info.cid+')" class="box_report" cid="' + data.info.cid + '">举报</a></div>'; tpl += '<div class="z_move_comment" style="display:none"></div>'; tpl += '</div><div class="Blog_line1"></div></div>'; $('.Blog_tit3:first').after(tpl); $('#reply').val('文明上网,理性发言...'); } else if(data.code == -1) { showErrorMsg(data.info , '消息提示'); } }, error: function(){//请求出错处理 } }); }); //底部评论重置 $('#reset_comment').click(function(){ $('#reply').val('文明上网,理性发言...'); }); //取消回复 $('#qx_comment').live('click' , function(){ $('.z_move_comment').html('').hide(); }); $('#rmsg, #reply').live({ focus:function(){ if($(this).val() == '文明上网,理性发言...'){ $(this).val(''); } }, blur:function(){ if($(this).val() == ''){ $(this).val('文明上网,理性发言...'); } } }); //删除留言确认 $('.comment_del_mark').live('click' , function(){ var url = $(this).attr('url'); asyncbox.confirm('删除留言','确认', function(action){ if(action == 'ok') { location.href = url; } }); }); //删除时间确认 $('.del_article_id').click(function(){ var delurl = $(this).attr('delurl'); asyncbox.confirm('删除文章','确认', function(action){ if(action == 'ok') { location.href = delurl; } }); }); /* //字数限制 $('#rmsg, #reply').live('keyup', function(){ var id = $(this).attr('id'); var left = Util.calWbText($(this).val(), 500); var eid = '#errmsg'; if(id == 'reply') eid = '#rerrmsg'; if (left >= 0) $(eid).html('您还可以输入<span>' + left + '</span>字'); else $(eid).html('<font color="red">您已超出<span>' + Math.abs(left) + '</span>字 </font>'); }); */ //加载表情 $('#face').qqFace({id : 'facebox1', assign : 'reply', path : '/image/qqface/'}); $('#mface').qqFace({id : 'facebox', assign : 'rmsg', path:'/image/qqface/'}); /* $('#class_one_id').change(function(){ alert(123213); var id = parseInt($(this).val() , 10); if(id == 0) return false; $('.hidden_son_class span').each(function( index , dom ){ if( dom.attr('cid') == id ) { } }); }); */ //转载文章 var turn_url = "/blog/viewClassPart.html"; $('#repost_bar').click(function(){ if(isOnLine == '' ) { //showErrorMsg('登录之后才能进行此操作' , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); return false; } var id = $(this).attr('bid'); asyncbox.open({ id : 'turn_class_thickbox', url : turn_url, title : '转载文章', width : 330, height : 131, scroll : 'no', data : { 'id' : id }, callback : function(action){ if(action == 'close'){ $.cover(false); } } }); }); /* //转发文章 $('#repost_bar').live('click' , function(){ if(isOnLine == '' ) { //showErrorMsg('登录之后才能进行此操作' , '消息提示'); showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); return false; } var bid = $(this).attr('bid'); var url = $(this).attr('url'); asyncbox.confirm('转载文章','确认', function(action){ if(action == 'ok'){ $.ajax({ type:"POST", url:url, data: { 'bid' : bid }, dataType: 'json', success:function(msg){ if(msg.error == 0){ showSucceedMsg('转发成功!', '消息提示'); }else if(msg.error == 1){ //location.href = '/index.php?r=site/login'; showErrorMsg('操作失败,您需要先登录!', '消息提示', 'http://account.chinaunix.net/login'); }else{ showErrorMsg(msg.error_content, '消息提示'); } } }); } }); }); */ }); </script> <!--该部分应该放在输出代码块的后面才起作用 --> <script type="text/javascript"> SyntaxHighlighter.autoloader( 'applescript /highlight/scripts/shBrushAppleScript.js', 'actionscript3 as3 /highlight/scripts/shBrushAS3.js', 'bash shell /highlight/scripts/shBrushBash.js', 'coldfusion cf /highlight/scripts/shBrushColdFusion.js', 'cpp c /highlight/scripts/shBrushCpp.js', 'c# c-sharp csharp /highlight/scripts/shBrushCSharp.js', 'css /highlight/scripts/shBrushCss.js', 'delphi pascal /highlight/scripts/shBrushDelphi.js', 'diff patch pas /highlight/scripts/shBrushDiff.js', 'erl erlang /highlight/scripts/shBrushErlang.js', 'groovy /highlight/scripts/shBrushGroovy.js', 'java /highlight/scripts/shBrushJava.js', 'jfx javafx /highlight/scripts/shBrushJavaFX.js', 'js jscript javascript /highlight/scripts/shBrushJScript.js', 'perl pl /highlight/scripts/shBrushPerl.js', 'php /highlight/scripts/shBrushPhp.js', 'text plain /highlight/scripts/shBrushPlain.js', 'py python /highlight/scripts/shBrushPython.js', 'ruby rails ror rb /highlight/scripts/shBrushRuby.js', 'scala /highlight/scripts/shBrushScala.js', 'sql /highlight/scripts/shBrushSql.js', 'vb vbnet /highlight/scripts/shBrushVb.js', 'xml xhtml xslt html /highlight/scripts/shBrushXml.js' ); SyntaxHighlighter.all(); function code_hide(id){ var code = document.getElementById(id).style.display; if(code == 'none'){ document.getElementById(id).style.display = 'block'; }else{ document.getElementById(id).style.display = 'none'; } } </script> <!--回顶部js2011.12.30--> <script language="javascript"> lastScrollY=0; function heartBeat(){ var diffY; if (document.documentElement && document.documentElement.scrollTop) diffY = document.documentElement.scrollTop; else if (document.body) diffY = document.body.scrollTop else {/*Netscape stuff*/} percent=.1*(diffY-lastScrollY); if(percent>0)percent=Math.ceil(percent); else percent=Math.floor(percent); document.getElementById("full").style.top=parseInt(document.getElementById("full").style.top)+percent+"px"; lastScrollY=lastScrollY+percent; if(lastScrollY<200) { document.getElementById("full").style.display="none"; } else { document.getElementById("full").style.display="block"; } } var gkuan=document.body.clientWidth; var ks=(gkuan-960)/2-30; suspendcode="<div id=\"full\" style='right:-30px;POSITION:absolute;TOP:500px;z-index:100;width:26px; height:86px;cursor:pointer;'><a href=\"javascript:void(0)\" onclick=\"window.scrollTo(0,0);\"><img src=\"\/image\/top.png\" /></a></div>" document.write(suspendcode); window.setInterval("heartBeat()",1); </script> <!-- footer --> <div class="Blog_footer" style='clear:both'> <div><a href="http://www.chinaunix.net/about/index.shtml" target="_blank" rel="nofollow">关于我们</a> | <a href="http://www.it168.com/bottomfile/it168.shtml" target="_blank" rel="nofollow">关于IT168</a> | <a href="http://www.chinaunix.net/about/connect.html" target="_blank" rel="nofollow">联系方式</a> | <a href="http://www.chinaunix.net/about/service.html" target="_blank" rel="nofollow">广告合作</a> | <a href="http://www.it168.com//bottomfile/flgw/fl.htm" target="_blank" rel="nofollow">法律声明</a> | <a href="http://account.chinaunix.net/register?url=http%3a%2f%2fblog.chinaunix.net" target="_blank" rel="nofollow">免费注册</a> <p>Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有 </p> <div>感谢所有关心和支持过ChinaUnix的朋友们 <p><a href="http://beian.miit.gov.cn/">16024965号-6 </a></p> </div> </div> </div> </div> <script language="javascript"> //全局错误提示弹出框 function showErrorMsg(content, title, url){ var url = url || ''; var title = title || '消息提示'; var html = ''; html += '<div class="HT_layer3_1 HT_layer3_2"><ul><li><p><span class="login_span1"></span>' + content + '</p></li>'; if(url == '' || url.length == 0){ html += '<li class="HT_li1"><input type="button" class="HT_btn2" onclick=\'close_windows("error_msg")\'></li>'; } else { html += '<li class="HT_li1"><input type="button" class="login_btn1" onclick="location.href=\'' + url + '\'"></li>'; } html += '</ul></div>'; $.cover(true); asyncbox.open({ id: 'error_msg', title : title, html : html, 'callback' : function(action){ if(action == 'close'){ $.cover(false); } } }); } //全局正确提示 function showSucceedMsg(content, title , url ){ var url = url || ''; var title = title || '消息提示'; var html = ''; html += '<div class="HT_layer3_1 HT_layer3_2"><ul><li><p><span class="login_span2"></span>' + content + '</p></li>'; if(url == '' || url.length == 0){ html += '<li class="HT_li1"><input type="button" class="HT_btn2" onclick=\'close_windows("error_msg")\'></li>'; } else { html += '<li class="HT_li1"><input type="button" class="HT_btn2" onclick="location.href=\'' + url + '\'"></li>'; } html += '</ul></div>'; $.cover(true); asyncbox.open({ id: 'error_msg', title : title, html : html, 'callback' : function(action){ if(action == 'close'){ $.cover(false); } } }); } //关闭指定id的窗口 function close_windows(id){ $.cover(false); $.close(id); } //公告 var tID; var tn; // 高度 var nStopTime = 5000; // 不同行间滚动时间隔的时间,值越小,移动越快 var nSpeed = 50; // 滚动时,向上移动一像素间隔的时间,值越小,移动越快 var isMove = true; var nHeight = 25; var nS = 0; var nNewsCount = 3; /** * n 用于表示是否为第一次运行 **/ function moveT(n) { clearTimeout(tID) var noticev2 = document.getElementById("noticev2") nS = nSpeed; // 只在第一次调用时运行,初始化环境(有没有参数) if (n) { // 设置行高 noticev2.style.lineHeight = nHeight + "px"; // 初始化显示位置 tn = 0; // 刚进入时在第一行停止时间 nS = nStopTime; } // 判断鼠标是否指向层 if (isMove) { // 向上移动一像素 tn--; // 如果移动到最下面一行了,则移到顶行 if (Math.abs(tn) == nNewsCount * nHeight) { tn = 0; } // 设置位置 noticev2.style.marginTop = tn + "px"; // 完整显示一行时,停止一段时间 if (tn % nHeight == 0) { nS = nStopTime; } } tID = setTimeout("moveT()", nS); } moveT(1); // 此处可以传入任何参数 </script> <script type="text/javascript"> // var _gaq = _gaq || []; // _gaq.push(['_setAccount', 'UA-20237423-2']); // _gaq.push(['_setDomainName', '.chinaunix.net']); // _gaq.push(['_trackPageview']); // // (function() { // var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; // ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; // var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); // })(); </script> <script type="text/javascript"> var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://"); document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3F0ee5e8cdc4d43389b3d1bfd76e83216b' type='text/javascript'%3E%3C/script%3E")); function link(t){ var href= $(t).attr('href'); href+="?url="+encodeURIComponent(location.href); $(t).attr('href',href); //setCookie("returnOutUrl", location.href, 60, "/"); } </script> <script type="text/javascript" src="/js/jquery.qqFace.js"></script> </body> </html>