在 perl 中为外部用户输入编码

Question

我是 perl 和编码的新手，不完全确定 where/what 是否要搜索，所以这个问题之前可能有人问过。

我完成了用 perl 编写的程序，想知道使用什么代码可以让我在程序外输入变量（名称）而无需在编码中指定它 - 有人告诉我有一种方法在腻子之外执行程序（我使用腻子）并且它要求我事先输入 variable/s 。

在编码中，变量在开头指定为：

我的$name='xxx';

之后，该名称用于指定要使用的文件等。我有 30 多个不同的名称需要单独运行，所以如果我可以将其作为一部分输入会容易得多程序而不是每次都在腻子中更改编码。

希望我的问题很清楚 - 我仍在学习不同的术语和语法。

谢谢！

Answer 1

use strict;
use warnings; 

open(IN,$ARGV[0]) or die "Cannot open $ARGV[0]:$!\n";
my @in = <IN>;
close(IN);

my $name='';
foreach my $in(@in){
   chomp($in);   
   $name = $in;
   ###your code here
 }

你的文件样本

名字 1

名字2

name3

运行你的程序是

perl program.pl filename.txt

更新：（在 OP 的评论之后）

my $name = <STDIN>;

这将提示用户输入。

在 perl 中为外部用户输入编码

Coding for external user input in perl

variables

perl

putty

input

execute