一段简单的PERL代码

HF_SKY000 2009-04-30 03:52:51

28 if($j - 7*1*24*3600>=$i){ #删除七天前的文件
29 my $b=time2str("%Y-%m-%d",$i);
30 $b=parsetime($b);
31 my $cmd1="ls -l *$b*";
32 my $cmd2="cd $path";
33 system($cmd2);
34 print $cmd2,"\n";
35 print $cmd1,"\n";
36 system($cmd1);
37 }
打印信息：
perl clearpmfile.pl
cd /usr2/exec_dir/adapter/perf/corba/Luc/hb_luc_omp1/pmFileLog
ls -l *20090405*
*20090405*: 无此文件或目录
cd /usr2/exec_dir/adapter/perf/corba/Luc/hb_luc_omp1/pmFileLog
ls -l *20090405*
*20090405*: 无此文件或目录
cd /usr2/exec_dir/adapter/perf/corba/Luc/hb_luc_omp1/pmFileLog
ls -l *20090413*
*20090413*: 无此文件或目录
cd /usr2/exec_dir/adapter/perf/corba/Luc/hb_luc_omp1/pmFileLog
ls -l *20090416*
*20090416*: 无此文件或目录
cd /usr2/exec_dir/adapter/perf/corba/Luc/hb_luc_omp1/pmFileLo
程序不报任何错，手工执行打印信息，可以找到目录下对应的文件。但是程序执行的时候为什么却显示“无此文件或目录”

...全文

189 8 打赏收藏转发到动态举报

写回复

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

geckox 2009-05-16

打赏
举报

回复

支持一下

ABCatai 2009-05-12

打赏
举报

回复

顶一个

sharp_future 2009-05-06

打赏
举报

回复

可以
[Quote=引用 5 楼 ecitnet 的回复:]

use CGI;
[/Quote]

wx红杉树 2009-05-04

打赏
举报

回复

use CGI;

HF_SKY000 2009-04-30

打赏
举报

回复

明白了。再请教一下：写CGI程序，要俱备什么条件，以及怎么执行。

Aylazhang 2009-04-30

打赏
举报

回复

手工执行打印什么信息。
为什么循环一次要cd一下呢？在循环外执行cd 。
另外 ls *$b* 这样，要调用system，新启一个进程，效率太低了。直接用 // 匹配$b不就可以了。
符合条件的执行删除（unlink）

HF_SKY000 2009-04-30

打赏
举报

回复

还是一样的效果，真想不明白。。。。。。。。。。。。

yuetiantian 2009-04-30

打赏
举报

回复

试试下面的：
修改第32，33行，改为
chdir($path);

在我们写的程序中，可能会因为需求的变更，导致程序中的一段代码，在使用中不再需要，但是可能在以后还会需要用到，这时候我们选择把这一段给注释掉。也就是通过注释的方法，使其不能够运行，但是依然存在于代码中，这样我们在需要的时候可以去掉注释。第一种方法，很简单，也就是使用#来注释。但是这里有缺点，就是每次# 只能够注释一行，如果我们要注释的代码很长，那就是一件很麻烦的事情。其实还有另外的一种

有的时候，很多fasta文件是这个样子的：但是，有些软件或者程序只能是一行id，一行序列的读取。这就要求我们需要将上述格式序列多行转一行。下面这段代码可以解决上述问题。 #!/usr/bin/perl use strict; use warnings; my $id; my $seq; open IN,"$ARGV[0]" or die "Can't open fasta file!"; local $/ = ">"; <IN>;##第一个">"过掉 while (<I

第一个博客，如果写的烂请多担待。前段时间在单位的测试网中发现一个矿机，拿出来分析，分析定时任务脚本就发现一个很棘手的问题，bash中调用了一个base64加密的perl脚本。 #!/bin/sh nohup ./stop>>/dev/null & sleep 5 echo "ZXZhbCB1bnBhY2sgdT0+cXtfIkZVWSgiMVA8Rl1DOTctUzt...

也正是因为Perl的灵活性和"过度"的冗余语法，也因此获得了仅写（write-only）的"美誉"，因为Perl程序可以写得很随意（例如，变量不经声明就可以直接使用），但是可能少写一些字母就会得到意想不到的结果（而不报错），许多Perl程序的代码令人难以阅读，实现相同功能的程序代码长度可以相差十倍百倍，这就令程序的维护者（甚至是编写者）难以维护。，并统一代码风格，使用库，而不是自己使用"硬编码"。Perl 的命名是用户编程时使用的名字，在程序中使用的变量名，常量名，函数名，语句块名等统称为标识符。

Perl的注释

37,741

社区成员

34,213

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

试试用AI创作助手写篇文章吧

+ 用AI写文章