- 论坛徽章:
- 0
|
 过路大侠，
帮忙看下一个字符长度的问题：
如下为子程序最后打出来的结果，很奇怪的发现每段字符串到了第80个字符就有个空格产生（就是如下b和03之间空格）。
------------------------打出来的结果如下---------------------------
mm_fileline-Abel : oaf:20130518:/crcfmsnfs/deployment/wuhan/20130518/code/oaf/crc/oracle/apps/cux/b 03/ap/payrequest/webui/CuxApCheckAttUPPG.xml oaf:20130518:/crcfmsnfs/deployment/wuhan/20130518/code/oaf/crc/oracle/apps/cux/b 03/ap/payrequest/webui/CuxApPayRequestPG.xml
---------------------------------------------------------------------
问题1：为什么每段到第80个字符就有空格？这样我的路径就不对了；
问题2：如何解决这个问题？
-------------------------- 子程序如下-------------------------------
sub getFilesList
{
my $fileline;
my $sqlSpoolFile = getOSfilepath("$arg{currentdir}/files_spoolfile.txt");
my $getFilesSql = getSqlScript("FILE_LIST", $sqlSpoolFile);
my $runStatus = runSqlScript($getFilesSql,"apps",$arg{'appspwd'});
if( $runStatus != 0 ){
errorAndExit("ERROR at run sql: $@\n");
}
open (SPOOLFILE,"$sqlSpoolFile") || die ("Cannot open $sqlSpoolFile");
while ($fileline=<SPOOLFILE>)
{
chomp ($fileline); # Get rid of the trailling \n
$fileline =~ s/^\s*//; # Remove spaces at the start of the line
$fileline =~ s/\s*$//; # Remove spaces at the end of the line
if($fileline ne ""){
@_stepVerFile[$stepVerFileCount] = $fileline ;
$stepVerFileCount += 1;
}
}
printLogAndOut("mm_fileline-Abel : @_stepVerFile\n",1);
close SPOOLFILE || die "ERROR: Can not close file : $sqlSpoolFile";
unlink $sqlSpoolFile if(-f $sqlSpoolFile);
}
|
|
免费注册
发表于 2013-05-22 21:35
