小编Sun*_*nny的帖子

我在Perl中使用了一些系统命令.

在下面的例子中,我获得如下输出:

ls: import-log.*: No such file or directory

ls: error-log.*: No such file or directory

No specified files found for deletion

我的代码:

sub monthoryear() 
{

  @importlog = `ls -al import-log.*`;

  @errorlog = `ls -al error-log.*`;

}

即使没有文件,我也不希望在输出中看到以下内容.

ls: import-log.*: No such file or directory &

ls: error-log.*: No such file or directory

我有这种字符串

NAME1              NAME2          DEPTNAME           POSITION
JONH MILLER        ROBERT JIM     CS                 ASST GENERAL MANAGER 

我希望输出是name1 name2和位置如何使用split/regex/trim/etc并且不使用CPAN模块？

运行此查询时,我没有得到任何输出.我无法理解.任何人都可以帮助我.在这种情况下$ lastfiscyear = 09/10.

getitem44();  
sub getitem44()  
{  
$sqlquery = sprintf("select sum(f.expenditure)          
                     from funds f,ledger l      
                     where l.ledger_id in (select ledger_id from ledger  
                                           where upper(ledger_name) like 'MONOACQ%' and  
                                           substr(ledger_name,length(ledger_name)-4, 5) = '%s') and  
                                  f.ledger_id = l.ledger_id and  
                                  substr(f.funds_name, 1, instr(f.funds_name,',')-1) like '%e' ", $lastfiscyear);    
$sth = $dbh->prepare($sqlquery);  
$rc = $sth->execute;  
my $total = $sth->fetchrow_array;  
print "$total\n";  
}