perl 模块中怎么使用全局变量 使用：符号，就是perl未公开的全局变量 比如你定义$LB：ver 那么这个变量可以在 use strict；方式下不会出错，并且，如果主程序中存在 你的子程序或者模块中都可以使用这个全局变量！
perl如何判断一个变量已经包含在一个数组中 可以试一下这几种方式，每种方式各有优劣：bin/perl-wuse strict；my@arr=(\"aaa\"，\"bbb\"，\"ccc\"，\"ddd\"，\"eee\"，\"fff\")；这个是数组my$vv=\"ddd；这个是要查找的变量方法1，：使用类似c语言的风格，遍历这个数组，查找变量是否匹配。foreach(@arr){if($vv eq$_){print\"$vv\\n}}方法2：使用map，查找数组中是否含有该变量map { if($vv eq$_){ print\"$vv\\n\"} }@arr；方法3：使用grep，查找数组中是否含有该变量print(grep/^vv$/，@arr)；以上3中方式的编码均已经测试过了，能够得到正确答案。如果LZ初学，可以使用方法1中的类似C语言的循环风格…
如何在perl中使用JavaScript中的变量 你不是要拿回一个数组嘛？function GetList(){var lstStaffs=document.getElementById(\"d2\")；var strStaffs=new Array()；for(var i=0；i；i+){strStaffs.push(lstStaffs.options[i].value)；}}或许我没理解你的意思。如果你还是要这个字符串。那你要去掉最后一个逗号if(strStaffs。{strStaffs=strStaffs.substring(0，strStaffs.length-1)；}
perl：文件中变量调用 前面的都没有错误，就后面有个小错误while(){print OUT“$_”；这儿$_必须加上引号}
Perl中的默认变量@_和$_什么意思？ @_在某个函数内，数组@_包含传递给该函数的所有参数。默认的输入/输出和格式匹配空间的示例：bin/perl-wuse strict；fun(111，222，333)；sub fun(){print@_；}这里会把传入函数的参数111222333打印出来。示例：下面的几对代码都是等同的：while(){.}#equivalent only in while。while(defined($_=)){.}Subject：/Subject：/tr/a-z/A-Z/tr/a-z/A-Z/chompchomp($_)以下是几处即使没有写明 Perl 也会假定使用$_的地方：各种单目函数，包括像 ord()和 int()这样的函数以及除\"-t以外所有的文件 测试操作(\"-f\"，\"-d\")，\"-t\"默认操作 STDIN。各种列表函数，例如 print()和 unlink()。没有使用\"=~\"运算符时的模式匹配操作\"m/\"、\"s/\"和tr/。在没有给出其他变量时是\"foreach\"循环的默认迭代变量。grep()和 map()函数的隐含迭代变量。当\"while\"仅有唯一条件，且该条件是对\"操作的结果进行测试时，$_就是存放输入记录的默认位置。除了while\"测试条件之外不会发生这种情况。(助记：下划线在特定操作中是可以省略的。和$_都是perl很常用的特殊变量。建议系统看一下《perl语言入门》。另附perl常用特殊变量列表：perl 内置变量当前页可打印的行数，属于Perl格式系统。
