我有两个函数,我试图在第二个函数中使用一个函数的结果.这是else部分,但它不是为"cus_number"打印任何东西.
如何打印"cus_number"？
Function getNumber
number = "423"
End Function
cus_number = getNumber
If (IsNull(cus_number)) Then
WScript.Echo "Number is null"
Else
WScript.Echo "cus_number : " & cus_number
End If
以下脚本的输出为空白.缺少什么？我正在尝试grep一个字符串
#!/bin/ksh
file=$abc_def_APP_13.4.5.2
if grep -q abc_def_APP $file; then
echo "File Found"
else
echo "File not Found"
fi
我正在尝试通过以下命令从本地主机连接到远程主机。但是，在远程主机中有一个设置，我们登录后很快就会提示输入徽章ID，密码和登录原因，因为它被编码一样，在profile文件上remote-host我该如何克服这些步骤，直接登录非交互，而不会干扰代码profile。
jsmith@local-host$ ssh -t -t generic_userID@remote-host
Enter your badgeID, < exit > to abort:
Enter your password for <badgeID> :
Enter a one line justification for your interactive login to generic_userID
我有 vba 宏来删除选定的单元格。删除单元格后，它会自动向上移动单元格。我不希望单元格向上移动，因为单元格下方有一个图表，如果它们移动，一切都会受到干扰。
这是我用来删除单元格的代码
ActiveSheet.UsedRange.Select
ActiveSheet.Range("C2:H8").Select
Selection.Delete
让我知道如何在不升级的情况下删除它们。
我有一系列网址.我想打开它们,如果它们正在打开而没有任何错误,请将状态显示为正在运行,否则不运行.如何通过从当前输出中删除所有其他消息来实现下面提到的所需输出.
#!/bin/ksh
urlArray=('http://url1:port1' 'http://url2:port2' 'http://url3:port3')
for url in "${urlArray[@]}"
do
result=`curl $url | head -1`
if (echo $result | grep '<?xml' >/dev/null 2>&1); then
echo Running
else
echo Not Running
fi
done
脚本的当前输出是
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 12980 0 12980 0 0 711k 0 --:--:-- --:--:-- --:--:-- 0
Running
curl: (6) Couldn't resolve host 'url2:port2'
Not Running
curl: (6) Couldn't resolve host 'url3:port3'
Not Running …我有sed语句来替换我文件中的一些内容.file.bak在替换内容之前,它会使用名称备份copu .
sed -i.bak -r "s#^(.*/abc_def_APP/).*(/application1\.war.*)#\1$version1/$version2\2#" /path/file
但我希望使用当前日期备份该文件.就像是file.071913
我怎么才能得到它？
我需要用今天的日期grep一个日志文件.但产量显示超过今天的日期.
grep date +"20%y-%m-%d" /path/log/General.log | grep "EmpID#106496" /path/log/Genral.log
输出:
2013-06-19 14:47:05,996 - INFO EmpID#106496
2013-06-19 14:47:05,996 - INFO EmpID#106496
2013-06-21 00:01:24,915 - INFO EmpID#106496
2013-06-21 00:01:24,915 - INFO EmpID#106496
我有以下信息的文件
FileName:VersionInfo.properties
Installed Version:13.7.0-2
Previous Version:13.6.0-12
FileName:rollback.sh
#!/bin/bash
uninstall_rpm ClientInfrastructure $version
如何从早期版本的VersionInfo.properties文件中将值转换为变量$ version.$ version的值应为13.6.0-12
我试图将子文件夹的名称（非递归）复制到使用File::Find::Rule. 我还想排除数组中提到的目录名称@exclude_dirs
#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Rule;
use Data::Dumper;
my $basedir = "C:\/Test";
my @exclude_dirs = qw( dir1_excl dir2_excl );
my @subdirs = File::Find::Rule
->directory()
# ->name(@exclude_dirs)->prune->discard, File::Find::Rule->new
->maxdepth(1)
->in( $basedir );
print Dumper(\@subdirs);
$VAR1 = [
'dir1',
'dir2',
'dir3'
]
$VAR1 = [
'C:/Test',
'C:/Test/dir1',
'C:/Test/dir1_excl',
'C:/Test/dir2',
'C:/Test/dir2_excl',
'C:/Test/dir3'
]
我有一个包含以下内容的文件.我得到了打印版本号的命令.但我需要截断版本文件中的最后一部分
file.spec:
Version: 3.12.0.2
使用的命令:
VERSION=($(grep -r "Version:" /path/file.spec | awk '{print ($2)}'))
echo $VERSION
电流输出:3.12.0.2
期望的输出:3.12.0
我有以下代码.我试图在我的日志文件中找到3个单词的匹配,如果找到匹配则打印该行(仅当所有3个单词都存在时).如果我对单词(@typedefs)进行硬编码,它可以正常工作,但如果我在带有strings(@typedefs_new)的数组中使用相同的单词,则它无效.我在做什么错？
my $str1="laa";
my $str2="faa";
my $str3="baa";
my @typedefs = qw(laa,faa,baa);
my @typedefs_new = ($str1,$str2,$str3);
my $file="/pathtofile/logfile.log";
open (FILE, $file) or die $!;
print "Output using typdefs_new array\n";
while ( my $line = <FILE> ) {
if ( any { $line =~ /$_/ } @typedefs_new ) {
print $line;
}
}
print "Output using typdefs array\n";
while ( my $line = <FILE> ) {
if ( any { $line =~ /$_/ } @typedefs ) {
print …如何在时间戳中使用正则表达式删除/剪切点(.)后的所有内容？我想用输出来查找下面代码中的时差
$_ = '2015/01/13 13:59:21.267-05:00';
s/\.\d*//;
print $_, "\n";
电流输出:
2015/01/13 13:59:21-05:00
期望的输出:
2015/01/13 13:59:21
查找时差的代码:
use strict;
use warnings;
use Time::Piece;
my $str1 = '2015/01/13 13:58:01.267-05:00';
my $str2 = '2015/01/13 13:59:21.267-05:00';
my @times = map Time::Piece->strptime((s/\.\d*//), '%Y/%m/%d %H:%M:%S'), $str1, $str2;
my $delta = $times[1] - $times[0];
print $delta->pretty;