如何使用命令行参数从 bash 运行 perl 脚本？

Question

我正在尝试创建一个脚本来批量标记一组用户在 RT 中具有特权。我在 RT wiki 上找到了一个脚本，用于将用户添加到组并赋予他们特权状态，然后删除了与添加到组有关的部分。我剩下的 perl 脚本是：

#!/usr/bin/perl
# Usage: ./rt_set_privileged.pl <username>

use strict;
use lib "/var/www/ticket.ourcompany.com/lib";
use RT;
use RT::User;
use RT::Interface::CLI;

RT::LoadConfig();
RT::Init();

# Create RT User Object
my $user = new RT::User($RT::SystemUser);

# Instantiate the user object with the user passed as parameter
my $usertoadd = $ARGV[0];
$user->Load( $usertoadd );

# Set the privileged flag (1=privileged, 0=unprivileged)
$user->SetPrivileged(1);

exit 1

我有一个文件中的用户，每行一个用户名。我目前还不了解 perl，所以我尝试创建一个小 bash 脚本来遍历文件并按名称运行 perl 脚本一次。现在的 Bash 脚本：

#!/bin/bash

touch commands.sh
cat usernames.txt | while read LINE ; do
        N=$((N+1))
        echo /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\" >> commands.sh
        /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        perl /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        perl -w /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        eval /home/chris/RT/bin/rt_set_privileged.pl \"$LINE\"
        perl "/home/chris/RT/bin/rt_set_privileged.pl $LINE"
done
echo "Processed $N users"

如您所见，我尝试了很多方法来运行命令，但都无济于事。令人讨厌的是，之后我可以从 commands.sh 文件中获取任何命令，然后将它们直接粘贴到终端中，没有问题，这很好用。但是，当它们通过 bash 脚本运行时，我只会收到一堆这些消息：

[Tue Sep  4 07:43:56 2012] [critical]: _AddMember called with a parameter that's not an integer. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:912)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value $principal in pattern match (m//) at /var/www/ticket.ourcompany.com/lib/RT/Group.pm line 970. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:968)
[Tue Sep  4 07:43:58 2012] [error]: Group::HasMember was called with an argument that isn't an RT::Principal or id. It's (undefined) (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:973)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value $principal in pattern match (m//) at /var/www/ticket.ourcompany.com/lib/RT/Group.pm line 970. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:968)
[Tue Sep  4 07:43:58 2012] [error]: Group::HasMember was called with an argument that isn't an RT::Principal or id. It's (undefined) (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:973)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value in concatenation (.) or string at /var/www/ticket.ourcompany.com/lib/RT/User.pm line 341. (/var/www/ticket.ourcompany.com/lib/RT/User.pm:341)
[Tue Sep  4 07:43:58 2012] [critical]: User  is neither privileged nor unprivileged. something is drastically wrong. (/var/www/ticket.ourcompany.com/lib/RT/User.pm:341)
[Tue Sep  4 07:43:58 2012] [warning]: Use of uninitialized value $new_member in pattern match (m//) at /var/www/ticket.ourcompany.com/lib/RT/Group.pm line 911. (/var/www/ticket.ourcompany.com/lib/RT/Group.pm:911)

提示该命令在没有任何参数的情况下运行。在这一点上，我实际上可以在我试图解决它的时候为每个用户运行一次命令，有人可以帮忙吗？

Answer 1

啊，我很遗憾我花了这么长时间才意识到这么简单的问题。问题是字符串格式之一 - 文件 usernames.txt 是由使用 Windows 的某人创建的，并且具有 dos 格式（CRLF）。我猜参数是作为 [username][LF] 到达的，并搞砸了 $User 变量的实例化。

我确信如果不来这里讨论的话我永远不会得到这个，我只是在兜圈子，只是自己尝试一下。

该决议只是为了：

sudo apt-get install tofrodos
sudo fromdos usernames.txt

然后原来的脚本就起作用了

非常感谢大家的帮助。

编辑：现在已经过去了足够的时间让我将其从原始问题的编辑移至它自己的答案