Linux find2perl命令

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

Linux find2perl命令 功能描述

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

Linux find2perl命令 语法

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

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

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”);
}