blocks|key|1191541|text|在命令行上传递它，它将在@ARGV中可用|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1191542|for+d+in+1+2
do
++perl+-lne+'BEGIN+{$d=shift}+print+"$d:+OK"+if+/hdisk$d\s%2B/'+$d+someFile
done|code-block|syntax|javascript|1191543|请注意，此上下文中的shift操作符删除了@ARGV的第一个元素，在本例中为$d。|1191544|entityMap^0|C|5|0|0|A|5|L|5|12|2|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|S|8|@$9|T|A|U|B|C]|$9|V|A|W|B|C]|$9|X|A|Y|B|C]]|D|@]|E|$]]|$1|M|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|N|$]]

Pass it on the command line, and it will be available in <code>@ARGV</code>:

<pre><code>for d in 1 2
do
 perl -lne 'BEGIN {$d=shift} print "$d: OK" if /hdisk$d\s+/' $d someFile
done
</code></pre>

Note that the <code>shift</code> operator in this context removes the first element of <code>@ARGV</code>, which is <code>$d</code> in this case.

blocks|key|1191577|text|这看起来不错，但我会使用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1191578|for+d+in+$(seq+1+2);+do+perl+-nle+'print+"hdisk$ENV{d}+OK"+if+$_+=~+/hdisk$ENV{d}/'+someFile;+done|code-block|syntax|javascript|1191579|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

That looks good, but I'd use:

<pre><code>for d in $(seq 1 2); do perl -nle 'print "hdisk$ENV{d} OK" if $_ =~ /hdisk$ENV{d}/' someFile; done
</code></pre>

blocks|key|1191628|text|如果你在编写一行代码时遇到困难，可能对一行代码来说有点难(这只是我的观点)。我会同意@FM的建议，并用Perl完成所有的工作。读取整个文件，然后测试它：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1191629|++++use+strict;
++++local+$/+=+''+;+#+Read+in+the+whole+file
++++my+$file+=+<>+;

++++for+my+$d+(+1+..+2+)
++++{
++++++++print++"$d:+OK\n"+if++$file+=~+/hdisk$d\s%2B/
++++}|code-block|syntax|javascript|1191630|你可以做循环，但那会更长。当然，这在一定程度上取决于文件的大小。|1191631|请注意，到目前为止，所有的Perl示例都将为每个匹配打印一条消息--您能确保没有重复的消息吗？|1191632|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

If you are having trouble writing a one-liner, maybe it is a bit hard for one line (just my opinion). I would agree with @FM's suggestion and do the whole thing in Perl. Read the whole file in and then test it:

<pre><code> use strict;
 local $/ = '' ; # Read in the whole file
 my $file = &lt;&gt; ;

 for my $d ( 1 .. 2 )
 {
 print "$d: OK\n" if $file =~ /hdisk$d\s+/
 }
</code></pre>

You could do it looping, but that would be longer. Of course it somewhat depends on the size of the file.

Note that all the Perl examples so far will print a message for each match - can you be sure there are no duplicates?

blocks|key|977422|text|结合前面的一些建议，并加上我自己的糖，我会这样做：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|977423|perl+-se+'/hdisk([$d])/+&&+print+"$1:+ok\n"+for+<>'+--+-d='[value]'+[file]|code-block|syntax|javascript|977424|值可以是一个数字(即2)，一个范围(即2-4)，一个不同数字的列表(即2%7C3%7C4)+(或几乎任何其他，这是一个有效的模式)，甚至是包含其中一个的bash变量，例如：|977425|d='2-3'
perl+-se+'/hdisk([$d])/+&&+print+"$1:+ok\n"+for+<>'+--+-d=$d+someFile+|977426|file是您的文件名(即someFile)。|offset|length|style|CODE|977427|entityMap^0|0|0|0|0|C|8|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|W|8|@$M|X|N|Y|O|P]]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

Combining some of the earlier suggestions and adding my own sugar to it, I'd do it this way:

<pre><code>perl -se '/hdisk([$d])/ &amp;&amp; print "$1: ok\n" for &lt;&gt;' -- -d='[value]' [file]
</code></pre>

