我想取当天的时间为一个变量 在shell里面可以很容易得到 DATE=`date +%Y%m%d` 那么变量$DATE就是当天的日期。 在perl里面我想得到同样的结果该怎么做呢? 请高手帮忙!!
有A,B,C共三个表,A的字段为name,test1,test2。B表是一个字典,字段为name,id1,id2,C表的字段为AB两个表的集合字段为id1,id2,name,test1,test2 1。要把A的数据查询出来 2.插入的C, 语句如何写
小弟接触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 ...