小编Shi*_*iel的帖子

我试图放在${date[0]}我的目录中,相当于01252010但@hits不打印.如何设置打开目录以获得所需的输出？谢谢.

错误:在./total.pl第11行第1行的包含换行符的文件名上打开不成功.

#!/opt/perl/bin/perl -w

use strict;

open(FH,"/home/daily/scripts/sms_hourly_stats/date.txt");
my @date = <FH>;
print $date[0];

my $path = "/home/daily/output/sms_hourly_stats/${date[0]}/TOTAL.txt";
open(FILE,"$path") or die "Unable to open $path: $!";
my @hits = <FILE>;
print @hits;

close FH;
close FILE;

没有提取数据输出到data2.txt？代码出了什么问题？

MyFile.txt的

ex1,fx2,xx1
mm1,nn2,gg3
EX1,hh2,ff7

这是data2.txt中我想要的输出:

ex1,fx2,xx1
EX1,hh2,ff7

#! /DATA/PLUG/pvelasco/Softwares/PERLINUX/bin/perl -w

my $infile  ='My1.txt';
my $outfile ='data2.txt';

open IN,  '<', $infile  or die "Cant open $infile:$!";
open OUT, '>', $outfile or die "Cant open $outfile:$!";

while (<IN>) {   
  if (m/EX$HF|ex$HF/) {
    print OUT $_, "\n";      
    print $_;   
  }
}

close IN;
close OUT;

我有一个包含一些数据的文本文件.我试图仅在ID列中搜索EA 并打印整行.但代码识别所有EA并打印所有行.我应该添加什么代码来满足条件？再次感谢:-)!

数据:
姓名年龄ID
---------------------
KRISTE,22,EA 2008
J EA N,21,ES4567
JAK,45,EA 2008

代码打印:
KRISTE ,22,EA 2008
J EA N,21,ES4567
JAK,45,EA 2008

期望的输出:
KRIS,22,EA 2008
Kane,45,EA 2008,

file='save.txt';
open(F,$file)||die("Could not open $file");
while ($line=<F>){
if ($line=~ m/$EA/i) {
my @cells=($f1,$f2,$f3)= split ',',$line;
print "<TD>f1</TD>";
print "<TD>f2</TD>";
print "<TD>f3</TD>";
}

我的程序已经运行了,我有Perl(GUI窗口),我可以在其中输入数据,传递到网页的数据(使用到Tomcat服务器,JSP),然后将其保存到oracle数据库.我想要的是使用Perl CGI创建从Oracle数据库中检索/提取数据的搜索参数(webapp).可能吗？或者任何解决我的计划的建议？谢谢!:-)

我运行我的Perl脚本(gettotal.pl),它工作正常.我设法得到TOTAL.txt的总和,并将输出值附加到test.txt.但是当我在shell脚本(test.sh)中运行它时出现了这个错误:

在/home/daily/scripts/per_NODE_HR/gettotal.pl第29行打开太多参数,在""$ dir附近")"/home/daily/scripts/per_NODE_HR/gettotal.pl的执行因编译错误而中止.

手动运行它(./gettotal.pl)和在shell脚本中运行它有什么区别？简单但仍然让我感到困惑:-)

gettotal.pl

#!/opt/perl/bin/perl-w

use strict;

my $sum;

open(FH,"/home/daily/scripts/per_NODE_HR/date.txt");
chomp (my @date = <FH>);

my $path = "/home/daily/output/per_NODE_HR/$date[0]/TOTAL.txt";
open(FILE,"$path") or die "Unable to open $path: $!";
my @hits = <FILE>;

$sum=sum($#hits);
print "TOTAL =  $sum";

print "\n";
sub sum {
if ($_[0] == 0) {
return $hits[0];
}
return $hits[$_[0]] + sum($_[0]-1);
}
my $dir = "/home/daily/output/per_NODE_HR/$date[0]/test.txt";
open(OUT,'>>', "$dir") or die "Cannot open $dir: $!";
print OUT "TOTAL: $sum";

close OUT;
close FILE;
close …

我正在搜索"o"然后用"o"打印所有行.我必须申请的任何建议/代码？

data.txt中:

j,o,b:
a,b,d:
o,l,e:
f,a,r:
e,x,o:

期望的输出:

j,o,b:
o,l,e:
e,x,o: