perl格式化模板

#!/usr/bin/env perl
use warnings;
use strict;
use Getopt::Long;
use FindBin qw($Bin);
use File::Basename qw(basename);
use File::Spec::Functions qw(rel2abs);

##### main program #####
my $mainPL = basename($0);
my $ysbin = "$Bin/ysbin";

&main;
exit;

sub main
{
	&usage if(@ARGV < 1);

	my $command = shift(@ARGV);
	my %func =
	(
		"venn"  => \&venn,
	);

	if(!defined($func{$command}))
	{
		warn("\n\tUnknown command: \"$command\"\n");
		&usage;
	}
	&{$func{$command}};
}

sub usage
{
	die(qq/
	Usage:	$mainPL <command> [options]
	Command:
		venn           draw venn pics and get venn matrix of samples.
	\n/);
}

##### sub program #####
sub venn
{
	my $pl = "perl $ysbin/venn.pl";
	my $help;
	GetOptions(
		"help|h" => \$help,
	);
	die `$pl 2>&1` if($help);

	die(qq/
	Usage:	$mainPL venn <files> <labels>
	Notes:
		1. Need R and VennDiagram package of R
		2. <files> means a,b,...(2~5 files); <labels> means x,y,...(2~5 labels)
	Options:
		-help|-h			see the detail help information about venn
	\n/) if(@ARGV != 2);

	&runSH("$pl -f $ARGV[0] -l $ARGV[1]");
}

sub runSH
{
	my ($sh) = @_;
	&showTime($sh);
	`$sh`;
	&showTime("Task is completed~");
}

sub showTime
{
	my ($text) = @_;
	my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;
	my $format_time = sprintf("[%d-%.2d-%.2d %.2d:%.2d:%.2d]", $year+1900, $mon+1, $mday, $hour, $min, $sec);
	print STDERR "$format_time $text\n";
}

时间: 2024-11-07 06:13:39

perl格式化模板的相关文章

eclipse 使用技巧、经验 (编码、格式化模板、字体)

1.设置编码为UTF-8 在Windows-<Preference页面中,选择General-<WorkSpace 选择右侧框中的Text File encoding,改为utf-8 2.导入 格式化模板 windows->preference->java->code style->code template 点击import按钮 3.字体大小 Window - Preferences->General-Appearance-Colors and Fonts 展开

Eclipse/MyEclipse注释模板和格式化模板的使用

在一个项目的完整的生命周期中,其维护费用,往往是其开发费用的数倍.因此项目的可维护性.可复用性是衡量一个项目好坏的关键.而注释则是可维护性中必不可少的一环. 注释模板导入步骤   安装方法:打开eclipse/myeclipse选择 window-->Preferences-->JAVA-->Code-->Code Templates 右边点Import 选择你写好的模板.xml文件导入进去即可 使用方法:创建新类的时候,勾上"Generate comments"

eclipse注释模板及格式化模板导入步骤

1.点击Window->Preference->Java -> Code Style -> Formatter 2.点击右侧Import选择*.xml模板文件导入即可 3.如果需要对模板进行修改,可点击Edit编辑即可 模板实例: <?xml version="1.0" encoding="UTF-8"?> <profiles version="10"> <profile name="

设置Myeclipse中的代码格式化、注释模板及保存时自动格式化

1:设置注释的模板: 下载此模板:  codetemplates.xml 搜索Dangzhang,将其改为你自己的姓名,保存 打开eclipse/myeclipse选择 window-->Preferences-->JAVA-->Code-->Code Templates 右边点Import 选择你写好的模板.xml文件导入进去即可 2:设置格式化的模板: 格式化模板:eclipse-formatter.xml 格式化模版方法同上,只是不是选择Code Templates ,而是选

Perl 正则表达式语法

1. 概要 Perl正则表达式是Boost.regex 默认行为,也可以将perl传入basic_regex 构造. boost::regex  e1(my_expression); boost::regex  e2(my_expression,  boost::regex::perl  |  boost::regex::icase); 2. 特殊字符 . [ { ( ) \ * + ? | ^ $ 3. 通配符 ‘ .’ 在字符集之外使用时可以匹配任意单字符,除了以下两种特殊情况: (1)NU

3.1.3 格式化字符串的语法

字符串str.format()和Formatter类都是使用相同的格式化字符串. 格式化字符使用大括号{}来包括替换的字段.不论什么不在大括号中的字符都是直接输出而不作转换.因此.想要输出大括号,就须要使用特别的方式,使用双大括号方式来输出大括号.比方{{来输出{,}}来输出}. 格式化字符串的语法例如以下: replacement_field ::=  "{" [field_name] ["!" conversion] [":" format_

Perl 教程

Perl 教程PerlPerl 是 Practical Extraction and Report Language 的缩写,可翻译为 "实用报表提取语言".Perl 是高级.通用.直译式.动态的程序语言.Perl 最初的设计者为拉里·沃尔(Larry Wall),于1987年12月18日发表.Perl 借用了C.sed.awk.shell脚本以及很多其他编程语言的特性.Perl 最重要的特性是Perl内部集成了正则表达式的功能,以及巨大的第三方代码库CPAN.谁适合阅读本教程?本教程

数据格式化

DecimalFormat,NumberFormat 在实际工作中,常常需要设定数字的输出格式,如以百分比的形式输出,或者设定小数位数等,现稍微总结如下. 主要使用的类:java.text.DecimalFormat 1.实例化对象,可以用如下两种方法:       DecimalFormat df=(DecimalFormat)NumberFormat.getInstance();       DecimalFormat df1=(DecimalFormat) DecimalFormat.ge

DecimalFormat格式化数字

DecimalFormat格式化数字 DecimalFormat类也是Format的一个子类,主要作用是格式化数字.当然,在格式化数字时要比直接使用NumberFormat更加 方便,因为可以直接指定按用户自定义的方式进行格式化操作,与SimpleDateFormat类似,如果要进行自定义格式化操作,则必须指定格式化操作 的模板,此模板如表11-13所示. 表11-13  DecimalFormat格式化模板 序号 标  记 位  置 描  述 1 0 数字 代表阿拉伯数字,每一个0表示一位阿拉