我正在编写一个Perl脚本,希望能够捕获在命令行中输入的字符串,而不必输入引号(类似于bash的"$@“功能)。我会经常使用这个命令,所以我希望这是可能的。如果我有:
if ($ARGV) {
我必须将命令行字符串放在引号中。我更喜欢这样的命令:
htmlencode some & HTML <> entities
不带引号。有没有办法在Perl中做到这一点?
我有几百个rar文件。我想为每个rar文件创建一个目录,然后将该文件移动到新创建的目录中。
这是我用来创建rar的代码
#!bin/bash
for f in *; do
rar a -s -m5 "${f%.*}.rar" "$f";
done
这是我用来移动文件的代码。
#!/bin/bash
for i in *.rar; do
dir=$(echo "$i" | \
sed 's/\(.\)\([^ ]\+\) \([^ ]\+\) - \(.*\)\.pdf/\1\/\1\2 \3/')
dir="Destin
我试图将git ls-files与文件模式一起使用,以获得经过筛选的跟踪文件列表。(我知道我可以用grep et做下面的事情。但是我很好奇为什么它不起作用)
#!/usr/bin/env bash
GIT_ROOT=$(git rev-parse --show-toplevel)
# only include stuff in src and include
SRC_PATTERNS="{include,src}/**/*.{hpp,cpp,tpp,h,c}"
# @brief Get list of files in git index with names rel
我的bash脚本接收一个文件名(或相对路径)作为字符串,但随后必须从该文件中读取。我只能从文件名中读取,如果我在脚本中直接将其声明为文字(不带引号),...which对于参数是不可能的,因为它们一开始就是隐式字符串。请注意:
a="~/test.txt"
#Look for it
if [[ -a $a ]] ; then
echo "A Found it"
else
echo "A Error"
fi
#Try to use it
while read line; do
echo $line
done < $a