我想取当天的时间为一个变量 在shell里面可以很容易得到 DATE=`date +%Y%m%d` 那么变量$DATE就是当天的日期。 在perl里面我想得到同样的结果该怎么做呢? 请高手帮忙!!
小弟接触perl语言时间不长,在编程时遇到了一个难题,请高人指点. 如有两个perl文件aa.pl,bb.pl. aa.pl #!usr/local/bin/perl -w use strict; my $var1=100; print $var1,'\n'; bb.pl #!usr/local/bin/perl -w use strict; my $result; print $result,'\n'; 问题:我想在bb.pl文件中引用aa.pl文件中的变量:$var1,并赋值给$result.
如下的脚本 #!/usr/bin/perl -w @array=(1,2,3,4); foreach (@array) { print; } 打印出的结果为1234 如果我要在打印出如下结果应该怎么写呢? 1 2 3 4 我把print那里改成print "\n"; 但是提示出错。
大家好,我没学过perl。但是现在有一个问题: 我们公司有一个perl脚本,我要在那个脚本中把upitme=`/usr/bin/uptime | awk '{print $3}'` 这个变量加进去,然后在通过$ptime调用,学过perl的大哥能不能说下在perl中如何写,谢谢!
#!/usr/bin/perl sub verifych { my($chsys,$ch)=@_; ##$chsys 是一个数组的地址 foreach $i (@$chsys) #@$chsys { #print($i); $i=~s/^.*: //; $i=~s/\s//g; #print ($i); if("$i" eq "$ch") {return 0;} } return 1; } @a=`smcli lssys -A Description -n dtx201.csst.com`; ##smcli lssys -A Description -n dtx201.csst.com ...
想要实现这样的效果,在定义变量时在变量名中包含另一个变量,如: for (1..3) { my $var.$_ = $_; } 这里想要定义三个变量var1、var2、var3,但是不知道该怎么写,请大家指教,多谢:-)