[value] can be a number (i.e. 2), a range (i.e. 2-4), a list of different numbers (i.e. 2|3|4) (or almost anything else, that's a valid pattern) or even a bash variable containing one of those, example:

<pre><code>d='2-3'
perl -se '/hdisk([$d])/ &amp;&amp; print "$1: ok\n" for &lt;&gt;' -- -d=$d someFile 
</code></pre>

and [file] is your filename (that is, <code>someFile</code>).

blocks|key|1191767|text|我的解决方案有点不同。我通过谷歌搜索你的问题的标题来回答你的问题，但我正在尝试执行一些不同的东西。这是以防它帮助某人的情况：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1191768|仅供参考，我在Solaris上使用的是tcsh。|offset|length|1191769|我有以下一行代码：|1191770|perl+-e+'use+POSIX+qw(strftime);+print+strftime("%25Y-%25m-%25d",+localtime(time()-3600*24*2));'|code-block|syntax|javascript|1191771|它输出值：|1191772|2013-05-06|1191773|我试图将它放到shell脚本中，这样我就可以创建一个文件名中包含日期的文件，即过去X天的日期。我试过了：|1191774|set+dateVariable=`perl+-e+'use+POSIX+qw(strftime);+print+strftime("%25Y-%25m-%25d",+localtime(time()-3600*24*$numberOfDaysPrior));'`|1191775|但由于变量替换，这并不起作用。我不得不弄乱引用，让它正确地解释它。我尝试用双引号将整个代码括起来，但这使得Perl命令在语法上不正确，因为它弄乱了日期格式两边的双引号。我的结论是：|1191776|set+dateVariable=`perl+-e+"use+POSIX+qw(strftime);+print+strftime('%25Y-%25m-%25d',+localtime(time()-3600*24*$numberOfDaysPrior));"`|1191777|这对我来说很有效，而不必求助于任何花哨的变量导出。|1191778|我意识到这并没有确切地回答你的具体问题，但它回答了标题，并可能对其他人有帮助！|1191779|entityMap|0|LINK|mutability|MUTABLE|url|https://en.wikipedia.org/wiki/Tcsh^0|0|J|4|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1A|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1B|8|@]|9|@$D|1C|E|1D|1|1E]]|A|$]]|$1|F|3|G|5|6|7|1F|8|@]|9|@]|A|$]]|$1|H|3|I|5|J|7|1G|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|1H|8|@]|9|@]|A|$]]|$1|O|3|P|5|J|7|1I|8|@]|9|@]|A|$K|L]]|$1|Q|3|R|5|6|7|1J|8|@]|9|@]|A|$]]|$1|S|3|T|5|J|7|1K|8|@]|9|@]|A|$K|L]]|$1|U|3|V|5|6|7|1L|8|@]|9|@]|A|$]]|$1|W|3|X|5|J|7|1M|8|@]|9|@]|A|$K|L]]|$1|Y|3|Z|5|6|7|1N|8|@]|9|@]|A|$]]|$1|10|3|11|5|6|7|1O|8|@]|9|@]|A|$]]|$1|12|3|-4|5|6|7|1P|8|@]|9|@]|A|$]]]|13|$14|$5|15|16|17|A|$18|19]]]]

My solution is a little different. I came to your question with a Google search the title of your question, but I'm trying to execute something different. Here it is in case it helps someone:

FYI, I was using <a href="https://en.wikipedia.org/wiki/Tcsh" rel="nofollow noreferrer">tcsh</a> on Solaris.

I had the following one-liner:

<pre><code>perl -e 'use POSIX qw(strftime); print strftime("%Y-%m-%d", localtime(time()-3600*24*2));'
</code></pre>

which outputs the value:

<pre><code>2013-05-06
</code></pre>

I was trying to place this into a shell script so I could create a file with a date in the filename, of X numbers of days in the past. I tried:

<pre><code>set dateVariable=`perl -e 'use POSIX qw(strftime); print strftime("%Y-%m-%d", localtime(time()-3600*24*$numberOfDaysPrior));'`
</code></pre>

But this didn't work due to variable substitution. I had to mess around with the quoting, to get it to interpret it properly. I tried enclosing the whole lot in double quotes, but this made the Perl command not syntactically correct, as it messed with the double quotes around date format. I finished up with:

<pre><code>set dateVariable=`perl -e "use POSIX qw(strftime); print strftime('%Y-%m-%d', localtime(time()-3600*24*$numberOfDaysPrior));"`
</code></pre>

Which worked great for me, without having to resort to any fancy variable exporting.

I realise this doesn't exactly answer your specific question, but it answered the title and might help someone else!

blocks|key|1191810|text|对于这些一行程序来说，有时打破Perl封装层是一个很好的技巧：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1191811|for+d+in+1+2+;+do+cat+kk2+%7C+perl+-lne+'+print+"'"${d}"':+OK"+if+/hdisk'"${d}"'\s%2B/';done|code-block|syntax|javascript|1191812|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Sometimes breaking the Perl enclosure is a good trick for these one-liners:

<pre><code>for d in 1 2 ; do cat kk2 | perl -lne ' print "'"${d}"': OK" if /hdisk'"${d}"'\s+/';done
</code></pre>

I have a file, <code>someFile</code>, like this:

<pre><code>$cat someFile
hdisk1 active
hdisk2 active
</code></pre>

I use this shell script to check:

<pre><code>$cat a.sh
#!/usr/bin/ksh
for d in 1 2
do
 grep -q "hdisk$d" someFile &amp;&amp; echo "$d : ok"
done
</code></pre>

I am trying to convert it to Perl:

<pre><code>$cat b.sh
#!/usr/bin/ksh
export d
for d in 1 2
do
 cat someFile | perl -lane 'BEGIN{$d=$ENV{'d'};} print "$d: OK" if /hdisk$d\s+/'
done
</code></pre>

I export the variable <code>d</code> in the shell script and get the value using <code>%ENV</code> in Perl. Is there a better way of passing this value to the Perl one-liner?

How do I best pass arguments to a Perl one-liner?

Solaris

Perl

我有一个文件，someFile，如下所示：$cat someFilehdisk1 activehdisk2 active我使用这个shell脚本来检查：$cat a.sh#!/usr/bin/kshfor d in 1 2do    grep -q "hdisk$d" someFile && echo "$d : ok...

问如何最好地将参数传递给Perl一行程序？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何最好地将参数传递给Perl一行程序？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何最好地将参数传递给Perl一行程序？
EN