代码如下 #!/usr/bin/perl -w use strict; use warnings; use diagnostics; my $RegEx = 'm/AAA/'; my $Line = "CCCAAABBB"; eval '$Line =~ ' . $RegEx; print "\$`: $`\n"; print "\$&: $&\n"; print "\$': $'\n"; 报错是 Use of uninitialized value $` in concatenation (.) or string at evalTest.pl line 9 (#1) (W uninitialized) An undefined value was used as if it were already defined. It w...
by godblesswho - Perl - 2008-10-07 21:30:12 阅读(2053) 回复(3)
#!/usr/bin/sh eval '/usr/local/bin/users/standard/build36/perl5 -wS $0 ${1+"$@"}' if 0; 在PERL技术内幕中看到这么一段, 不知道什么意思 eval不是抛出异常吗,这里何用
今天把网中人的shell十三问看完了,网中人太牛了。 但是在看/etc/init.d/network这个文件时,碰到下面这行代码,不知道如何理解,请大家指教啊 eval $(LANG=C fgrep "DEVICE=" ifcfg-eth0)
var sInfo = eval("sInfo_" + n); 则sInfo_11就是变量 本文来自ChinaUnix博客,如果查看原文请点:http://blog.chinaunix.net/u/2326/showart_166661.html
下面是phpTag eval的演示.虽然我知道这个代码的功能,但我不明白为什么要那么书写eval,而且\n不能够少.有谁明白原因的呢? [code] EOT; eval("?>$phpcode [/code]
#more evalit.sh #!/bin/sh #evalit echo "Total number of arguments passed is $#" echo \$$# eval echo \$$# echo "Last argument is" $(eval echo \$$#) [root@netqserver shell]# ./evalit.sh tom wang land Total number of arguments passed is 3 $3 land Last argument is land 不知道最后一行中的$(eval echo \$$#)怎么理解?
请问 eval v_xy $"itemx$1" $"itemy$1" 的意思是不是说将变量开始字母为itemx的进行二次替换呢??? 比如说$1等于aaa,哪 eval v_xy $"itemx$1" $"itemy$1"是不是就应该替换为 eval v_xy $"itemxaaa" $"itemyaaa"呢?而且请问 v_xy是什么东西哟?为什么它前面不加变量$符号呢?
>>> def test(a,b):
... return a+b
...
>>> def test(a,b):
... return a+b
...
>>> funcname='test'
>>> argtuple=(1,2)
>>> eval(funcname)argtuple
Traceback ( File "
俩数组: [code] @v_name = (A, B, C, D); @v_value = (1, 2, 3, 4); [/code] 产生$A, $B, $C, $D,并赋值, 我的做法是: [code] for ( 0 .. 3) { eval "\$$v_name[$_] = $v_value[$_]"; } [/code] 可是这样并不能产生那几个变量。。 正确应该怎么做呢? 求教。。。