小编use*_*820的帖子

如何将单独的年,月和日列转换为单个日期?

我有一个年份列,其中包含2013年,2012年等内容.显示1-12的月份列和包含1-31的日期列.我需要运行一个连接它们并将它们作为实际日期进行转换的选择,但我不确定如何解决这个问题.谁能提供一些输入?

sql-server

7
推荐指数
3
解决办法
4万
查看次数

如果项目尚不存在,则将项目从源复制到目标

我有一个非常基本的PowerShell复制脚本,可以将项目从源文件夹复制到目标文件夹.但是这会移动太多的数据,我想检查文件名是否已经存在,以便可以忽略该文件.我不需要像验证创建日期/校验和/等那样复杂.

目前它的行列如下:

Copy-Item source destination -recurse
Copy-Item source2 destination2 -recurse
Run Code Online (Sandbox Code Playgroud)

我想我需要添加Test-Path cmdlet,但我不确定如何实现它.

powershell

5
推荐指数
4
解决办法
3万
查看次数

如何获取当前目录中的每个文件夹并将其迭代到脚本中

我正在制作一个备份脚本来压缩文件并将它们ftp到Windows服务器.我现在的工作原理,但是当我执行它时,它需要为我想要单独备份的每个文件夹设置一个参数./ path /可能包含我要备份的许多文件夹,我想自动执行此脚本以获取/ path /中的每个文件夹,并通过运行脚本一次将它们备份到自己的.zip中.谁能提供任何有关如何做到这一点的见解?或者至少我如何获得每个目录并进行迭代?

#!/bin/sh
HOST='x.x.x.x'
USER='user'
PASSWD='pass'
now=$(date +"%m_%d_%Y")
cd /path/
PROC=$1
DIR="$PROC"
FILE="$PROC"."$now.zip"
echo $FILE
zip -r $FILE $DIR
ftp -n $HOST <<END_SCRIPT
quote USER $USER
quote PASS $PASSWD
binary
mkdir $PROC
cd $PROC
put $FILE
quit
END_SCRIPT
#exit 0
~
Run Code Online (Sandbox Code Playgroud)

bash shell

3
推荐指数
1
解决办法
2408
查看次数

使用selectall_hashref,因为我会选择all_arrayref

我正在做一些练习来提高我的Perl技能,其中一个涉及连接到SQL数据库,运行查询,并将结果作为数组返回.这是我到目前为止:

my $search = $_[0];
our $dbh = DBI->connect{"dbi:mysql:dbname=database", "root", "password")
    or die $DBI::errstr;
my $sql = $dbh->selectall_arrayref("SELECT Player from Players_Sport where Sport like '$search'")
    or die $DBI::errstr;
my @array = map { $_->[0] } @$sql;
$dbh->disconnect
    or warn "Disconnection failed: $DBI::errstr\n";
return @array;
Run Code Online (Sandbox Code Playgroud)

我的下一步是更改代码以将结果作为哈希而不是数组返回,但我不确定如何继续.我希望使用selectall_hashref,但我发现的所有在线示例都使用WHILE.我想返回结果,然后创建哈希作为单独的步骤.

perl dbi

2
推荐指数
1
解决办法
1万
查看次数

无与伦比[在正则表达式,尽管被逃脱

试图测试位置函数和解析perl的能力.我有一个正则表达式,我认为是正确的,但perl告诉我,我有一个无与伦比的[,但对我来说,它看起来是逃脱的.

无与伦比[在正则表达式; 标记为< - HERE in m /\G.*[([< - HERE ^] +)]/at perltest.pl第5行.

任何人都可以澄清为什么我从以下代码中获取该消息?

my $string = "one, [two] , [three], and [four].";

pos($string) = 0;
while (my $string =~ m{\G.*\[([^\]+)\]}cg)
{
    my $value = $1;
    print "Found value $value .\n";
};
Run Code Online (Sandbox Code Playgroud)

regex perl

2
推荐指数
1
解决办法
200
查看次数

标签 统计

perl ×2

bash ×1

dbi ×1

powershell ×1

regex ×1

shell ×1

sql-server ×1