Perl 提取文本中需要的值

来源：蜘蛛抓取(WebSpider) 时间：2019-02-28 11:22 标签：

  语法为open (filevar, filename)其中filevar为文件句柄，或者說是程序中用来代表某文件的代号filename为文件名，其路径可为相对路径亦可为绝对路径。

  打开文件时必须决定访问模式在PERL中有三种访问模式：读、写和添加。后两种模式的区别在于写模式将原文件覆盖原有内容丢失，形式为：open(outfile,">outfile");而添加模式则在原文件的末尾处继续添加内嫆形式为：open(appendfile, ">>appendfile")。要注意的是不能对文件同时进行读和写/添加操作。

  open的返回值用来确定打开文件的操作是否成功当其成功时返回非零值，失败时返回零因此可以如下判断：

  当文件打开失败时结束程序：

  亦可用逻辑或操作符表示如下：

  语句$line = <MYFILE>;从文件中读取一行数据存储到简單变量$line中并把文件指针向后移动一行。<STDIN>为标准输入文件通常为键盘输入，不需要打开


  注：STDOUT、STDERR为标准输出和标准错误文件，通常为屏幕且不需要打开。



距上次访问文件的inode多长时间
是否只为“真正的用户”所拥有
是否只有“真正的用户”可读
是否只有"真正的用户"可写
是否呮有"真正的用户"可执行
注：“真正的用户”指登录时指定的userid与当前进程用户ID相对，命令suid可以改变有效用户ID

我是Perl的新手我很困惑如何完成這项任务。我有两个文件：

  1. Seq.txt包含许多序列（数据库）
  2. PID.txt，它只包含我需要从Seq.txt文件中提取的某些序列的ID（查询）

在这里，我给出了我的两個文件的一小部分：

为什么不承认$a如果我放[ $ a ]，那么绑定操作符会识别$a但不返回我想要的序列（存储了ID $a）而是返回第一个序列。

我要回帖

 

随机推荐