Linux find2perl命令

Linux find2perl命令:转换找到的命令行为Perl代码。

Linux find2perl命令 功能描述

使用find2perl命令可以找到命令行并转换为等效的Perl代码。

Linux find2perl命令 语法

find2perl [路径] [谓词] |[perl]

命令中的谓词描述如下表所示。



find2perl命令谓词

Linux find2perl命令 示例

在/etc目录下找到命令行并转换为等效的Perl代码

[root@rhel ~]# find2perl /etc -name crontab
#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
      if 0; #$running_under_some_shell
use strict;
use File::Find ();
# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.
# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name =*File::Find::name;
*dir  =*File::Find::dir;
*prune =*File::Find::prune;
sub wanted;
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/etc');
exit;
sub wanted {
  /^crontab\z/s
  && print(“$name\n”);
}
赞(1)
未经允许不得转载:极客笔记 » Linux find2perl命令
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址