tablestates perl（请问一个perl程序, 用来搜寻或比较在哪个区间中 perl新手, 不知道怎麼写, 能请大神们帮忙写一个吗谢谢）

：暂无数据 2026-07-30 19:20:03 ：0

大家好,今天小编来为大家解答以下的问题，关于tablestates perl，请问一个perl程序, 用来搜寻或比较在哪个区间中 perl新手, 不知道怎麼写, 能请大神们帮忙写一个吗谢谢这个很多人还不知道，现在让我们一起来看看吧！

本文目录

请问一个perl程序, 用来搜寻或比较在哪个区间中 perl新手, 不知道怎麼写, 能请大神们帮忙写一个吗谢谢
如何在perl中加载关于Excel的模块
perl 怎么判断数组元素只为空格
Perl脚本中有这么个语句，不是很理解，希望懂的人给解释一下，谢谢
perl dbi 中如果获得结果的字段名

请问一个perl程序, 用来搜寻或比较在哪个区间中 perl新手, 不知道怎麼写, 能请大神们帮忙写一个吗谢谢

my %table;
my $table = 0;
while (《DATA》) {
chomp;
if (/表(\d+)/) {
$table = $1;
《DATA》;
next;
}
if ($table) {
my @n = split //;
if (@n 》 1) {
if ($table == 1) {
unless (exists $table{$n}) {
$table{$n;
}
push @{$table{$n;
}
else {
my $f = "X";
if (exists $table{$n}) {
my $t = $table{$n};
my $id = binary_find($n, $t);
$f = $t-》 if ($id 》= 0);
}
print "$_ =》 $f\n";
}
}
else {
$table = 0;
}
}
}
sub binary_find {
my ($d, $table) = @_;
my ($l, $r) = (0, $#$table);
my $m;
while($l 《= $r) {
$m = ($l+$r)》》 1;
if ($d 《 $table-》) {
$r= $m-1; next;
}
if ($d 》 $table-》) {
$l = $m+1; next;
}
return $m;
}
return -1;
}
__DATA__
表1.
代号名称开始区间结束区间
c1 A239393239500
c2 A239501240084
c3 A240085240195
c4 B240196250697
c5 C250698250808
表2.
名称数值
A239408
A245878
B144544
C250772

如何在perl中加载关于Excel的模块

下面是一个简单的例子，先要安装几个模块,按照提示安装吧。
#!/usr/bin/perl -w
## Program : xls.pl
## Version : 1.0
## Date : 2010.7.8
##------------------------------------------------------------------------------
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
use Spreadsheet::WriteExcel;
#---------------------------写EXCEL-------------------------------------------------------
my $output= File::Spec-》catfile(’Copy.xls’);
my $Map=new Unicode::Map("GB2312");
my $workbook=Spreadsheet::WriteExcel-》new("$output");
my $out_worksheet=$workbook-》add_worksheet("table");
$format = $workbook-》add_format(align=》’center’,bg_color=》’cyan’,border=》 1);
#---------------------------读取EXCEL-------------------------------------------------------
$filename="input.xls";
my $oExcel = new Spreadsheet::ParseExcel;
my $code = "gb2312";
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode-》new(Unicode_Map =》$code);
my $oBook = $oExcel-》Parse( $filename, $oFmtJ );
my $sheet=$oBook-》{Worksheet};
#$sheet_name=$sheet-》{Name};
my ( $minRow, $maxRow ) = $sheet-》row_range();
my ( $minCol, $maxCol ) = $sheet-》col_range();
my @rowdata;
my $r_num=0;
for $r(0..$maxRow){
@row_data=getSingleRow($r,$maxCol,$sheet);
#print "@row_data"."\n";
my $i=0;
foreach(@row_data){
print $_;
$out_worksheet-》write_unicode($r,$i++,$Map-》to_unicode($_),$format);
}
}
sub getSingleRow{
my($row,$maxCol,$sheet)=@_;
my @row_all;
foreach my $col ( 0 .. $maxCol ){
my $cell = $sheet-》get_cell( $row, $col );
next unless $cell;
$data=$cell-》value;
push(@row_all,$data);
}
return @row_all;
}