linux - redhat 中的 Perl 和 shell 脚本

Question

我对 Perl、Linux 和 shell 脚本还很陌生。谁能告诉我这段脚本到底在做什么？我已经通过互联网搜索，但找不到答案。

#!/bin/bash
set +xe

if [ x"$Link_A" == "x" ] ; then
echo "Link_A parameter not set, DOESNOT execute FUNCTION"
else
cp -f ~/cached-resources/www.github.com/file1/executables/JenkinsScripts/jenkins_feed.pl ./jenkins_feed.pl
perl jenkins_feed.pl $JENKINS_HOME/feed_config.ini $Link_A
fi

感谢任何帮助。

我在 Perl 中添加了源代码并也编辑了 shell 参数名称。我需要在系统路径中更改或附加或放置什么才能运行此 Perl 文件。

源代码:https://github.com/rebeccaus/perl/blob/master/feed.pl

Answer 1

另一种解释:

#!/bin/bash

# enable debug
set +xe 

# this is an old school way to check for an empty variable    
# modern shells can use [[ $foo == "" ]] to do this
if [ x"$Link_A" == "x" ] ; then

    # a normal error message for when the variable is not set
    echo "Link_A parameter not set, DOESNOT execute FUNCTION"
else # the variable has a value so we can use it...

    # copy this file to the current directory
    cp -f ~/cached-resources/www.github.com/file1/executables/JenkinsScripts/jenkins_feed.pl ./jenkins_feed.pl

    # run the script in perl with arguments that include variable
    # substitution and some fixed text
    perl jenkins_feed.pl $JENKINS_HOME/feed_bts.ini $Link_A
fi

我还重新格式化了脚本，以便缩进条件语句的内部部分。

来自评论的奖励问题

1. Is Link_A a file ?

Link-A 是一个变量。一个变量可以指向一个文件或目录，但不清楚在这种情况下该变量将包含什么。必须检查 perl 脚本才能明确回答这个问题。

2. what does feed_bts.ini means do i need to create a file like this explicitly if not present?

我猜 perl 脚本需要一个文件名作为它的第一个参数。 shell 脚本提供了这一点，它希望 feed_bts.ini 文件位于 $JENKINS_HOME(另一个变量)目录中。

3. Do I need to keep the jenkins_feed.pl and feed_bts.ini in same directory to run the script?

由于 cp，jenkins_feed.pl 最终与 shell 脚本位于同一目录中。它以 ~/cached-resources/www.github.com/file1/executables/JenkinsScripts/jenkins_feed.pl 开头。请注意，~ 是运行脚本的用户的主目录。

4. from which path is the perl script executing

这可能会使用与您的发行版一起安装的任何普通 perl。从技术上讲，shell 将遍历 $PATH 中的所有目录，直到找到它或用完所有目录。

perl脚本分析

• 第二个参数$Link_A 包含三个信息。在 https://github.com/rebeccaus/perl/blob/master/feed.pl#L17这被分成三个变量:$Link_A,$skey,$priority。

  1. 这一部分的第一部分被塞回同名变量中，该变量仅在 https://github.com/rebeccaus/perl/blob/master/feed.pl#L90 处使用。 .看起来它只是出现在描述中特定位置的任意文本 ($desc)，最终出现在 Jenkins XML 字段 IV_DESCRIPTION 中。
  2. $skey 进入 Jenkins XML 字段 IV_EVENT_KEY。有一个默认值以防万一 https://github.com/rebeccaus/perl/blob/master/feed.pl#L129 .
  3. $priority 进入 Jenkins XML 字段 IV_PRIORITY。

• 我没有找到任何方便的方法来定义这些字段的作用。它们是对“feed_issue_CREATION”的 SOAP 调用的一部分。

• 脚本的第一个参数看起来像一个配置文件。

  1. https://github.com/rebeccaus/perl/blob/master/feed.pl#L14从命令行读取第一个参数。如果缺少它，请转到 usage 子例程。
  2. 然后 https://github.com/rebeccaus/perl/blob/master/feed.pl#L19检查以确保它存在并且它是一个文件。如果不是，则再次转到 usage 子例程。
  3. https://github.com/rebeccaus/perl/blob/master/feed.pl#L49以配置文件名作为参数调用 readopeninc 子例程。
  4. https://github.com/rebeccaus/perl/blob/master/feed.pl#L287定义了 readopeninc 子例程，它似乎做了一些事情。它忽略以 # 作为绝对第一个字符开头的行。它去除任何前导和尾随空白。然后它假设你有像 shell 一样的变量赋值:VAR_NAME=SOME_VALUE
  5. 之后，它似乎将其中的值用作需要更新或关闭的作业。
• 基于 https://github.com/rebeccaus/perl/blob/master/feed.pl#L115看起来 $inclog 又名 feed_INC.txt 不知何故采用相同的格式。
• 基于 https://github.com/rebeccaus/perl/blob/master/feed.pl#L80它正在寻找当前目录中的文件。