代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
绘制指数统计图表
作者:
两把刷子
/ 发布于
2014/1/17
/
714
# # This software is in the public domain. # usestrict; useGD; usePOSIX qw(log10) my$width= 850; my$height= 200; my$end_space= 40; my$marked_width=$width-$end_space-$end_space; my$min_power= 0; my$max_power= 6; my$inter_space=$marked_width/ ($max_power-$min_power); my$im= new GD::Image($width,$height); my$white=$im->colorAllocate(255,255,255); my$black=$im->colorAllocate(0,0,0); my$red=$im->colorAllocate(255,0,0); my$blue=$im->colorAllocate(0,0,255); $im->setThickness(2); $im->line(0, 100,$width, 100,$black); formy$i($min_power..$max_power) { $im->setThickness(2); my$x=$inter_space*$i+$end_space; $im->line($x, 75,$x, 125,$black); my$str= 10**$i; $str= (' 'x (7 -length($str))) .$str; $im->stringUp(&gdTinyFont,$x-4, 160,$str,$black); nextif$i==$max_power; $im->setThickness(1); formy$j(2..9) { my$x2=$x+ (log10($j) *$inter_space); my$str=sprintf'%g', log10(10**$i*$j); $im->stringUp(&gdTinyFont,$x2-4, 75,$str,$black); $im->line($x2, 80,$x2, 120,$blue); } } openmy$image_out,"> ruler.png"; binmode$image_out; $image_out->print($im->png); //该代码片段来自于:http://www.sharejs.com/codes
试试其它关键字
统计图表
同语言下
.
获取本机所有IP和设备的绑定情况
.
生成隨機密碼
.
取文件的最后修改时间
.
获取本机所有IP和设备的绑定情况
.
将perl脚本变成乱糟糟的一团
.
从 HTML网页中解析出链接
.
使用 HTTP::Request 请求 URL 并将响应保存到文件
.
使用指定的User-Agent抓取网页
.
使用 Net::SMTP发送邮件
.
编写的一个简单 Web服务器
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
两把刷子
贡献的其它代码
(
6
)
.
检测输出设备是屏幕还是管道
.
添加字符串到文件代码片段
.
检测文件大小
.
绘制指数统计图表
.
计算倒数算法
.
实现逆波兰式与递归计算
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3